|
Hi SJ,
Dim rsRecords As New ADODB.Recordset
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Const adUseServer = 2
Const adUseClient = 3
Dim intLoop As Integer
cnDB.Open "test_dsn"
rsQry = "SELECT `table$`.F4, `table$`.F3, FORMAT(`table$`.F4, 'yyyy-mm-dd') as INSTALLDATE, `table$`.F6, `table$`.F38 FROM `table$` `table$` WHERE (`table$`.F38 LIKE '%" & GID & "')"
Debug.Print rsQry
rsRecords.CursorLocation = adUseClient
'rsRecords.CursorLocation = adUseServer
'rsRecords.CursorType = adOpenKeyset
'rsRecords.CursorType = adOpenDynamic
rsRecords.LockType = adLockOptimistic
'rsRecords.CursorLocation = adUseClient
rsRecords.CursorType = adOpenStatic
rsRecords.Fields.Append "F4", adBigInt
'rsRecords.Fields.Append "F6", adVarChar
rsRecords.Open rsQry, cnDB
ja es handelt sich um ein ADODB.Recordset, habe wirklich alles probiert, bekomme wenn er bis zum .Update kommt folgende Fehlermeldung:
fehler bei einem aus mehreren schritten bestehenden vorgang prüfen sie die einzelnen statuswerte
|