SqlString = "SELECT * FROM Table WHERE id=1"
        
    rs.CursorLocation = adUseClient
    rs.Open SqlString, conn
    
    rs.MoveFirst
    
    Do While Not rs.EOF
        rs.Delete
        rs.MoveNext
    Loop
    执行到    Do While Not rs.EOF,都正确无误,rs.Delete报错“对象或提供者不能执行所需的操作。”

解决方案 »

  1.   

    SqlString = "DELETE FROM Table WHERE id=1"
    conn.Execute (SqlString)
      

  2.   

    楼上说的没错。
    conn.Execute ("DELETE FROM Table WHERE id=ID")
      

  3.   

    rs.open sqlstring, conn, 3, 1
      

  4.   

    ' 改成这样应该就行了.    SqlString = "SELECT * FROM Table WHERE id=1"
            
        rs.CursorLocation = adUseClient
        rs.Open SqlString, conn, , adLockOptimistic     ' 这句和你的不一样
        
        rs.MoveFirst
        
        Do While Not rs.EOF
            rs.Delete
            rs.MoveNext
        Loop