Giúp kết nối từ Excel VBA đến Oracle database. (3 người xem)

MinhKhai đã viết:

Chào anh chị. Hiện tại máy em đã kết nối đến OracleDB bằng DBeaver thành công. (các port đã mở đủ)
Nhờ các anh chị ai có kinh nghiệm thì giúp em kết nối từ Excel vào OralceDB bằng VBA để có thể Select, Update, Insert với nhé.
Chân thành cảm ơn các chị.

Nhấp chuột vào đây để mở rộng...

ongke0711 đã viết:

Sao không hỏi AI luôn cho nhanh bạn, rồi hiệu chỉnh code lại.

Nhấp chuột vào đây để mở rộng...

Nguyễn Duy Tuân đã viết:

Bạn phải cài Oracle ODBC sau đó dùng ADO khai báo ConnectionString tới drive của Oracle là được nhé.

Nhấp chuột vào đây để mở rộng...

MinhKhai đã viết:

Bài đã được tự động gộp: 5/3/26

Anh có bộ cài Oracle ODBC thì cho em xin với nhé. Cảm ơn anh

Nhấp chuột vào đây để mở rộng...

Nguyễn Duy Tuân đã viết:

Bạn thửu tại đây:

https://www.oracle.com/apac/database/technologies/releasenote-odbc-ic.html

https://www.oracle.com/apac/database/technologies/instant-client/downloads.html

Excel 32 bit thì tải drive 32-bit, tương tự với 64-bit.

Nhấp chuột vào đây để mở rộng...

MinhKhai đã viết:

Em cũng hỏi cả ChatGPT và Gemini đều không giúp được.

Nhấp chuột vào đây để mở rộng...

1) Điều kiện để Excel kết nối được​

Provider=OraOLEDB.Oracle;User ID=user;Password=pwd;Data Source=constr;

2) Trong VBA cần bật reference nào​

• Alt + F11
• Tools → References
• tick Microsoft ActiveX Data Objects x.x Library

Option Explicit

' Mo ket noi Oracle bang ADO + OraOLEDB
Private Function GetOracleConnection() As ADODB.Connection
    Dim cn As ADODB.Connection
    Dim connStr As String

    Set cn = New ADODB.Connection

    connStr = "Provider=OraOLEDB.Oracle;" & _
              "Data Source=ORCL;" & _
              "User ID=your_user;" & _
              "Password=your_password;"

    cn.Open connStr
    Set GetOracleConnection = cn
End Function

connStr = "Provider=OraOLEDB.Oracle;" & _
          "Data Source=//10.10.10.15:1521/ORCLPDB1;" & _
          "User ID=your_user;" & _
          "Password=your_password;"

MinhKhai đã viết:

Em đã tải và xả nén ra C:\instantclient_19_30, cũng đã đọc phần release note nhưng vẫn chưa biết cần làm gì tiếp theo. Anh hướng dẫn giúp em với nhé. Cảm ơn anh.

Nhấp chuột vào đây để mở rộng...

Các bước cài ODBC trên Windows​

1. Xác định Excel là 32-bit hay 64-bit
2. Vào đúng trang tải tương ứng:
   
   • Windows 32-bit nếu Excel 32-bit
   • Windows x64 nếu Excel 64-bit
3. Tải ít nhất 2 file:
   
   • Basic Package
   • ODBC Package
4. Giải nén cả 2 file vào cùng một folder, ví dụ:
   
   • C:\oracle\instantclient_21_20
5. Chạy:
   
   
   odbc_install.exe
   
   Oracle hướng dẫn đúng bước này cho Windows.
6. Thêm thư mục đó vào PATH của Windows. Oracle nêu rõ trên Windows driver ODBC phải được load qua biến môi trường PATH.
7. Nếu cần DSN thì mở ODBC Data Source Administrator để tạo DSN Oracle sau khi cài xong.

Lưu ý thêm​

• Bản 21c Basic trên Windows cần Microsoft Visual Studio 2017 Redistributable. Trang download của Oracle ghi rõ điều này.
• Basic Light nhỏ hơn, nhưng chỉ phù hợp nếu không cần đầy đủ locale/charset; Oracle mô tả bản này chỉ có English errors và một số bộ ký tự phổ biến.

MinhKhai đã viết:

Em đã tải và xả nén ra C:\instantclient_19_30, cũng đã đọc phần release note nhưng vẫn chưa biết cần làm gì tiếp theo.

Nhấp chuột vào đây để mở rộng...

strConn = "Provider=OraOLEDB.Oracle;" & _
              "Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=172.16.118.128)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=XEPDB1)));" & _
              "User ID=HR;" & _
              "Password=admin;"

Public Sub ketNoiVaLayDuLieuOracleDB()
    ' Khai bao thu vien ADODB
    Dim conn As ADODB.Connection, rs As ADODB.Recordset
    Dim strConn As String, strSQL As String
    Dim targetSheet As Worksheet
    
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    Set targetSheet = ThisWorkbook.Sheets("Sheet1")
    
    strConn = "Provider=OraOLEDB.Oracle;" & _
              "Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=172.16.118.128)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=XEPDB1)));" & _
              "User ID=HR;" & _
              "Password=admin;"
    conn.Open strConn
    strSQL = "SELECT * FROM DEPARTMENTS"
    rs.Open strSQL, conn
    
    targetSheet.Range("A1").Clear
    targetSheet.Range("A1").CopyFromRecordset rs
    
    ' Clean up
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    MsgBox "Da tai du lieu xong!", vbInformation
    Exit Sub
    
ErrorHandler:
    MsgBox "An error occurred: " & Err.Description, vbCritical
    If Not conn Is Nothing Then
        If conn.State = adStateOpen Then conn.Close
        Set conn = Nothing
    End If
    Set rs = Nothing
End Sub