Question

VB如何实现点击一个按钮便在一个指定的数据库中新建一个名为表1的表，再次点击便新建一个名为表2的表

Answer 1

Private Sub Command1_Click()
Static n As Integer
Dim conn As Object
Set conn = CreateObject("adodb.connection")
conn.open "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\123.mdb"
n = n + 1
conn.execute "create table 表" & n
conn.Close
Set conn = Nothing
End Sub

以上代码指定的数据库是当前目录的123.mdb

追问

重新运行程序 会提示表1已经存在 怎样将新建表的名字设为Text1的内容，并将字段设为姓名，时间，地点 。还有VB怎么将access数据库的某个字段中值是1的各数赋给某一整形变量

Answer 2

创建表必须有数据库，表中必须有字段，字段有数据类型、字段大小，这样创建。
例如在数据库“资料.mdb”中创建表1，表1有：“姓名”字段，数据类型是文本，大小是20个字节，等等。
或：在界面设计字段名称文本框，数据类型下拉框，数据大小文本框等，这个就比较繁琐了。