VB6.0中怎样使用data控件实现数据库查找功能

VB6.0中怎样使用data控件实现数据库查找功能,第1张

1、使用data控件的FindFirst方法可以实现数据库记录的查找。

2、工具:vb6。

3、具体实现方法:

a)在窗体上添加data1、dbgrid1、text1、command1、label1

b)在dbgrid1的DataSource属性里选择data1

c)实现代码如下:

Private Sub Command1_Click()

    '查找定位记录

    Data1.Recordset.FindFirst "CategoryID=" & Text1.Text

DBGrid1.DataSource

End Sub

Private Sub Form_Load()

    Data1.Connect = "Access 2000" '设置数据库类型

    Data1.DatabaseName = "C:\db1.MDB" '连接数据库

    Data1.RecordSource = "Categories" '数据库中的表

    Data1.Refresh '打开数据库

End Sub

4、注意:数据库可以使用vb6文件夹内的NWIND.MDB

Private Function Selectsql(SQL As String) As ADODB.Recordset      

   Dim ConnStr As String

    Dim Conn As ADODB.Connection

    Dim rs As ADODB.Recordset

    Set rs = New ADODB.Recordset

    Set Conn = New ADODB.Connection

        path1 = App.Path + "\db1.mdb"   '数据库路径

    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & path1 & "Persist Security Info=False"      

Conn.Open ConnStr

    rs.CursorLocation = adUseClient

    rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic

    Set Selectsql = rs

    End Function  Private Sub Command1_Click()

 SQL1 = "select time  from timetable  where name= '" & Trim(Text1.Text) & "'"

 Set rs = Selectsql(SQL1)

 Text2.Text = rs("time")

End Sub

下面的代码基于以下4点假设:

1,控件的名称分别是:

3个文本框从上到下:Text1、Text2、Text3

ADO控件名为:Adodc1,网格控件名为:DataGrid1

2,根据你给出的图片,字段[钢级]为字符类型、[外径]和[壁厚]为数值类型。

3,你的数据库文件名为“数据库.mdb”,且已经保存在与本工程文件同一个文件夹里。

4,你所使用的数据表名为“钢材数据表”

那么,在[查询]按钮的单击事件里,编写如下代码就可以实现你的要求:

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\数据库.mdbPersist Security Info=False"

Adodc1.RecordSource = "select * From 钢材数据表 Where 钢级='" &Text1.text &"' And 外径=" &trext2.text &" And 壁厚=" &text3.text

Adodc1.Refresh

If Not (Adodc1.Recordset.EOF And Adodc1.Recordset.BOF) Then

 Set DataGrid1.DataSource = Adodc1

Else

 MsgBox "没找到!"

End If


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/sjk/10806641.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-11
下一篇 2023-05-11

发表评论

登录后才能评论

评论列表(0条)

保存