Information générale
Catégorie:
Bases de données DAO/RDO/ODBC/ADO
>Yes, There is no Edit method for ADO, but you can use Select statement and then trap the error code, the codes should be as follow:
>
>On Error goto ErrorHandler
>Dim mSQL as String
>Dim rsMyRecord as ADODB.Recordset
>
>mSQL = "Select * from MyTable Where MyCode = 'myCriteria' Order by MyCode"
>rsMyRecord.Open mSQL,YourConnectionString ..., adOpenKeyset, adLockOptimistic
>rsMyRecord.MoveLast
>
>rsMyRecord!MyField1 = ...
>rsMyRecord!MyField2 = ...
>rsMyRecord.Update
>rsMyRecord.Close
>
>ErrorHandler:
>Select Case Err.Number
>case 0
>Case 3021 ' Specified Record not found
>' You May Add New Record Here
>Resume next
>Case else ' Trap another errors
>...
>...
>End select
>
>Best Regards
>Winan
You can check the Recordcount property to see if the SQL statement returned any rows.
With this option (your code above) you could be duplicating code (in the main body as well as on your error handler) or putting all of the code in the error handler.
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement