16,549
社区成员
发帖
与我相关
我的任务
分享
Dim dbConnection As OleDbConnection = getAccessConnection()
Dim dataAdapter As New OleDbDataAdapter
Dim sqlstr As String = "DELETE FROM `users` WHERE userId = 4"
If dbConnection.State.ToString = "Closed" Then
MsgBox(Chr(13) & " access 数据库连接失败 " & Chr(13), , "警告")
Exit Sub
End If
Dim MyCommand As New OleDb.OleDbCommand(sqlstr, dbConnection)
Try
Dim dr = MyCommand.ExecuteNonQuery()
'While dr.Read()
'MessageBox.Show(dr.Item(1))
'End While
MessageBox.Show(sqlstr & " && " & dr)
Catch Ex As Exception
MsgBox(Err.Description & "ssss")
Finally
dataAdapter.Dispose()
dbConnection.Close()
dbConnection.Dispose()
End Try