dim cn as adodc.connection dim strCn as string dim strSQL as stringstrCn = "这里填写与数据库连接的字符串" strSQL = "delete from table_Name where ......" '这是删除数据库的SQL语句 set cn = new adodc.connection cn.open strCn On Error Resume Next cn.beginTrans cn.execute strSQL
If Err = 0 Then cn.CommitTrans msgbox "删除成功" Else cn.RollbackTrans msgbox "删除失败" End If cn.close set cn = nothing
详细操作请参考ADO的相关帮助。
dim strCn as string
dim strSQL as stringstrCn = "这里填写与数据库连接的字符串"
strSQL = "delete from table_Name where ......" '这是删除数据库的SQL语句
set cn = new adodc.connection
cn.open strCn
On Error Resume Next
cn.beginTrans
cn.execute strSQL
If Err = 0 Then
cn.CommitTrans
msgbox "删除成功"
Else
cn.RollbackTrans
msgbox "删除失败"
End If
cn.close
set cn = nothing