动态创建Access表

Question

Dim dbspath As String
Dim dbs As Database
Dim myws As Workspace
Set myws = DBEngine.Workspaces(0)
dbspath = App.Path + "\rc.mdb"'具体名称你自己写
If Dir(dbspath) = "" Then
Set dbs = myws.CreateDatabase(dbspath, dbLangGeneral)
dbs.Execute ("create table rc1 ([姓名] text(8),[编号] text(8),[科别] text(8),[出生日期] datetime)")
Else
Set dbs = myws.OpenDatabase(dbspath)
End If以上是我建的一个RC数据库，表为RC1

Answer 1

zhiboyi(易) 
自动编号怎么表示？？？
help?

Answer 2

dbs.Execute ("create table rc1 ([姓名] text,[编号] text,[科别] text,[出生日期] datetime，[所写论文] longtext)")
其中的，[所写论文] longtext
就是备注类型

Answer 3

ADO:
dim cnn as new adodb.connection
...
cnn.execute "Create Table..."
...
================================================================
我是一个兵，来自老百姓。

Answer 4

Access表里的
即某一字段可以设为自动编号，由数据库自己管理，此字段不用输入，系统自动添加。

Answer 5

myTable.Columns.Append "ID",???? '表的第一个字段
myTable.Columns.Append "标题", adVarWChar, 50  '表的第二个字段
myTable.Columns.Append "录入时间", adDate, 50 '表的第三个字段
???? 处 应设为什么参数才是Access中的自动编号字段呢？

Answer 6

你把ID设置为KEY就行了,系统会自动编号的

Answer 7

用 dim ID as integer
这样就会自动编号了

Answer 8

这样子，在建字段的时候建一个“自动编号”字段：
dbs.Execute ("create table rc1 ([自动编号] short,[姓名] text,[编号] text,[科别] text,[出生日期] datetime，[所写论文] longtext)")
也就是定义了一个INTEGER的字段，然后在你增加记录时，dim intN as integer
Data1.Recordset.AddNew
intN=Data1.Recordset.RecordCount
Data1.Recordset("自动编号") = intN
....
就可以了！注：数据库为：ACCESS，访问控件为DATA，比较简单！

Answer 9

我用的是ADOX来创建数据库和表的
我的程序如下：myTable.Columns.Append "ID",???? '表的第一个字段
myTable.Columns.Append "标题", adVarWChar, 50  '表的第二个字段
myTable.Columns.Append "录入时间", adDate, 50 '表的第三个字段我现在要知道的是“？？？？”处需要什么参数或者
编程思想不变，怎么设置ID为自动编号字段呢？？？？

Answer 10

方法同前，在增加更新新记录前用一句代码即可：
Data1.Recordset("ID") = intNmyTable.Columns.Append "ID",???? （是不是填：AdInteger)

Answer 11

有删除记录时你的intN就不会是自增的了唉？？不会吧，大家都不会？？？

Answer 12

解决了，先创建完其他列后，再用SQL语句增加一个列不过还是感谢大家，希望大家继续关注，找出更好的方法我也相信一定有更好的方法！