用rsTemp.Source = "delete " & strid & " from 表1"试试看

解决方案 »

  1.   

    补充:
    我没有试过rsTemp.Delete的用法,如果只是要删除表1记录的话,一般这样:
    rsTemp.ActiveConnection = cn1
    rsTemp.Source = "delete * from 表1 where 条件"   
    rsTemp.Open 
    即可,
    我不太明白搂主的strid是什么,不可能只删除一行纪录的某几个字段吧
      

  2.   

    1,是不是ACCESS数据文件的属性是只读?2,在访问数据是不是选了以只读方式>?
      

  3.   

    rsTemp.Source = "select " & strid & " from 表1" 
    我这句话的意思是找到id是strid的这条纪录,也就成为当前纪录,然后用rsTemp.delete删除.不过 ymli(阿立) 你说的有道理,我好像sql语句是写的不对,谢谢你.
      

  4.   

    这是一条查询一个没有条件的语句,就只显示一个字段,你试下加WHERE STRID=‘  ’,可能成功。尝试用FIND睇下得唔得。
      

  5.   

    没用过表的添加删除编辑操作,
    如果用ADO的话我个人的习惯做法是把那些操作都放到Connect.Execute中
      

  6.   

    问题出在adLockOptimistic关键字你重新选一个类型
      

  7.   

    Private Sub cmdDelete_Click()
    Dim rsTemp As ADODB.Recordset
    Set rsTemp = New ADODB.Recordset
    rsTemp.ActiveConnection = cn1
    rsTemp.Source = "select " & strid & " from 表1"   'strid已经赋值了的字符串
    rsTemp.Open , , 1, 3
    rsTemp.Delete
    rsTemp.Close或者:
    Private Sub cmdDelete_Click()
    Dim rsTemp As ADODB.Recordset
    Set rsTemp = New ADODB.Recordset
    rsTemp.ActiveConnection = cn1
    rsTemp.Source = "select " & strid & " from 表1"   'strid已经赋值了的字符串
    Dim conn As connection
    Set rsTemp = New connection
    conn.open strconn
    conn.execute "delete from table1 where tiaojian"  'strid已经赋值了的
      

  8.   

    Connection.Execute "Delete From Table where ..."
      

  9.   

    你的数据库人只读,或者你没有更改权限,或者你的用户端游标为Readonly
    以上情况都可能出现你说的情况。
      

  10.   

    如果cn1已经设置好,则:
      增加记录:cn1.exec " insert into tablename (...) values(...)"
      删除记录:cn1.exec " delete from tablename where ..."
      修改记录:cn1.execu " update tablename set 字段=... where ..."
      

  11.   

    喂,老兄,你在逗我们玩吧。你的open语句加了锁,你居然问我们为什么不能删除????吃多了你。别出帖子玩我们!!!!!!!