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