气势磅礴的爱国演讲稿:VB查询问题高手进

来源：百度文库编辑：查人人中国名人网时间：2024/04/27 09:43:58

Dim msg1 As String
msg1 = InputBox("请输入楼房编号")
Adodc1.RecordSource = "select * from 维护表 where 楼房编号 like + '" & msg1 & "'+ '%'"
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields(0).Value
Text2.Text = Adodc1.Recordset.Fields(1).Value
Text3.Text = Adodc1.Recordset.Fields(2).Value
Text4.Text = Adodc1.Recordset.Fields(3).Value
Text5.Text = Adodc1.Recordset.Fields(4).Value
Combo1.Text = Adodc1.Recordset.Fields(7).Value
Text6.Text = Adodc1.Recordset.Fields(5).Value
Text7.Text = Adodc1.Recordset.Fields(6).Value
此段为查询代码。现在有个问题。数据库内TEXT7对应的是有些有数据有些没数据的状态。如果有数据的时候查询是没问题的。但当数据库对应没内容的时候查询在最后句就会出现错误。因为数据库内没数据而不能执行Text7.Text = Adodc1.Recordset.Fields(6).Value。请问高手要怎么修改才能在数据库内无论是否有数据都能执行
还有msg1 = InputBox("请输入楼房编号")我现在想不要INPUT查询直接根据TEXT中输入的数据查询怎么改
注：数据库为ACCESS

问题1:
加一个on error resume next就解决了..
让程序忽略这个数据=NULL的问题...

问题2:(不太清楚你到底是问的什么)
把[Adodc1.RecordSource = "select * from 维护表 where 楼房编号 like + '" & msg1 & "'+ '%'"] 中的MSG1替换成text的值就可以了...

hao qiang a

VB查询问题高手进 vb查询问题高手来 vb查询问题高手帮帮忙 vb问题高手进 VB问题!!!!!高手进*** VB查询数据库的问题，请高手来救急 vb数据查询问题 VB查询问题 vb查询问题 vb select查询问题