vb建資料庫

㈠ 如何用vb建立一個access資料庫

vb只是一個編程語言，並不能建立資料庫，建立access資料庫要完全在access中進行。
前提條件：必須安裝微軟access資料庫。
步驟：
1、找好要存放資料庫的路徑，如C盤data路徑；
2、路徑下空白處點右鍵，新建-Microsoft
Access資料庫，如圖：
3、這時路徑下就有了一個access文件，可以右鍵-重命名來為資料庫起名，如，起名叫測試資料庫；
4、雙擊access文件，在里邊創建所要的表，函數等等即可。

㈡ VB創建資料庫表

一、 創建資料庫：

在DAO中用CreatDataBase方法可以根據用戶需求動態的創建資料庫。這一點在程序中是非常有用的。用戶可以根據要求實時建立資料庫。建立過程如下：

Private Sub Com_creat_Click()
On Error GoTo Err100
CreatDataBase "資料庫名稱.mdb" ，dbLangGeneral
Msgbox "資料庫建立完畢"
Exit Sub
Err100:
MsgBox "不能建立資料庫! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub

這樣，資料庫便在當前默認的路徑下建立了。

二、 創建表與欄位：

建立資料庫後，則需要在該資料庫中建立表，這要用到TableDef 對象。先定義一個TableDef類型的對象，然後用TableDef集合中Append方法將之追加到資料庫當中去。並且同時定義一個Field對象，用CreatFiele的方法創建一個Field對象，向表中添加欄位。例如:

Private Sub Com_table_Click()
On Error GoTo Err100
Dim Defdb As DataBase
Dim NewTable As TableDef
Dim NewField As Field
Set Defdb = Workspaces(0).OpenDatabase (App.path & "\資料庫名稱.mdb" ,0, False)
Set NewTable = DefDataBase.CreateTableDef("表名")
Set NewField = DefTable.CreateField( "欄位名" , dbText ,6) ′創建一個字元型的欄位，長度為6個字元
DefTableFields.Append NewField ′欄位追加
DefDatabase.TableDefs.Append NewTable ′表追加
Msgbox " 表建立完畢 "
Exit Sub
Err100:
MsgBox "對不起，不能建立表。請先再建表前建立資料庫？", vbCritical
End Sub

㈢ vb 中建立資料庫

打開VB6.0 編譯環境
外接程序---可視化數據管理器--文件--新建
這樣就可以建立 常用的各種類型資料庫
新建完 在資料庫窗口~右鍵滑鼠-新建表

㈣ 如何用vb創建資料庫 求高手

'代碼創建一個Access資料庫和一張表，其中「序號」欄位為自動編號
Private Sub xjdata()
On Error GoTo aaa

Dim cat As New ADOX.Catalog
Dim pstr As String
Dim fm As String
Dim tb1 As ADOX.Table
Dim col As ADOX.Column
Set tb1 = New ADOX.Table
On Error GoTo xjerr
CommonDialog1.Filter = "MDB文件（*.mdb）|*.mdb|AllFiles(*.*)|*.*|"
CommonDialog1.FilterIndex = 1
CommonDialog1.InitDir = App.Path
CommonDialog1.Flags = 6
CommonDialog1.FileName = Date & Space(1) & Hour(Now) & Minute(Now)
CommonDialog1.Action = 2
If CommonDialog1.FileName = "" Then
MsgBox "你必須輸入一個資料庫文件名，請重新保存一次！", ""
Else
fm = CommonDialog1.FileName
End If
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
pstr = pstr & "Data Source=" & fm
cat.Create pstr
cat.ActiveConnection = pstr
tb1.Name = "sjb"

Set col = New ADOX.Column
col.ParentCatalog = cat
col.Type = ADOX.DataTypeEnum.adInteger ' // 必須先設置欄位類型
col.Name = "序號"
col.Properties("Jet OLEDB:Allow Zero Length").Value = False
col.Properties("AutoIncrement").Value = True
tb1.Columns.Append col, ADOX.DataTypeEnum.adInteger, 0

tb1.Columns.Append "電壓", adSingle
tb1.Columns.Append "電流", adSingle
tb1.Columns.Append "輸入功率", adSingle
tb1.Columns.Append "轉速", adSingle
tb1.Columns.Append "轉矩", adSingle
tb1.Columns.Append "輸出功率", adSingle
tb1.Columns.Append "效率", adSingle
cat.Tables.Append tb1
xjerr:
If err.Number = 32755 Then Exit Sub 『捕捉 取消 的錯誤信息
aaa:
End Sub

㈤ 如何用vb建立 資料庫

自己編的一個報名系統，連接到數據文件（*.xml）的方式如下：

在項目中添加如下項（控制項）：
|名稱 |控制項名稱|
|Dialog1 |對話框 |
|Textbox1 |Textbox |
|Open |Button |
|Cancel |Button |
|Browse... |Button |
|OpenFileDialog1 |OpenFileDialog |

在原來要顯示資料庫的窗體上添加如下控制項：
|DataGridView1 |DataDridView |

在Dialog1.vb中添加如下代碼以連接到「Textbox1」中顯示的路徑（把文件中原有的「Public Class Dialog1」，「End Class」覆蓋）：

'*********************************************************
Imports System.Windows.Forms

Public Class Dialog1
Dim mydataset As New DataSet
Friend hasfile As Boolean = False

Private Sub cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cancel.Click
Me.Close()
End Sub

Private Sub browse_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles browse.Click
On Error GoTo err
OpenFileDialog1.FileName = ""
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName = "" Then
Exit Sub
End If
TextBox1.Text = OpenFileDialog1.FileName
Exit Sub
err:
Exit Sub
End Sub

Private Sub open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open.Click
On Error GoTo err
Form1.mydataset.ReadXml(TextBox1.Text)
Form1.DataGridView1.DataSource = Form1.mydataset.Tables("Person")
Me.Close()
Exit Sub
err:
MsgBox("Sign Up System 在打開文件時出現異常!", MsgBoxStyle.Exclamation)
End Sub
End Class
'*********************************************************

註：
xml文件的新建可以使用以下語句：

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, "<?xml version=""1.0"" standalone=""yes""?><Mytable> <Person> <代碼 /> <參賽號 /> <報名方式 /> <姓名 /> <區 /> <年級 /> <學校 /> <郵編 /> <地址 /> <聯系電話 /> <指導老師 /> <獲獎情況 /> <備注_1 /> <備注_2 /> <備注_3 /> </Person></Mytable>", False)

㈥ VB的資料庫怎樣做

VB 和資料庫並不直接相關，資料庫需要資料庫管理系統，比如ACCESS、MS sqlSERVER。
VB負責完成界面，即負責數據的採集和處理，並利用特殊的控制項和函數庫從資料庫讀取、修改數據。
VB6 比較常用的控制項有DATA，ADODC，函數庫可以用ADO

㈦ VB中如何創建資料庫，表，欄位

給你一個例子，你自己改吧。

'引用對象庫「MicrosoftActiveXDataObjects2.8Library」
'引用對象庫「MicrosoftADOExt2.8.ForDDLSecurity」，簡稱為ADOX

DimcatAsNewADOX.Catalog
DimpstrAsString
pstr="Provider=Microsoft.Jet.OLEDB.4.0;"
pstr=pstr&"DataSource="C:sss.mdb"
pstr=pstr&";JetOLEDB:Database"
cat.Createpstr'創建資料庫

DimcatAsNewADOX.Catalog'不用cat用另外一個名字也可以
DimpstrAsString
Dimtb1AsNewTable
pstr="Provider=Microsoft.Jet.OLEDB.4.0;"
pstr=pstr&"DataSource="C:sss.mdb"
pstr=pstr&";JetOLEDB:Database"
cat.ActiveConnection=pstr
tb1.Name="sss"'表的名稱
tb1.Columns.Append"姓名",adVarWChar,20'表的第一個欄位
tb1.Columns.Append"記錄1",adInteger'表的第二個欄位
tb1.Columns.Append"記錄2",adInteger'表的第三個欄位
tb1.Columns.Append"記錄3",adInteger'表的第四個欄位
tb1.Columns.Append"記錄4",adInteger'表的第五個欄位
cat.Tables.Appendtb1'建立數據表

㈧ vb 用sql 語句創建資料庫。

啟動VB6.0，新建一個工程,在菜單-工程-引用里選"Microsoft ActiveX Data Objects 2.0 Library",代碼里需要有

dim conn As New ADODB.Connection
定義ADO資料庫對象
conn.ConnectionString = "driver={SQL Server};" & _
"server=" & ServerName & ";uid=" & UserName & ";
pwd=" & Password & ";database=" & DatabaseName & ""
連接數據串
conn.open 連接資料庫
註：ServerName為伺服器名；UserName為用戶名；Password為用戶口令； DatabaseName要登錄的資料庫名，可以為空。
核心代碼如下：
一、建立資料庫
原理：建立資料庫先要初始化一個資料庫設備，然後在此設備上建立資料庫。所有的設備名在系統表"sysdevices"里有記錄，所有的資料庫名在系統表"sysdatabases"里有記錄。在建立之前，最好先查詢這兩個系統表，看名稱是否已經存在。在建立設備之前，還需要的一個物理名和空閑的設備標識號。
初始化設備語法：
DISK INIT NAME="device_name",PHYNAME=
"physical_name",VDEVNO=device_number,
SIZE=numberofblock
說明：這里，NAME是資料庫設備名（一個有效的標識符），PHYNAME(資料庫設備的物理名)是原始的磁碟分區UNIX或外設（vms）名，或者是操作系統的文件名。VDEVNO時資料庫的設備標識號，合法值為1-255，SIZE的單位是2KB的塊，例如1MB（1024KB）時SIZE值為512。
建立資料庫語法：CREATE DATABASE database_name [ON database_device]
說明：database_name是要建的資料庫名，database_device是設備名
要新建立一個資料庫，就需要設備名，資料庫名，物理名和設備號。具體步驟如下：
我們假設用戶要新建立設備dbName，在設備dbName上建立資料庫dbName。
1）得到設備名 bName是用戶給出的設備名；先查詢系統表sysdevices，看用戶給出的設備名dbName是否已經存在，如果此設備名存在，就需要更換一個設備名，因為設備名是唯一的。
sql = "select * from sysdevices
where name=" & dbName & ""
Set rs = conn.Execute(sql)
If Not rs.EOF Then
MsgBox "設備名"" & dbName & ""
已存在！", 16, "請重新輸入名稱"
Exit Sub
End If
2）得到資料庫名。dbName是用戶給出的資料庫名；查詢系統表sysdatabases，看用戶給出的資料庫名dbName是否已經存在，如果此資料庫存在，就需要更換一個資料庫名，像設備名一樣，資料庫名也是唯一的
sql = "select * from sysdatabases
where name=" & dbName & ""
Set rs = conn.Execute(sql) 下面代碼略
3）得到PHYNAME物理名。查詢伺服器上資料庫文件的物理位置serverpath，典型的，我們可以從系統表sysdevices中查詢master(這是SQL Server的主庫名)資料庫的位置，例如G:\MSSQL\DATA\MASTER.DAT，則我們的資料庫可以建在"G:\MSSQL\DATA\"目錄下。
sql = "select name,phyname from sysdevices "
low/16777216為設備號
Set rs = conn.Execute(sql)
然後遍歷記錄對象rs，當name="master"時，取出phyname，
從而可以得到物理位置serverpath =G:\MSSQL\DATA\。
4)得到一個空閑的設備號vdevno。設備號合法值1~255，遍歷這些號，查找出未被使用的空閑設備號,下面程序得到已有的設備號
sql = "select distinct low/16777216
from sysdevices order by low/16777216"
low/16777216為設備號
5）建立資料庫。所需的信息都准備完畢，可以建立資料庫了（註：下面的"" & Chr(34) & ""就是一個"""雙引號,這樣處理後，才能滿足語法要求;資料庫為20M，則dbSize=512*20）
sql = "DISK INIT NAME=" & Chr(34) & ""
& dbName & "" & Chr(34) & ",PHYSNAME="
& Chr(34) & "" & serverpath & "" & dbName
& ".dat" & Chr(34) & ",VDEVNO=" & vdevno
& ",SIZE=" & dbSize & ""
Set rs = conn.Execute(sql) 初始化設備
sql = "CREATE DATABASE " & dbName & "
on " & dbName & "=" & dbSize & ""
註：
第一個dbName是資料庫名，
第二個dbName是設備名
Set rs = conn.Execute(sql)
在設備dbName上建立資料庫dbName
MsgBox "資料庫"" & dbName & ""建在伺服器上
"" & serverpath & "" & dbName & ".dat"，
建立成功！", 64, "成功"

㈨ 怎樣創建一個資料庫,在VB里

首先你的VB必須是安裝完整的版本!
然後打開VB.點擊 [外接程序->可視化數據管理器-> 就可以打開VisData,然後你就可以用他來新建資料庫,用他來操作你的資料庫.
注意:新建資料庫通常使用的格式是:
文件->新建->Microsoft Access->展開後有2.0和7.0兩個,看你自己喜歡隨便選一個吧!就這樣!還有什麼不懂的請補充問題!

㈩ vb 如何建立資料庫

'引用microsoft DAO 3.6

Dim db As Database
Private Sub Command1_Click()'建庫，且庫帶密碼為「lin」

r$ = InputBox("輸入庫名")
Set db = CreateDatabase("c:\" & r, dbLangGeneral & ";pwd=lin", dbEncrypt)
db.Close
End Sub

Private Sub Command2_Click()'選庫建表
r$ = InputBox("輸入要建表的庫名")
Set db = OpenDatabase("c:\" & r, False, False, ";pwd=lin")
b = InputBox("輸入表名")
Do While b <> ""
db.Execute "create table " & b
f = InputBox("輸入欄位名")
l = InputBox("輸入欄位類型")
Do While f <> ""
db.Execute "alter table " & b & " add column " & f & " " & l
'db.Execute "alter table 1 add column xz short"
f = InputBox("輸入欄位名")
l = InputBox("輸入欄位類型")
Loop
b = InputBox("輸入表名")

Loop
End Sub

以前用過的程序，沒有問題，你先看一下，理清了，再運行。