『壹』 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中如何查詢資料庫以及如何在DBgrid中顯示查詢結果
你是想在dbgrid中顯示「流量」表中所有的結果吧，給你一個更好的辦法使用MSFlexGrid控制項，引用DAO libarary 3.51，將查詢結果輸出到MSFlexGrid中就可以了。
照你的例子給你重新寫一下：
Private Sub Command3_Click()
dim rs as adodb.recordset
sql = "select * from table where '流量m3/h'>d"
rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
MSFlexGrid.cols=rs.recordcount
i=rs.recordcount
do until rs.eof
for j=0 to i
MSFlexGrid.col=j
MSFlexGrid.text=rs("欄位名")
next
rs.movenext
loop
End Sub
這樣就可以了
『叄』 vb6 如何查找資料庫指定記錄
你的問題太籠統了，或者說太大了。
1，首先使用VB6提供的資料庫連接對象，去連接你的資料庫文件。
2，使用對象，方法，返回記錄集。
3，將返回的記錄集中的記錄，顯示出來。
你可以，到網路搜索一下以下相關主題。
VB6 + ACCESS
VB6 + SQL SERVER
『肆』 VB6.0 oledb 查詢資料庫
給你個模塊 以後連接數據可以重復使用新建個模塊 內容如下'自定義連接資料庫
Public Sub LinkDB(ByVal strcn As String)
'判斷連接的狀態（是否打開）
If cn.State = adStateOpen Then
'連接關閉
cn.Close
'從內存清空
Set cn = Nothing
End If
cn.Open strcn
End SubPublic Sub ExecuteSQL(ByVal strSQL As String)
If rs.State = adStateOpen Then
'連接關閉
rs.Close
'從內存清空
Set rs = Nothing
End If
With rs
.CursorLocation = adUseClient '游標的位置在客戶端
.CursorType = 2 'adOpenDynamic '開放式動態游標
.LockType = 3 'adLockOptimistic '開放式鎖定
.ActiveConnection = cn '活動連接
.Open strSQL '執行SQL語句
End With
End Sub 要連接數據為時只要這樣:strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cpjl.mdb;Persist Security Info=False"Call LinkDB(strcn) text2.Text=rs.Fields(j) 注:cpjl.mdb為庫名 j為 列序號如 記錄順序為 姓名 性別 那麼j為0就是姓名 為1就是性別rs.Fields()還有其它用法 自己查下吧