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"