Dim cnn As ADODB.Connection
cnn.ConnectionString = "..."
cnn.CursorLocation = adUseClient
cnn.Open
cnn.Execute "delete from TABLE where 职员姓名 = '...'"

解决方案 »

  1.   

    Dim cnn As ADODB.Connection
    cnn.ConnectionString = "..."
    cnn.CursorLocation = adUseClient
    cnn.Open
    cnn.Execute "delete from TABLE where 职员姓名 = '...'"
      

  2.   

    Dim cnn As ADODB.Connection
    cnn.ConnectionString = "..."
    cnn.CursorLocation = adUseClient
    cnn.Open
    cnn.Execute "delete from TABLE where 职员姓名 = '...'"
      

  3.   

    可以
    conn.execute("delete * from people where xm='长三'")
      

  4.   

    可以
    conn.execute("delete * from people where xm='装三'")
    回复了一次,没上去
      

  5.   

    delete * from table where 职员姓名='xxx'
      

  6.   

    dim Llng_RecAff as long
    dim LStr_Sql as string LStr_Sql="delete * from people where xm='name'"
    conn.execute lstr_sql,llng_recaff,adcmdText
    if llng_recaff >0 then
       msgbox "success!",vbinformation
    end if