用VB连接SQL server 2005实现对数据库的增删改查，我照书上写的语句，全是错误，我菜鸟啊~~求大神帮帮~

发布网友发布时间：2022-10-04 23:40

共2个回答

热心网友时间：2023-10-16 05:53

照书上写的语句，全是错误,主要是语法错误，你注意一下，就可以了。例如：

'判断是否有相同内容的记录
txtSQL = "select * from 出库信息表 where rkno <>'" & Trim(Text1(0)) & "'and rkname='" & Trim(Text1(1)) & "'and rkaccount='" & Trim(Text1(2)) & "'"
Set mrc = executeSQL(txtSQL, MsgText)

应该改为：
'判断是否有相同内容的记录
txtSQL = "select * from 出库信息表 where rkno <>'"" & Trim(Text1(0)) & ""'and rkname='"" & Trim(Text1(1)) & ""'and rkaccount="'" & Trim(Text1(2)) & "'"
Set mrc = executeSQL(txtSQL, MsgText)

这些错误，就是印刷时候的错误，或者是你输入时候的错误，你得认真看准了。
"" 是错的，应该是 """ .

热心网友时间：2023-10-16 05:54

你应该在txtSQL = 的这个地方添加断点，当执行过这句话之后，在调试窗口输入：
?txtSQL，点击回车，这样就能得到txtSQL这个变量的值。把txtSQL的值放到SSMS中进行查询，看能不能得到查询结果，如果不能说明你的查询语句有问题，根据SSMS的提示在vb中修改txtSQL=的赋值语句