Cú pháp chuỗi kết nối cho ADO/ODBC/Oracle 10g EZConnect

Question

Tôi đang cố gắng kết nối các dự án VBA khác nhau với đầu cuối Oracle 10g bằng ADO (2.8) và không có TNS. Sau những nỗ lực khác nhau, chúng tôi đã quyết định rằng loạt đơn giản nhất của bước này cho một cài đặt sạch bao gồm:

1. Thiết lập một Oracle tức thì khách hàng
2. Cài đặt trình điều khiển ODBC kèm
3. (Kiểm tra các kết nối sử dụng EZCONNECT qua SQL Plus)
4. (Kiểm tra kết nối bằng cách tạo Windows DSN)

Mọi thứ đến đây hoạt động tốt. Vấn đề là, tôi không thể tìm ra cú pháp để yêu cầu ADO sử dụng trình điều khiển máy khách tức thì ODBC, xuất hiện trong danh sách trình điều khiển ODBC của tôi là "Oracle trong MyTest" (không có dấu ngoặc kép). Sử dụng trình điều khiển MSBC ODBC với EZConnect là this post cho thấy không hoạt động tốt hơn trước khi thiết lập ứng dụng khách (tức là không nói gì cả). Nhưng this post dường như cho thấy nó có thể, mà không nói rõ chính xác như thế nào, và connectionstrings.com chỉ cho bạn biết phần Data Source của chuỗi trông như thế nào, tức là SomeUser/SomePassword @ AServer: PortNumber/InstanceName

phiên bản ngắn: là gì cú pháp chính xác của chuỗi kết nối ADO cổ điển tham chiếu trình điều khiển ODBC của máy khách ngay lập tức?

Cảm ơn trước sự giúp đỡ của bạn. Đã cho tôi một thời gian dài ngu ngốc để đi với SO ...

Answer 1

Hãy thử điều này và thay thế các giá trị phù hợp:

Set Connection = CreateObject("ADODB.Connection") 

blnTest = Connection.Open("Driver={Oracle in instantclient};Dbq=127.0.0.1:1521/SERVICENAMEHERE", "USERNAME", "PASSWORD") 

Nếu Oracle trong instantclient không hoạt động kiểm tra HKEY_LOCAL_MACHINE \ SOFTWARE \ ODBC \ Khóa đăng ký trình điều khiển ODBCINST.INI \ ODBC để xem giá trị của Oracle Instant Client (có thể có một số phiên bản được thêm vào).

Nếu điều này vẫn không hiệu quả với bạn. Để lại một bình luận với các chi tiết về những gì đã xảy ra và tôi sẽ cố gắng điều chỉnh câu trả lời cho bạn.

Answer 2

' Create a connection object.' 
Dim cn As ADODB.Connection 
Set cn = New ADODB.Connection 

' Create a recordset object.' 
Dim rs As ADODB.Recordset 
Set rs = New ADODB.Recordset 

' Provide the connection string.' 
Dim strConn As String 
Dim str As String 

'Use the SQL Server OLE DB Provider.' 
strConn = "Driver=(Oracle in OraHome92);" & "Data Source=;Uid=;Pwd=;" 

'Now open the connection.' 
cn.Open strConn 
With rs 

    ' Assign the Connection object.' 
    ActiveConnection = cn 

    ' Extract the required records.' 
    .Open "SELECT ", cn 


End With 

Answer 3

Tương tự như 'câu trả lời user1206604 của - tôi thiết lập một kết nối ODBC sử dụng ODBC Data Source Administrator (vì dụ của chúng ta sẽ đặt tên nó 'DEMO') và kết nối như thế này:

Dim conn As New adodb.Connection 
Set conn = New adodb.Connection 

connStr = "Provider=OraOLEDB.Oracle;Data Source=DEMO;User Id=yourUserID;Password=yourPassword;" 
conn.Open connStr 

Dim api As New adodb.Recordset 
Set api = New adodb.Recordset 

yourQueryString = "SELECT foo FROM bar" 
api.Open yourQueryString, conn, adOpenDynamic, adLockReadOnly 
'adjust above setting as needed 

while not api.EOF 
    'do interesting stuff here 
wend 

'clean up resources 
api.Close 
Set api = Nothing 

conn.Close 
Set conn = Nothing 

Các ODBC quản trị nguồn dữ liệu được tìm thấy (trên máy tính của tôi) trong menu start> Programs> Oracle - oraClient10g> Cấu hình và Migration Tools> Microsoft quản trị viên ODBC và trông như thế này: