是你的 SQL 语句 有问题, 或者说是没写完整.
=================================================================
此示例使用两个文本字段和一个整型字段来创建新的表。SSN 字段是主键。Sub CreateTableX3()Dim dbs As Database' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")' 使用三字段和一个主键来创建表。
dbs.Execute "CREATE TABLE NewTable " _
& "(FirstName TEXT, LastName TEXT, " _
& "SSN INTEGER CONSTRAINT MyFieldConstraint " _
& "PRIMARY KEY);"dbs.CloseEnd Sub
=================================================================
此示例使用两个文本字段和一个整型字段来创建新的表。SSN 字段是主键。Sub CreateTableX3()Dim dbs As Database' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")' 使用三字段和一个主键来创建表。
dbs.Execute "CREATE TABLE NewTable " _
& "(FirstName TEXT, LastName TEXT, " _
& "SSN INTEGER CONSTRAINT MyFieldConstraint " _
& "PRIMARY KEY);"dbs.CloseEnd Sub
解决方案 »
- 求助:VB中利用webbrowser控件出现的一个问题
- 高手们.....帮忙看看..是怎么回事好吗?
- vb中数据高效率查询问题
- 急!如何在ListView中,嵌入ComboBox??
- 问一个很小白的问题,如果需要打印一个文件,现在这个文件已经在打印队列中了,能否或者打印队列中的文件,并对其进行修改啊
- 新开的群,大家快来啊
- 四个角了,散分!!!
- 如何在打开的数据库连接中操作其他库的数据表?
- help me!关于NT4和硬盘分区的闻所未闻的怪问题,急切地等你进来解决.........
- VB调用dll,在dll执行时窗口就不响应鼠标了,该怎么办?出错了,下面的帖子内容拿来的???
- 请教:用W3 Jmail收发邮件的方法。请你来教我。
- 怎样使菜单显示在窗体两边???????????????
strsql="create table 表名 (name.text 字段类型)"
引用ADOX使用下列代码:创建表范例
如下代码演示如何创建新表。Sub CreateTable() Dim tbl As New Table
Dim cat As New ADOX.Catalog'打开目录。
' 打开目录。
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;" tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tblEnd Sub
如果我想建立一个ID字段,并他会自动编码的,应该怎样写呢,用SQL???谢谢!
的代码中有呀。SSN 字段是主键
dbs.Execute "CREATE TABLE NewTable " _
& "(FirstName TEXT, LastName TEXT, " _
& "SSN INTEGER CONSTRAINT MyFieldConstraint " _
& "PRIMARY KEY);"