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 '连接SQL Server OLEDB

'cn.Open "Provider=MSDASQL.1;User '连接SQL Server ODBC

Rs.Open "SELECT A.NODENAME AS SBMC,* FROM ConfigurationTree A,Machine B WHERE A.NODE, 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 '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.NODE, Conn, adOpenKeyset, adLockOptimistic

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

' MsgBox Rs.RecordCount

' 绑定进DataGrid

Set DataGrid1.DataSource = Rs

End Sub