‘壹’ 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