Dim cnn As ADODB.Connection
cnn.ConnectionString = "..."
cnn.CursorLocation = adUseClient
cnn.Open
cnn.Execute "delete from TABLE where 职员姓名 = '...'"
cnn.ConnectionString = "..."
cnn.CursorLocation = adUseClient
cnn.Open
cnn.Execute "delete from TABLE where 职员姓名 = '...'"
cnn.ConnectionString = "..."
cnn.CursorLocation = adUseClient
cnn.Open
cnn.Execute "delete from TABLE where 职员姓名 = '...'"
cnn.ConnectionString = "..."
cnn.CursorLocation = adUseClient
cnn.Open
cnn.Execute "delete from TABLE where 职员姓名 = '...'"
conn.execute("delete * from people where xm='长三'")
conn.execute("delete * from people where xm='装三'")
回复了一次,没上去
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