① 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数据库查询
给多少分啊！