『壹』 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製作db資料庫文件
如果用vb來建立資料庫的話，用adox對象就可以了，主要用到下面幾個對象：
Dim
cat
As
New
ADOX.Catalog
'對應資料庫
資料庫文件
Dim
tb()
As
New
ADOX.Table
'資料庫里的表
Dim
cl
As
New
ADOX.Column
'資料庫里的欄位
不過這種方法比較麻煩，簡單的辦法是用文本文件來存儲(如果你不想讓別人知道你用文本文件存儲的數據，你可以文本文件的
後綴名
你可以改成dat,tpl,log....)。給你附帶一個比較完整的文本文件讀寫的代碼：
'以下是讀記事本代碼，讀取後的數據存儲在數組hs()中：
Dim
i
As
Long,
hs()
As
String
i
=
0
ReDim
hs(0)
Open
App.Path
&
"\1.txt"
For
Input
As
#1
Do
While
Not
EOF(1)
ReDim
Preserve
hs(i)
Line
Input
#1,
hs(i)
i
=
i
+
1
Loop
Close
#1
'以下是寫記事本代碼：
dim
filename
as
string
filename
=
"這是第一行"
&
chr(13)
&
chr(10)
&
"這是第二行"
&
chr(13)
&
chr(10)
&
"這是第三行"
&
chr(13)
&
chr(10)
Open
App.Path
&
"\2.txt"
For
Output
As
#1
Seek
#1,
1
Print
#1,
filename
Close
#1
『叄』 vb資料庫編程經典教程
摘要 https://wapv.sogou.com/v?query=vb%E6%95%B0%E6%8D%AE%E5%BA%93%E7%BC%96%E7%A8%8B%E7%BB%8F%E5%85%B8%E6%95%99%E7%A8%8B&p=40230600&tab=video&ie=utf8&rawQuery=vb%E6%95%B0%E6%8D%AE%E5%BA%93%E7%BC%96%E7%A8%8B%E7%BB%8F%E5%85%B8%E6%95%99%E7%A8%8B&vrid=11000404
『肆』 如何用VB建立資料庫
VB6集成調試環境左邊工具箱內已載入了有關資料庫編程必須的控制項。
然後在FORM1窗體中添加ADODC控制項和DATAGRID控制項，將DATAGRID1的屬性DATASOURCE選ADODC1。
打開ADODC1控制項屬性頁使用連接字元串，選生成。在提供者選項中選MICROSOFT jet 4.0 OLE DB Provider,然後按要求連接資料庫等。在ADODC1控制項屬性頁使用連接字元串空白文本窗口中就有一長串字元串，注意該字元串可復制到程序代碼用於編程。ADODC1控制項屬性頁的數據源內有命令文本（SQL）編寫窗口可編寫SQL查詢語言。該窗口的SQL語句可復制到程序代碼用於編程。
『伍』 怎麼用vb寫語句把資料庫的值寫到報表裡
在SQL SERVER里往Excel插入數據:
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)
T-SQL代碼：
INSERT INTO
OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',
'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]
(bestand, prokt) VALUES (20, 'Test')
『陸』 VB的資料庫怎麼建啊
…糾正上面那個，是access資料庫，現在應該是access2007的，屬於office組件里的，網上可以下到，然後用vb中的data控制項可以對資料庫進行操作了
『柒』 用vb製作db資料庫文件
如果用vb來建立資料庫的話，用adox對象就可以了，主要用到下面幾個對象：
Dim cat As New ADOX.Catalog '對應資料庫資料庫文件
Dim tb() As New ADOX.Table '資料庫里的表
Dim cl As New ADOX.Column '資料庫里的欄位
不過這種方法比較麻煩，簡單的辦法是用文本文件來存儲(如果你不想讓別人知道你用文本文件存儲的數據，你可以文本文件的後綴名你可以改成dat,tpl,log....)。給你附帶一個比較完整的文本文件讀寫的代碼：
'以下是讀記事本代碼，讀取後的數據存儲在數組hs()中：
Dim i As Long, hs() As String
i = 0
ReDim hs(0)
Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve hs(i)
Line Input #1, hs(i)
i = i + 1
Loop
Close #1
'以下是寫記事本代碼：
dim filename as string
filename = "這是第一行" & chr(13) & chr(10) & "這是第二行" & chr(13) & chr(10) & "這是第三行" & chr(13) & chr(10)
Open App.Path & "\2.txt" For Output As #1
Seek #1, 1
Print #1, filename
Close #1
『捌』 如何用VB語言編寫資料庫操作界面，實現資料庫內容顯示，資料庫記錄添加，刪除和修改（求程序）
Private Sub Form_Load()
Dim con As New ADODB.Connection '定義資料庫的連接存放數據和代碼
Dim Rs As New ADODB.Recordset
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\學生信息.mdb;Persist Security Info=False"
con.Open
If Rs.State <> adStateClosed Then Rs.Close
Rs.CursorLocation = adUseClient
Rs.Open "Select * from 學生信息", con, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs.DataSource
End Sub