vb60查询数据库

① vb6.0锛宎ccess鏁版嵁搴撴煡璇锛屽瓧娈碉纴镞ユ湡锛屾槸 2014-12-11 16:40 镞ユ湡镞堕棿

鐢⊿QL璇鍙ユ煡璇㈠氨鍙浠ヤ简锛屽氨鏄涓鎸夋椂闂存垫煡璇銆
濡傦细涓嬮溃镄勫紩鐢ㄨ嚜锏惧害鐭ラ亾http://..com/question/75161552.html
甯哥敤镄勬儏鍐碉细
between:
select * from [tablename] where [镞ユ湡] between '2008-01-01' and '2008-10-31'
--镆ヨ㈠瓧娈砾镞ユ湡]鍦2008-01-01(钖)镊2008-10-31(钖)涔嬮棿 琛╰ablename镄勮板綍銆

in:
1銆乻elect * from [tablename] where [镞ユ湡] in ('2008-01-01','2008-02-01','2008-03-01')
--镆ヨ㈣〃tablename涓璠镞ユ湡]鏄2008骞寸涓瀛ｅ害绗涓澶╃殑璁板綍
2銆乻elect * from [tablename] where [镞ユ湡] in (select [镞ユ湡] from [tb] where 𨱒′欢... )
--镆ヨ㈣〃tablename閲孾镞ユ湡]鍦 锛堣〃tb 閲岀﹀悎𨱒′欢 镄 镞ユ湡锛夈
--------------------------------------------------
鐭ラ亾涓婇溃澶氢简锛屾坊锷犳煡璇㈡浔浠剁殑镞跺欐敞镒忔椂闂存棩链熺殑璇娉曞氨鍙浠ヤ简銆傛湁鎻愰梾棰樼殑锷熷か锛岀栌搴﹀氨链夌瓟妗堜简

② VB6.0中怎样使用data控件实现数据库查找功能

1、使用data控件的FindFirst方法可以实现数据库记录的查找。

2、工具：vb6。

3、具体实现方法：

a)在窗体上添加data1、dbgrid1、text1、command1、label1

b)在dbgrid1的DataSource属性里选择data1

c)实现代码如下：

PrivateSubCommand1_Click()
'查找定位记录
Data1.Recordset.FindFirst"CategoryID="&Text1.Text

DBGrid1.DataSource
EndSub

PrivateSubForm_Load()
Data1.Connect="Access2000;"'设置数据库类型
Data1.DatabaseName="C:db1.MDB"'连接数据库
Data1.RecordSource="Categories"'数据库中的表
Data1.Refresh'打开数据库

EndSub

4、注意：数据库可以使用vb6文件夹内的NWIND.MDB

③ VB6.0璁剧疆镆ヨ㈣鍙ワ细鎸夋棩链熸煡璇㈡暟鎹

绗涓鍙ヤ唬镰侊纴浣犵殑铡熸潵镄勪唬镰佸悗闱㈠皯浜嗕釜鍙屽紩鍙 "
濡傛灉杩树笉瀵癸纴闾ｅ氨鏄锛
鏁版嵁搴挞噷镄勫瓧娈 镞ユ湡 鏄镞ユ湡鍨嬬殑钖э纻闇瑕佸皢镆ヨ㈣浆鎹㈡垚镞ユ湡鍨嬬殑锛屾墠浼氩尮閰嶃
Adodc1.RecordSource ="Select * from Data Where 镞ユ湡=cdate('" & str(DTPicker2.Value) & "')"

绗浜屼釜闂棰桡纴鐢ㄤ竴涓猳rder by 锛屼袱涓绫诲埆椤哄簭鍐欙纴鍏堟帓鍓嶉溃镄勶纴濡备笅锛
Adodc1.RecordSource = "select * from Data order by 镞ユ湡 desc, 鐗╂枡镙囱瘑 desc"