■□■□高分求救：一个菜鸟的问题，如何用VB在 ACCESS 数据库中动态创建一个数据表？？

[bluebill]

这个数据表中有一个字段是自动排序的，如何设置类型。
请高手给出代码，只要调试可以通过，就马上给分！！！

[ganzhiruogy]

TAdoCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\Application.mdb"
TAdoCn.Execute "CREATE TABLE Application " & _
"( [id] Identity not null, [Date] date not null)"


收分咯！！！！！！

[lxqlogo0]

Private connstr As String
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
connstr = "Data Source=c:\master.mdb"
cn.ConnectionString = connstr
If cn.State = adStateOpen Then
cn.Close

Else
cn.Open
End If
sql = "create table s(s char(5),sn char(8))"
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
If rs.State = adStateOpen Then
rs.Close
End If
rs.Open sql, cn, adOpenKeyset, adLockPessimistic

[bluebill]

字段包括，一个自动排序的字段（设置为主键）；一个姓名字段；一个年龄字段；一个出生日期字段。

楼上的兄弟放心吧，一定给你分。

[bluebill]

大家动手这么快，我现在才补充完整啊！

[zzyy1998]

在此之前你必须引用Microsoft ADO libriry
dim conn as adodb.connection
dim rs as adodb.recordset
set conn=new adodb.connection
set rs=new adodb.recordset
conn.open"......(其实这段可以先用控件弄出来的，直接复制粘贴就行了，我试过了很管用的)"
rs.open"(SQL语句中变量是'"&text1.text&"')"，conn,.....(一串，有提示的)
哎呀差不多了就这样咯

[ganzhiruogy]

分??
:(

[bluebill]

各位大哥，在给点代码把，中午结账了。
想要分数的再继续啊