Dim strsql1 As String
strsql = "delete KQBRUSH" & Trim(MEditBox9.Text) & "where skrq=" & Trim(MEditBox8.Text)
rs.Open strsql
rs.Close
MEditBox8.Text = "删除成功!"
strsql = "delete KQBRUSH" & Trim(MEditBox9.Text) & "where skrq=" & Trim(MEditBox8.Text)
rs.Open strsql
rs.Close
MEditBox8.Text = "删除成功!"
应该是 conn.execute(strsql)
注意加个空格防止MEditBox9.Text为空
conn.excute strsql
首先把所有的变量替换成常数 看看语句本身的语法有没错误
然后在把变量换上去测试楼主的Sql语句看似有问题
delete KQBRUSH" & Trim(MEditBox9.Text) & "where skrq=" & Trim(MEditBox8.Text)
--------------------------------------------------------------------------------
delete tabTmp where field= VarTmp
难道lz的表名是KQBRUSH+Trim(MEditBox9.Text)么?