小型数据库的查询

最新推荐文章于 2023-06-21 15:54:49 发布

HaoChunhui

最新推荐文章于 2023-06-21 15:54:49 发布

阅读量578

点赞数

分类专栏：程序设计文章标签：数据库 security string

本文链接：https://blog.csdn.net/HaoChunhui/article/details/472374

版权

程序设计专栏收录该内容

9 篇文章 0 订阅

订阅专栏

    Dim objRs As New Recordset, objCn As New Connection, strSQL As String
    strSQL = "SELECT * FROM 表 WHERE 字段 like '" & Trim(Text) & "'"
    With objCn
        .Provider = "SQLOLEDB"
        .ConnectionString = "provider=MSDASQL.1;persist security info=false;Data Source=数据源 (ODBC)"
        .Open
    End With
    With objRs
        Set .ActiveConnection = objCn
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .Open strSQL
    End With
    Set DataGrid.DataSource = objRs

`````````````````````````````````````````````
'    数据源 (ODBC)----------hhdb
    Dim objRs As New Recordset, objCn As New Connection, strSQL As String
    strSQL = "SELECT * FROM " & Combo.Text '表
    With objCn
        .Provider = "SQLOLEDB"
        .ConnectionString = "provider=MSDASQL.1;persist security info=false;Data Source=hhdb"
        .Open
    End With
    If Combo.Text = "" Then
        Combo.BackColor = &H80000013
    Else
        With objRs
            Set .ActiveConnection = objCn
            .CursorLocation = adUseClient
            .CursorType = adOpenStatic
            .Open strSQL
        End With
        Set DataGrid.DataSource = objRs
        Me.Caption = DataGrid.ApproxCount
    End If