① 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()還有其它用法 自己查下吧
② vb6 如何查找資料庫指定記錄
你的問題太籠統了，或者說太大了。
1，首先使用VB6提供的資料庫連接對象，去連接你的資料庫文件。
2，使用對象，方法，返回記錄集。
3，將返回的記錄集中的記錄，顯示出來。
你可以，到網路搜索一下以下相關主題。
VB6 + ACCESS
VB6 + SQL SERVER
③ vb6.0查詢資料庫
PrivateFunctionSelectsql(SQLAsString)AsADODB.Recordset
DimConnStrAsString
DimConnAsADODB.Connection
DimrsAsADODB.Recordset
Setrs=NewADODB.Recordset
SetConn=NewADODB.Connection
path1=App.Path+"db1.mdb"'資料庫路徑
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&path1&";PersistSecurityInfo=False"
Conn.OpenConnStr
rs.CursorLocation=adUseClient
rs.OpenTrim$(SQL),Conn,adOpenDynamic,adLockOptimistic
SetSelectsql=rs
EndFunction
PrivateSubCommand1_Click()
SQL1="='"&Trim(Text1.Text)&"'"
Setrs=Selectsql(SQL1)
Text2.Text=rs("time")
EndSub
④ 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 動態查詢 sqlserver 2008 R2資料庫中的數據
看你的欄位時間，是前面最小後面最大，假設你時間最大的是出庫完成（如果不是，你自己修改下）時間范圍限定應該限定最小時間欄位和最大時間欄位都在范圍內，時間差用datediff函數，不過這玩意取整數，如果用小時為單位的話，一小時50分鍾也算一小時，所以取分鍾為單位
如下（假定最小日期是訂單錄入，最大日期是出庫完成，不是的話自己修改欄位名）
SQL = "SELECT * from 表名 where datediff( minute," & Combo1(1).Text & " , " & Combo1(2).Text & " )> " & Text1.Text & "*60 AND 訂單錄入 >= '" & _
Format(DTPicker1(0).Value, "yyyy-MM-dd") & " 0:0:1' AND 出庫完成 <= '" & Format(DTPicker1(1).Value, "yyyy-MM-dd") & " 23:59:59'"
如果不知道哪個欄位是最大日期哪個欄位是最小日期，那就只能每個欄位都加限定條件了
這是兩個欄位判斷，繼續and下去，所有欄位判斷一遍，都不超出范圍才算
Dim SQL As String
SQL = "SELECT * from 表名 where datediff( minute," & Combo1(1).Text & " , " & Combo1(2).Text & " )> " & Text1.Text & "*60 AND (訂單錄入 between '" & _
Format(DTPicker1(0).Value, "yyyy-MM-dd") & "' AND '" & Format(DTPicker1(1).Value, "yyyy-MM-dd") & "') AND (訂單審核 between '" & _
Format(DTPicker1(0).Value, "yyyy-MM-dd") & "' AND '" & Format(DTPicker1(1).Value, "yyyy-MM-dd") & "')"
⑥ 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.0資料庫查詢
給多少分啊！