Hallo zusammen,
wie kann ich DB-Tabellen sperren:
Public Sub subMain()
'Verweise: Microsoft ActiveX Data 6.1 Library
Dim dbConnection As New ADODB.Connection
Dim dbCommand As New ADODB.Command
Dim lngAffectedRows&
dbConnection.Open _
"DRIVER={MySQL ODBC 5.3 Unicode Driver};HOST=localhost;USER=myUser;PASSWORD=myPW"
dbCommand.ActiveConnection = dbConnection
dbCommand.CommandType = adCmdText
dbCommand.CommandText = _
"INSERT INTO myDB.personal(name)VALUES('Meyer'),('Müller'),('Schmidt'),('Schulz');"
'?? LOCK TABLES myDB.personal WRITE; ??
dbCommand.Execute lngAffectedRows
'?? UNLOCK TABLES; ??
dbConnection.Close
Set dbCommand = Nothing
Set dbConnection = Nothing
End Sub
Für die Antworten vielen Dank im Voraus!
Peter
|