Question

如何在vb中实现对数据库表中信息的删除

a = Trim(Text1.Text)
myssql = "insert into 意见箱 values('" & Trim(Text2.Text) & "', '" & Trim(Text3.Text) & "', '" & a & " ')"
my = "delete from 未回复意见 where 信息=" & Trim(Text3.Text) & ""
cnn.Execute myssql, my
MsgBox ("☆☆回复成功☆☆！")
rs.Requery
rs.MoveLast
Text1.Locked = True
cmdsave.Enabled = False
cmdadd.Enabled = True
Else
myval = MsgBox("☆你要取消回复？☆", vbYesNo)
If myval = vbYes Then
rs.CancelUpdate
rs.MoveFirst
Call viewdata
cmdsave.Enabled = False
Text1.Locked = True
cmdadd.Enabled = True
Exit Sub
Else
Text1.SetFocus
End If
End Sub
定义的my为什么无法实现删除的功能

Answer 1

将 my = "delete from 未回复意见 where 信息=" & Trim(Text3.Text) & "" 改成
my = "delete from 未回复意见 where 信息='" & Trim(Text3.Text) & "'"

你再试试

Answer 2

cnn.Execute myssql, my 这一句有两条sql 语句,让他怎么执行.还有,myssql语句插入,你有三项,对应的字段却没有.怎么运行.????

追问

这个只是部分程序，我没权粘上，我就想知道这两条语句怎么能同时执行

追答

分开 写成两行

追问

写成两行的话说是参数不足，期待是1