ADODB 连接 Oracle 问题！

[aqlover]

VB6.0 环境

求 ADODB 连接oracle 11g 数据库的代码范例

本机已经安装 oracle 11g client

[饮水需思源]

conn.ConnectionString = "Provider=OraOLEDB.Oracle;Password=口令;User ID=用户名;Data Source= " "(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = 服务器名称或IP)(PORT = 1521)))(CONNECT_DATA = (SERVICE_NAME = 数据库服务名))) " ";Persist Security Info=True "
conn.open

[icansaymyabc]

1 配置一个能访问你的数据库的ODBC数据源
2 用ADODB打开ODBC数据源就可以了

[aqlover]

具体代码如何写阿，希望明示

[cnuser1]

Public Function PopenDBConnection()
On Error GoTo errOpenBDConnection:
sSQL = "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=" + Trim(PUserName) + ";Password=" + Trim(PUserPassword) + ";Data Source=" + Trim(PUserDbName)
ConnString = sSQL 'Save the Public connection string.
Conn.Open sSQL
frmLoginByUsers.Show
Exit Function
errOpenBDConnection:
MsgBox ("Database connection failed!" & vbCrLf & Err.Number & Err.Number & vbCrLf & Err.Description), vbCritical, " EnterpriseIQ System"
Exit Function
End Function

[cnuser1]

'实例代码：先在工程中引用 ADODB

Option Explicit
Dim LoadSql As String
Dim ConnSql As String
Dim LoadRs As New ADODB.Recordset
Dim SqlConn As New ADODB.Connection

Private Sub cmdLoadData_Click()
On Error GoTo eNext:
If SqlConn.State = 1 Then SqlConn.Close
ConnSql = "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=iqms;Password=iqms;Data Source=iqora"

SqlConn.ConnectionString = ConnSql
SqlConn.Open

LoadSql = "SELECT * FROM ARINVT WHERE CLASS='FG'"
If LoadRs.State = 1 Then LoadRs.Close
LoadRs.Open LoadSql, SqlConn, adOpenKeyset, adLockOptimistic

If Not LoadRs.EOF Then
Set MSHFlexGrid1.DataSource = LoadRs
Else
'Your function code
End If
Exit Sub
eNext:
MsgBox Err.Description, vbCritical, Err.Number
End Sub

[a9744490]

小弟新手，回帖求分有问题要请教，谢谢！