|
Изменение счетчика
пример изменения счетчика типа GUID
Public Sub tstUpdateGuid()
'access 2002 and above database format only!!!
Dim rst As Recordset
Set rst = New ADODB.Recordset
CurrentProject.Connection.Execute "GRANT UPDATEIDENTITY ON TABLE t1 TO Admin"
Dim b(0 To 15) As Byte
Dim i
For i = 0 To 15
b(i) = &HFF
Next
CurrentProject.Connection.Execute "update t1 set q = " & StringFromGUID(b()) & " where id = 2"
End Sub
| |