请问怎么让ID号自动填充，从200开始增1 - 编程论坛

#2

andy2922016-11-15 14:49

alter table News2 alter column [ID] counter(200,1)

#3

andy2922016-11-15 14:51

可是常常出无效的字段数据类型错误

#4

andy2922016-11-16 20:04

Sub first()
  Dim aa_w As adodb.Connection
  Set aa_w = CurrentProject.Connection
  Dim bb_w As adodb.Recordset
  Set bb_w = New adodb.Recordset
  bb_w.Open "news2", aa_w, 3,3
  cc_w = 200
  For time_k = 1 To 1911
  bb_w!id = cc_w
bb_w.MoveNext
cc_w = cc_w + 1
Next time_k
  bb_w.Close
  aa_w.Close
  Set bb_w = Nothing
  Set aa_w = Nothing
End Sub

自已写VBA代码修改了字段ID中的信息

#5

andy2922017-02-06 22:26

Sub OrderByX()

    Dim dbs As Database, rst As Recordset

    ' Modify this line to include the path to Northwind
    ' on your computer.
    Set dbs = OpenDatabase("Northwind.mdb")

    ' Select the last name and first name values from
    ' the Employees table, and sort them in descending
    ' order.
    Set rst = dbs.OpenRecordset("SELECT LastName, " _
        & "FirstName FROM Employees " _
        & "ORDER BY LastName DESC;")

    ' Populate the Recordset.
    rst.MoveLast

    ' Call EnumFields to print recordset contents.
    EnumFields rst, 12

    dbs.Close

End Sub

让ACCESS表任意字段排序的VBA代码