用vb怎么设置数据库的自动编号主键？

来源：百度知道编辑：UC知道时间：2024/06/19 11:04:22

下面是我实验的代码，数据库是建成功了，就是往里面写记录的时候，主键不能自动编号，不知道问题出在哪里，往高手指点一下！谢谢！
Dim ct As ADOX.Catalog
Dim idx As ADOX.Index
Dim tb As Table
Dim iKey As Key
Dim strDB As String
Dim myDefaultvalue

'创建数据库
strDB = "Access_db" '指定数据库名称
If Dir(App.Path & "\" & strDB & ".mdb") <> "" Then
Kill App.Path & "\" & strDB & ".mdb"
End If

Set cat = New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\" & strDB & ".mdb;" & _
"Jet OLEDB:Database Password=abc" '不要密码，可以省略

'连接数据库
Set cat = New ADOX.Catalog
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & A

直接用SQL语句创建表时，将字段设置为自动编号主键就可以了。
dim cn as adodb.connection
dim sql as string
set cn=new adodb.connection
cn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=" & app.path & "\Access_db.mdb"
sql="'CREATE TABLE MyCustomers (CustID int IDENTITY (100,1) PRIMARY KEY, CompanyName nvarchar (50))"
cn.execute sql
set cn=nothing

access数据库.我的id字段是自动编号,我想编号是4位,怎么设置呢? 数据库自动编号的问题 ACCESS数据库中怎么清除自动编号 ACCESS数据库的自动编号问题关于数据库ID自动编号的问题??? 请问access中的自动编号怎么设置？ access 如何设置自动编号的初使值 MDB数据库自动编号问题求一段asp的自动编号的代码(用SQL Server 2000做数据库) 如何实现数据库固定长度的自动编号