先用SELECT idyh  From yhzlb   WHERE idyh = yhzlb.idyh))把数据读出来
然后再删除
adodc1.recordset.delete
adodc1.update

解决方案 »

  1.   

    你最好不要用控件的方法,应该声明变量
    dim conn as new adodb.connection
    dim rs as new adodb.recordset
    conn.open "打开数据库"
    rs.open "表名",conn,3,1
    rs.execute "DELETE FROM ts WHERE (idyh IN (SELECT idyh  From yhzlb   WHERE idyh = yhzlb"
    这样就应该差不多了!
      

  2.   

    你不要使用控件,可以用ADO对象
    dim cnn as new adodb.cnnection
    dim cmd as new adodb.command
    cnn.op "连接数据库"
    cmd.actingcnnection=cnn
    cmd.commandtext="DELETE FROM ts WHERE (idyh IN (SELECT idyh  From yhzlb   WHERE idyh = yhzlb"
    cmd.execute
      

  3.   

    conn.open "打开数据库"
    在这里应该写什么?
    是数据库的路径吗?
      

  4.   

    conn.open "连接字符串"
    你可以将adodc控件中的“使用连接字符串”里的内容粘到这里就可以了