怎么用vb建立数据表的自动编号字段?最好列举一下其他字段的建法,谢了

Question

用ACCESS的话好像对主关键字自己就会自动排序啊，不懂你的意思。

Answer 1

我说的是用vb建立数据表,然后用vb建立各字段
accsess数据库

Answer 2

比如：
Dim DefDatabase As Database
Dim DefTable As TableDef, DefField As Field
Set DefDatabase = Workspaces(0).OpenDatabase(App.Path & "\www.mdb", 0, False)
Set DefTable = DefDatabase.CreateTableDef(www)
Set DefField = DefTable.CreateField("id", dbInteger, 2)
我想知道如何建立自动编号字段??有谁知道啊

Answer 3

Dim db As New Connection
db.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Persist Security Info=False"
db.CursorLocation = adUseClient
db.Open
db.Execute "Create Table " & 表名 & "([id] Counter,[时间] Date,[实测温度] Single,[温度偏差] Single,Constraint StatePrimary Primary key ([id]))"

Answer 4

我以前也遇到过这个问题，但没解决，曾经尝试在ACCSESS建一自动编号字段，再用VB测试其类型属性，也未成功，如能解决，我也给分。

Answer 5

CREATE TABLE dbo.TABLE2 id int NOT NULL IDENTITY (1, 1), test varchar(50) NULL嘿嘿，这是SqlServer的语法，Asccess不知道能不能用，我去试一下~

Answer 6

Dim OpenDataBaseFile As Database
Dim DataBaseTableDef As TableDef
Dim DataBaseField As FieldSet OpenDataBaseFile = CreateDatabase("FileName", dbLangGeneral)Set DataBaseTableDef = OpenDataBaseFile.CreateTableDef("Library")
      
Set DataBaseField = DataBaseTableDef.CreateField("ID", dbLong)
DataBaseField.Attributes = dbAutoIncrFieldDataBaseTableDef.Fields.Append DataBaseField

Answer 7

呵呵，终于找到了，试试运行下面的查询：CREATE TABLE TABLE2 (id  GUID)

Answer 8

先查字段中数据的最大值，令最大值加1，如无数据则为1
    sql = "select max(num) as a from renyuan"
    Set rs = conn.Execute(sql)
    If Not rs.EOF Then
        maxblh = rs!a+1
    Else
        maxblh = 1
    End If

Answer 9

你用的是ACCESS数据库吧.
zzzwww(西蜀)的方法是正确的