vb创建access数据库
① 如何用vb建立一个access数据库
您好，是这样的：
用VB建立Access数据库结构
Private Sub Command1_Click()
On Error GoTo Err100
'定义表与字段
Dim DefDatabase As Database
Dim DefTable As TableDef, DefField As Field
Set DefDatabase = Workspaces(0).OpenDatabase(App.Path & "\vbeden.mdb", 0, False)
Set DefTable = DefDatabase.CreateTableDef("VB编程")
'dbBinary = 9
'dbBoolean = 1
'dbByte = 2
'dbChar=18
'dbDate=8
'dbInteger=3
'dbLong=4
'dbMemo=12
'dbText=10
'建立Name字段为8个字符型
Set DefField = DefTable.CreateField("Name", dbText, 8)
DefTable.Fields.Append DefField
Set DefField = DefTable.CreateField("Sex", dbText, 2)
DefTable.Fields.Append DefField
'该字段允许为空
DefField.AllowZeroLength = True
'建立Age字段为3个的常整型
Set DefField = DefTable.CreateField("Age", dbInteger, 3)
'字段追加
DefTable.Fields.Append DefField
'表追加
DefDatabase.TableDefs.Append DefTable
MsgBox " 数据库建立完成！", vbInformation
Exit Sub
Err100:
MsgBox "对不起，不能建立表。请先再建表前建立VBEden数据库？ ", vbCritical
End Sub
Private Sub cmdCreate_Click()
On Error GoTo Err100
'建立名为 VBEDEN 的数据库
CreateDatabase "VB-CODE", dbLangGeneral
MsgBox "数据库建立完成！ ", vbInformation
Exit Sub
Err100:
MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub
建立数据库后，一般用ADO的技术来实现数据操作是比较好的办法。引用微软的ADO组件，里面两个对象一个是连接对象用来连接数据库。另一个记录集对象可以操作数据库。详细的使用请买本书好好看吧，不是几句话可以说清的。
② VB 创建Access数据库
Function TableExist(byval TableName as string) as boolean
{
dim rs as new adodb.recordset
on error goto ErrLab:
rs.open "select top 1 * from " & tablename ,YourConnect
TableExist=true
exit function
ErrLab:
TableExist=false
end function
其中的YourConnect换成你的数据库连接
③ vb6.0如何用程序建立access数据库
用OFFICE里面的ACCESS软件直接建立最新版本
VB里面建立的都是老版本，不可取
④ vb如何添加信息到access数据库~
rs.addnew
rs("字段名1")=你要写入的值
rs("字段名2")=你要写入的值
rs.update
是的。就是那样的。text1.text
你在设计表的时候不是要设计很多字段吗？这些字段你要命名的啊。。
rs("公司名称")=text1.text
就是这个意思。也就是把text1.text增加到该字段。。其实用VB加跟access里加是一个道理。只不过vb的界面友好些。
⑤ VB中怎么动态创建access数据库以及数据库表
在vb中创建一个mdb文件需要用到adox，非常麻烦，还不如用access创建一个空mdb文件,需要用的时候复制一个，改名成123.mdb方便。至于生成表格之类的不是一个问答能说清楚的，还是买本书看看吧。
⑥ 在VB中怎么建立ACCESS数据库
创建数据库和表可以使用 ADOX 对象
数据库创建使用 ADOX.Catalog的 Create 方法，表可以使用 ADOX.Table 对象的 Tables.Append 来增加。
⑦ 使用vb如何创建access数据库
Set wspDefault = DBEngine.Workspaces(0)
Set dbs = wspDefault.CreateDatabase("Newdb.mdb", _
dbLangGeneral & ";pwd=NewPassword", dbEncrypt)
⑧ VB如何在已有的Access数据库中创建数据表
'引用对象库“Microsoft ActiveX Data Objects 2.8 Library”
'引用对象库“Microsoft ADO Ext 2.8. For DDL Security”，简称为ADOX
path1 = Dir(App.Path & "\dat.mdb") '检测文件是否存在
If path1 = "" Then
Text1.Text = "数据库dat.mdb不存在，请先建立数据库~！"
Exit Sub
End If
Dim cat As New ADOX.Catalog '不用cat用另外一个名字也可以
Dim pstr As String
Dim tb1 As New Table
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把这里的4.0改为3.51
pstr = pstr & "Data Source=" & App.Path & "\dat.mdb"
pstr = pstr & ";Jet OLEDB:Database Password=123"
cat.ActiveConnection = pstr
tb1.Name = "学生信息" '表的名称
tb1.Columns.Append "姓名", adVarWChar, 20 '表的第一个字段
tb1.Columns.Append "年龄", adInteger '表的第二个字段
tb1.Columns.Append "性别", adVarWChar, 2 '表的第三个字段
tb1.Columns.Append "出生年月", adDate '表的第四个字段
cat.Tables.Append tb1 '建立数据表
⑨ vb在access数据库中如何创建新表
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名.mdb"
cn.Execute "select * into table2 from table1 where false"
cn.Close
End Sub
如果在复制表结构的同时也复制数据，那么就
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名.mdb"
cn.Execute "select * into table2 from table1"
cn.Close
End Sub
⑩ VB 使用SQL语句创建ACCESS数据库 MDB
Access是文件型数据库，用SQL语句是创建不了的，SQL只能在服务型数据库中创建数据库。
不过你可以建一个空的Access文件，然后通过文件拷贝的方法来新建它的拷贝并改名。这样也是个办法。