Question

VB 6.0数据库查询代码不会，求指教！

我想要在查询处的3个text中输入钢级、外径和壁厚然后对数据库里面的数据查询
我用的就是ADO连接的MDB数据库还有那个datagrid控件
没学过数据库不太会弄
谁能帮帮我，弄好了给你们发红包好不好？谢谢啦
查询到了我想让控件的指针直到满足要求的位置，没有就给个提示
计算高手都来帮我看看吧！感谢啦

Answer 1

下面的代码基于以下4点假设：
1，控件的名称分别是：
3个文本框从上到下：Text1、Text2、Text3
ADO控件名为：Adodc1，网格控件名为：DataGrid1
2，根据你给出的图片，字段[钢级]为字符类型、[外径]和[壁厚]为数值类型。
3，你的数据库文件名为“数据库.mdb”,且已经保存在与本工程文件同一个文件夹里。
4，你所使用的数据表名为“钢材数据表”

那么，在[查询]按钮的单击事件里，编写如下代码就可以实现你的要求：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * From 钢材数据表 Where 钢级='" & Text1.text & "' And 外径=" & trext2.text & " And 壁厚=" & text3.text
Adodc1.Refresh
If Not (Adodc1.Recordset.EOF And Adodc1.Recordset.BOF) Then
　Set DataGrid1.DataSource = Adodc1
Else

　MsgBox "没找到！"
End If

追问

之前那个对了是text打成trext了

追答

看看
钢级='" & Text1.text & "' And

钢级=后面是一个单引号，再一个双引号，And 前面是一个空格，再前面是一个单引号，再前面是一个双引号！！！！！
这个对于字符类型的字段，与数值类子哪个字段相比，也就是要多艺对单引号！