vb程序自動創建資料庫

1. 如何用VB建立資料庫

但即便如此，資料庫應用程序的開發仍然算得上是VB編程中的難點，這是因為你不僅要熟悉VB中關於資料庫編程方面的知識（當然這是十分簡單的）還要了解資料庫的知識。所以我們先介紹一下資料庫的基本知識，算是學習資料庫編程前的熱身運動吧！ 一、熱身運動 首先需要聲明是，我們這里介紹的資料庫知識都是指的關系資料庫。所謂關系資料庫就是將數據表示為表的集合，通過建立簡單表之間的關系來定義結構的一種資料庫。 不管表在資料庫文件中的物理存儲方式如何，它都可以看作一組行和列，與電子表格的行和列類似。在關系資料庫中，行被稱為記錄，而列則被稱為欄位。下面是一個客戶表的例子。 表1 客戶表 客戶號 姓名 地址 城市 街道 郵編 1723 Doe John 1234 Ffth Avenue New York NY 1004 3391 Smith Mary 9876 Myrtle Lavee Bosten MA 6078 3765 Blasel Mortimer 2296j River Road peoria IL 7011 此表中每一行是一個記錄，它包含了特定客戶的所有信息，而每個記錄則包含了相同類型和數量的欄位：客戶號、姓名等等。 表 是一種按行與列排列的相關信息的邏輯組，類似於工作單表。 欄位 資料庫表中的每一列稱作一個欄位。表是由其包含的各種欄位定義的，每個欄位描述了它所含有的數據。創建一個資料庫時，須為每個欄位分配一個數據類型、最大長度和其它屬性。欄位可包含各種字元、數字甚至圖形。 記錄 各個客戶有關的信息存放在表的行，被稱為記錄。一般來說，資料庫表創建時任意兩個記錄都不能相同。 鍵 鍵就是表中的某個欄位（或多個欄位），它（們）為快速檢索而被索引。鍵可以是唯一的，也可以是非唯一的，取決於它（們）是否允許重復。唯一鍵可以指定為主鍵，用來唯一標識表的每行。例如，在前面的例子中，客戶標識號 (客戶號) 是表的主鍵，因為客戶號唯一地標識了一個客戶。 關系 資料庫可以由多個表組成，表與表之間可以以不同的方式相互關聯。例如，客戶資料庫還可以有一個包含某個客戶的所有定單的表。它只用「客戶號」欄位來引用該定單的客戶，而不在定單表中的每項重復所有客戶信息，如下表所示: 表2 定貨表 定貨 客戶號 日期 內容 數量 14764 3391 2/23/94 27 $22.95 14932 3391 3/17/94 46 $9.57 15108 8765 2/15/96 27 $22.95 在這個表中，客戶號欄位引用了客戶表中的 客戶號欄位，從而把定單和客戶聯系起來了。可以看到，客戶 3391 (Mary Smith) 在 94 年 2 月 23 日訂購了 27 項，在 94 年 3 月 17 日訂購了 46 項。用來建立關系的鍵叫做外部鍵，因為它與「外部」表（客戶表）的主鍵關聯。 一對多和多對多關系 上表中的關系類型叫做一對多關系，因為一個客戶可以發出多個定單，而某個特定的定單只能是一個客戶所發。也可以建立多對多的關系。例如，列出所有可以銷售的項（存貨）的盤存表: 表3 盤存表 內容 描述 供應商 費用 盤存 27 Straw Hat Garden Supply Co. $14.00 50 46 Garden gloves Garden Supply Co. $4.50 75 102 hanging floral instries $6.00 137 從盤存表中，可以看到在客戶和存貨項之間存在多對多的關系。也就是說，一個客戶可以訂購多個存貨項，而一個存貨項又能夠被多個客戶訂購。多對多關系是通過兩個獨立的一對多關系來定義的，公共的「多」表包含了兩個其它表的外部鍵。在該例中，定貨s 表與 盤存 表（通過 「內容」）與 Customer 表（通過 客戶號）都相關聯。

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

1.在界面上點接外接程序
2.可視化數據管理器
3.新打開的界面點文件
4.新建
5.選MICSOFT ACCESS
6.選擇一個MDB按自己要求進行表的設置

3. 如何用vb動態創建資料庫的表

For i = 2 To 6
tbl.Columns.Append "MyField"虛叢 & i, adInteger '表的第i個欄位滾譽差
Next i

可以大皮使用循環語句創建表

4. vb中應用資料庫需要手動建立資料庫嗎還是vb程序里會自動建一個

需要手工建立資料庫輪核，各種資料庫應用需求不用，開發掘桐團工具不會提供一個通判橘用模板的。
當然創建資料庫的代碼是可以寫在vb中，當程序運行的時候創建。

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

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

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

步驟：

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

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

3、這時路徑下就有了一個access文件，可以右鍵-重命名來為資料庫起名，如，起名叫測試資料庫；

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

6. 如何用VB建立資料庫

VB6集成調試環境左邊工具箱內已載入了有關資料庫編程必須的控制項。專
然後在FORM1窗體中添加ADODC控制項和DATAGRID控制項，屬將DATAGRID1的屬性DATASOURCE選ADODC1。
打開ADODC1控制項屬性頁使用連接字元串，選生成。在提供者選項中選MICROSOFT jet 4.0 OLE DB Provider,然後按要求連接資料庫等。在ADODC1控制項屬性頁使用連接字元串空白文本窗口中就有一長串字元串，注意該字元串可復制到程序代碼用於編程。ADODC1控制項屬性頁的數據源內有命令文本（SQL）編寫窗口可編寫SQL查詢語言。該窗口的SQL語句可復制到程序代碼用於編程。

7. 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

8. 通過vb生成資料庫

先在菜單「工程」-->「引用」兩個東東：
「Microsoft ActiveX Data Objects 2.7 Library」
「Microsoft ADO Ext.2.7 for DDL ado Security」

Private Sub Command1_Click()
Dim mDataBaseName As String
Dim mCnnStr As String
Dim cCnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim mTable As New ADOX.Table
Dim mCol As New ADOX.Column

mDataBaseName = App.Path & "\我的資料庫.mdb"
If Dir(mDataBaseName) <> "" Then
Kill mDataBaseName '刪除已有的資料庫文件
End If

mCnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mDataBaseName & ";Jet OLEDB:DataBase Password="
Call cat.Create(mCnnStr) '創建新的資料庫

mTable.Name = "職員資料"

Set mCol.ParentCatalog = cat
With mTable
'創建欄位
.Columns.Append "編號", adInteger
.Columns.Append "姓名", adVarWChar, 50
.Columns.Append "職位", adVarWChar, 50
.Columns.Append "電話", adVarWChar, 50
.Columns.Append "地址", adVarWChar, 50
.Columns.Append "是否在職", adBoolean, 0
'設置主鍵
.Keys.Append "PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "編號", "", ""
End With

cat.Tables.Append mTable
Set mCol = Nothing
Set mTable = Nothing
Set cat = Nothing

End Sub

大致是這樣創建的，關於創建欄位名的數據類型由於內容太長，在此不貼了，按F1（假設安裝了MSDN）查詢吧。呵呵。

9. 如何用VB編寫可以動態生成資料庫和表的程序

那隻是創建表.還不算動態,動態要二維數組,表達行和列.
如: Dim myDB As DAO.Database
Set myDB = DAO.Workspaces(0).CreateDatabase("d:\md\lll.mdb", dbLangGeneral)
myDB.Execute "Create Table " & 表名 & "(" & "id Counter," & mm1 & " Text(10))"
'生成一個d:\md\lll.mdb資料庫存
myDB.Close
打斷它:. 表名=數組 欄位= combo2數組 欄位屬性= combo3數組
for..i=0 to combo2.ListCount-1'主工部分處理
myDB.Execute "Create Table " & 表名 & "(" & combo2.list(i) & combo3.list(i) ")"
next
這樣生成的表就是一個完全動態的表名,行 列 欄位都能自己定義的動態表,
調用查詢/刪/增/修改.都分別以數組

如:
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ur

sq = "select * from " & uyu & " where " & stm(3) & "='" & Form2.Text1(3) & "'"
rs.Open sq, cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
MsgBox "" & stm(3) & "重復，不能添加數據", vbExclamation, "查詢"
rs.Close
cn.Close

查詢:

For i = 1 To rs.RecordCount
Set Fliv = Form1.ListView1.ListItems.Add()
Fliv.Text = rs.Fields(stm(1))
For r = 1 To sn - 1
Fliv.SubItems(r) = rs.Fields(stm(r + 1))
Next
rs.MoveNext
Next i
'sts = stm(1) & "='" & Form3.Text1(1) & "', " & stm(2) & "='" & Form3.Text1(2) & "', " & stm(4) & "='" & Form3.Text1(4)
For r = 1 To sn - 1

rn = rn + stm(r) & "='" & Form3.Text1(r) & "', "

Next
sts = rn & stm(sn) & "='" & Form3.Text1(sn)
' Form3.Text1(sn).Enabled = False
sq = "Update " & uyu & " set " & sts & "' where " & stm(3) & "='" & Form3.Text1(3) & "'"
cn.Execute (sq)
MsgBox "數據修改完成", vbInformation, "修改"

cn.Close
Set cn = Nothing

Form1.ListView1.ListItems.Clear '先清空表格里的數據
載入列表數據
設成公用變數,全換成數組之後,反面簡單明了..
只用提供表名,及欄位馬上就可以生成你需要資料庫..動態數組的交集就是所需字
記錄.查詢和調用都極為便利.更重要的是大大減小了資料庫負擔

10. VB中怎麼動態創建access資料庫以及資料庫表

在vb中創建一個mdb文件需要用到adox，非常麻煩，還不如用access創建一個空mdb文件,需要用的時候復製版一權個，改名成123.mdb方便。至於生成表格之類的不是一個問答能說清楚的，還是買本書看看吧。