VB6连接数据库

'连接SQL数据库

Private Sub BindSQLData()

    Dim cn As New ADODB.Connection

    Dim Rs As New ADODB.Recordset

    Rs.CursorLocation = adUseClient

    'strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"    '连接Access

        cn.Open "Provider=SQLOLEDB;User ID=sa;Password=5316593;Data Source=192.168.1.200;DataBase=本钢921;Persist Security Info=True"    '连接SQL Server OLEDB

    'cn.Open "Provider=MSDASQL.1;User ID=sa;Password=5316593;Data Source=192.168.1.200;DataBase=本钢921;Persist Security Info=True"    '连接SQL Server ODBC

    Rs.Open "SELECT A.NODENAME AS SBMC,* FROM ConfigurationTree A,Machine B WHERE A.NODEID=B.NODEID", cn, 1, 1

    Set DataGrid1.DataSource = Rs

    If Rs.EOF Then

        Rs.Close

        cn.Close

    End If

End Sub

 

 

 

'连接Oracle

Private Sub BindOracleData()

    Dim Rs As New ADODB.Recordset

    Dim Conn As New ADODB.Connection

        Dim strConn As String

        ' 连接数据库的字符串

    ' 连接带密码的数据库,直接在连接符后面加上Jet OLEDB:DataBase Password='您的密码'

    ' 连接Access97数据库需要使用Jet.OLEDB.3.5,Access2K和以上数据库使用Jet.OLEDB.4.0

    'strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"

    strConn = "Provider=MSDAORA.1;Password=rzeam;User ID=rzeam;Data Source=rzeam;Persist Security Info=True"    'oracle驱动

    ' 使用客户端数据游标

     Conn.CursorLocation = adUseClient

    ' 打开Access的连接

    Conn.Open strConn

        ' 如果RecordSet的状态不是关闭状态,则关闭Recordset

    If Rs.State <> adStateClosed Then Rs.Close

        ' Recordser打开表People

    Rs.Open "select * from configurationtree A,MM_SBKP B WHERE A.NODEID=(B.ID*100+1)", Conn, adOpenKeyset, adLockOptimistic

        ' 报告出 一共多少笔数据,测试是否存在数据

    ' MsgBox Rs.RecordCount

        ' 绑定进DataGrid

    Set DataGrid1.DataSource = Rs

End Sub

你可能感兴趣的:(数据库)