UC知道Vb+access怎麼实现多项查询?
来源：百度知道 编辑：UC知道 时间：2024/05/15 19:12:17
Vb+access
在一个grCombo1中有编号,刀号,用途,名称,种类几项,那我commindFind怎麼写能让它的结果在DataGrid1里面显示出来?
代码怎麼写?
……
Adodc1.RecordSource = "select * from gr order by 编号 asc"
……
谢谢 希望有具体代码
表名是gr
晕 你没明白我的意思
我要查询 把access里面的内容按编号,刀号,用途,名称,种类查询
就是比如grCombo1选种名称,点查询按钮 就出来一个对话框 具体输入信息就能在DataGrid1中线是那条纪录
If Trim(Text2.Text) <> "" And Combo1.Text <> "" Then
这里就出错 还有text2.text干吗用的?
若果能实现了 我追分喔 谢谢先 麻烦了 我太菜了...T_T
我不想用txt,我想用inputbox
在一个grCombo1中有编号,刀号,用途,名称,种类几项,那我commindFind怎麼写能让它的结果在DataGrid1里面显示出来?
代码怎麼写?
……
Adodc1.RecordSource = "select * from gr order by 编号 asc"
……
谢谢 希望有具体代码
表名是gr
晕 你没明白我的意思
我要查询 把access里面的内容按编号,刀号,用途,名称,种类查询
就是比如grCombo1选种名称,点查询按钮 就出来一个对话框 具体输入信息就能在DataGrid1中线是那条纪录
If Trim(Text2.Text) <> "" And Combo1.Text <> "" Then
这里就出错 还有text2.text干吗用的?
若果能实现了 我追分喔 谢谢先 麻烦了 我太菜了...T_T
我不想用txt,我想用inputbox
使用inputbox
test= InputBox("输入", "测试")
你把下面的text2.text 全部换成test，试一下再看
使用combo，显示条件，比如说你的编号，用途等等，第二个输入条件
代码这么写，我使用ado，
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名字.mdb;Persist Security Info=False"
rs.Open "select * from gr", conn, adOpenStatic, adLockReadOnly
If Trim(Text2.Text) <> "" And Combo1.Text <> "" Then
If rs.RecordCount > 0 Then
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenStatic
rs1.LockType = adLockReadOnly
rs1.Open "select * from gr where " & Trim(Combo1.Text) & " like +'" + Trim(Text2.Text) + "'+'%'", conn
MsgBox "共找到" + str(rs1.RecordCount) + "条记录"
Set DataGri