vb資料庫的建立

Ⅰ 如何用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創建資料庫表

一、 創建資料庫：

在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中如何創建資料庫，表，欄位

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

'引用對象庫「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建立一個access資料庫

vb只是一個編程語言，並不能建立資料庫，建立access資料庫要完全在access中進行。

前提條件：必須安裝微軟access資料庫。

步驟：

1、找好要存放資料庫的路徑，如C盤data路徑；

2、路徑下空白處點右鍵，新建-Microsoft Access資料庫，如圖：

4、雙擊access文件，在里邊創建所要的表，函數等等即可。

Ⅳ VB精簡版資料庫創建

在vb菜單欄 的 外接程序 -可視化資料庫編程
文件-新建-access資料庫- （然後選版本，隨便你的）7.0
彈出個窗口，要你指定 資料庫保存的路徑和文件名字。弄好 點確定。

新建資料庫完成。 之後就可以建表了。

Ⅵ VB的資料庫怎麼建啊

…糾正上面那個，是access資料庫，現在應該是access2007的，屬於office組件里的，網上可以下到，然後用vb中的data控制項可以對資料庫進行操作了

Ⅶ 一個超級簡單的vb資料庫

在VB中，訪問資料庫一般有兩種方式。一是非編碼方式，主要通過Data等控制項，可以不需要任何編程，只需簡單設置控制項的一些屬性並結合文本框等普通控制項即可方便地顯示和操作資料庫中的數據。二是通過編寫代碼,即利用數據訪問對象(DAO)來實現。雖然編寫代碼要花費更多的時間與精力，但卻可以實現更靈活更復雜的操作（如圖1）。
首先介紹幾個常用的VB資料庫概念：
表（Table）：即關系資料庫中物理存在的二維表。VB的一個資料庫文件可以包含相關的多個二維表。在成功打開一個資料庫之後，必須打開一個表才能對其中的數據進行操作。
記錄集（RecordSet）：來自表中的記錄或者執行一個查詢而產生的記錄，這些記錄就組成了一個記錄的集合。在VB中資料庫表中的數據不允許直接訪問，而只能通過創建於內存中的這些記錄集進行記錄的瀏覽與操作。
sql語言：一種資料庫管理中的通用結構化查詢語言。
現在介紹一下VB中的「可視化數據管理器（Visual
Data
Manager）」。可視化數據管理器具有進行資料庫的創建、查看、修改庫結構以及輸入記錄等功能。下面介紹如何利用它建立一個完整的資料庫文件。
一、創建表
1．
從「外接程序」選單中，選擇「可視化數據管理器」，這時出現VisData可視化數據管理器窗口。分別移動滑鼠指針到工具欄上的前三個按鈕,系統會提示要以何種記錄集類型來訪問VB資料庫：一是「表類型記錄集」，二是「動態集類型記錄集」，三是「快照類型記錄集」。我們先選擇「動態集類型記錄集」。
2．
從「可視化數據管理器」的「文件」選單中選擇「新建」，選擇「MicroSoft
Access」類型，再選擇「版本7.0MDB」。
3．
選擇保存庫文件的目錄（設把文件保存在C盤的根目錄中，文件名為Myfile)。
4．
這時出現「資料庫」窗口，此時資料庫已存在，但還不包含任何的表名以及欄位定義等表結構。點擊右鍵，選擇「新表」，添加一個新表，出現「表結構」對話框，在「表名」框中輸入表名（本例表名為Phone）。
5．
單擊「添加欄位」按鈕，顯示「添加欄位」對話框。按要求分別定義「欄位名」、「類型」及「大小」。先輸入第一個欄位，然後按「確定」，反復這一過程，直到輸入全部的欄位（本例欄位分別為「序號」，「Long」，「4」；「姓名」，「text」，「8」；「電話」，「text」,「15」；「地址」，「text」，「30」）。
6．
單擊「關閉」，從「添加欄位」對話框退回到「表結構」窗。點擊「生成新表」，保存表結構。
圖1
VB訪問資料庫的兩種方法
7．
在「資料庫」窗雙擊新建的表名，按「添加」開始向表中添加記錄，完畢後按「更新」。反復這一過程，向表中多增添幾個記錄。
8.在資料庫中再建一個表，表名為Article。表包含欄位為「序號」，「Long」，「4」；「作品」，「text」，「15」(為了簡單起見表中只有兩個欄位)。向表中增加幾條記錄，比如序號1對應有多個作品，序號2也有多個作品。
二、增加索引
右鍵單擊Phone表名，選擇「設計」，在表設計窗口的底部，單擊「添加索引」按鈕，可打開「添加索引到……」對話框。
從「可用欄位」列表中選擇要進行索引的欄位名放到「索引欄位」列表中，根據需要選中「主要的」、「惟一的」、「忽略空值」復選框中的一個或多個的組合，在「名稱」中加入索引名，保存該索引。
三、SQL查詢
在「可視化數據管理器」中打開一個庫文件，在彈出「資料庫」窗口的同時，在其後面會彈出一個「SQL語句」對話框。把其變為當前窗口，可在其中輸入SQL語句，比如：select
phone.姓名,article.作品
from
phone,article
where
phone.序號=article.序號。
然後點擊「執行」按鈕，彈出對話框提問「這是SQL傳遞查詢嗎？」直接回車，選擇默認選項「否」，確認查詢，即可從兩個表中提取滿足條件的記錄信息。還可以點擊「清除」按扭清除框中的查詢語句或按「保存」在資料庫中保存此查詢。值得注意的是，查詢中保存的只是查詢定義語句，而並未物理保存這些被查詢的記錄數據。

Ⅷ 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 中建立資料庫

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

Ⅹ 如何用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)