20. november 2001 - 15:10Der er
15 kommentarer og 2 løsninger
ADO og slette række i access tabel
Jeg er ved at ændre en databasetilgang fra DAO til ADO, men har et problem med at slette rækker i en tabel. Det er ved at drive mig til vanvid!
Koden er som følger:
Private dB As ADODB.Connection Private Rs As ADODB.Recordset
Public Function deleteFixtures(pallet_ID) Set dB = New ADODB.Connection dB.Open \"Provider=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & App.Path & \"DataBase.MDB\"
Set Rs = dB.Execute(\"SELECT * FROM PM_Fixtures WHERE pallet_ID=\" & CStr(pallet_ID) & \";\")
Do Until Rs.EOF Rs.Delete Rs.MoveNext Loop
End Function
Ved rs. delete får jeg en runtime error \'3251\' - Objektet eller provideren kan ikke udføre denne kommando
Danmark vil mindske afhængigheden af globale techgiganter, men det kræver mere end politiske formuleringer og strategier, understreger PROSA’s formand Niels Bertelsen.
Så skal du dog åbne recordsettet med lidt andre parametre:
Set dB = New ADODB.Connection dB.Open \"Provider=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & App.Path & \"DataBase.MDB\"
With Rs Set .ActiveConnection=db .CursorType=adUseKeyset .LockType=adLockPessimistic .Source=\"SELECT * FROM PM_Fixtures WHERE pallet_ID=\" & CStr(pallet_ID) & \";\" .Open End With
jep, med mindre du bruger Batch hvor du så skal eksekvere en rd.UpdateBatch for ændringerne skrives
/Jennemaan
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
