‘壹’ 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()还有其它用法 自己查下吧