关于数据库记录的删除

Question

我是用DAO方法访问数据库的用下面的语名删除记录
Dim sms As String
On Error GoTo delerr
sms = MsgBox("确定删除这组记录", vbQuestion + vbOKCancel, "确定删除")
If sms = 1 Then
  BeginTrans
    date1.Recordset.Delete
  CommitTrans
Data1.Recordset.MoveNext
If Data1.Recordset.RecordCount > 0 Then
  If Data1.Recordset.EOF Then
     Data1.Recordset.MoveLast
  End If
End If
End If
Exit Sub
delerr:
 Rollback
 MsgBox Err.Description但是系统提示要求对象请问这是怎么回事?

Answer 1

Public conn As New ADODB.Connection
conn.RollbackTrans
 
conn.CommitTrans你的CommitTrans面的東西都沒有

Answer 2

我是用data控件的好像不用上面的语句吧?
能说详细点嘛?

Answer 3

你怎么会在vb里面写出sql server中的东东呢?

Answer 4

你把CommitTrans這些去掉，這些是事務處理

Answer 5

我晕，楼主啊，以后写程序仔细点
date1.Recordset.Delete
Data1.Recordset.MoveNext
是date1还是Data1