VB 6.0数据库查询代码不会,求指教!
我想要在查询处的3个text中输入钢级、外径和壁厚然后对数据库里面的数据查询我用的就是ADO连接的MDB数据库还有那个datagrid控件没学过数据库不太会弄谁能帮帮我,...
我想要在查询处的3个text中输入钢级、外径和壁厚然后对数据库里面的数据查询 我用的就是ADO连接的MDB数据库还有那个datagrid控件 没学过数据库不太会弄 谁能帮帮我,弄好了给你们发红包好不好?谢谢啦 查询到了我想让控件的指针直到满足要求的位置,没有就给个提示 计算高手都来帮我看看吧!感谢啦
展开
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询