phungvinhquang
Thành viên mới
- Tham gia
- 12/3/07
- Bài viết
- 38
- Được thích
- 12
Mình đang gặp một vấn đề liên quan đến kết nối từ excel vao ORAC, cụ thể như sau:
mình viết đọan code như sau:
Function connOra(ByRef conn, svrname, taikhoan, matkhau) As Boolean
Dim ConnStr As String
On Error GoTo errorhandling
ConnStr = "driver={Microsoft ODBC for Oracle}; server=" & svrname & "; uid=" & taikhoan & "; pwd=" & matkhau
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = ConnStr
conn.Open
connOra = True
Exit Function
errorhandling:
MsgBox "Khong ket noi duoc CSDL"
connOra = False
End Function
chạy đoạn code này trên excel 2010 nền win8 thì báo lỗi không kết nối được ORAC-06413: Connection not open (tui dùng Win 10 64b)
Ngoài vấn đề về phiên bản excel 2010 và win8, các vấn đề còn lại như file TNSNames, là ok (nghĩa là giống với các máy sài winXP; win7 excel2003; 2007)
Một số ứng dụng khác có kết nối đến cùng cơ sở dữ liệu trên đều hoạt động bình thường trên máy này
Đoạn code bày cũng chạy tốt trên các máy winXP; win7 excel2003; 2007 trong cùng thời điểm.
Vậy mọi người xem và giúp dùm vài thông tin để chỉnh sửa. Cảm ơn!
p/s: nội dung này đã post một lần nhưng không tìm được giải pháp nên hôm nay hỏi lại
mình viết đọan code như sau:
Function connOra(ByRef conn, svrname, taikhoan, matkhau) As Boolean
Dim ConnStr As String
On Error GoTo errorhandling
ConnStr = "driver={Microsoft ODBC for Oracle}; server=" & svrname & "; uid=" & taikhoan & "; pwd=" & matkhau
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = ConnStr
conn.Open
connOra = True
Exit Function
errorhandling:
MsgBox "Khong ket noi duoc CSDL"
connOra = False
End Function
chạy đoạn code này trên excel 2010 nền win8 thì báo lỗi không kết nối được ORAC-06413: Connection not open (tui dùng Win 10 64b)
Ngoài vấn đề về phiên bản excel 2010 và win8, các vấn đề còn lại như file TNSNames, là ok (nghĩa là giống với các máy sài winXP; win7 excel2003; 2007)
Một số ứng dụng khác có kết nối đến cùng cơ sở dữ liệu trên đều hoạt động bình thường trên máy này
Đoạn code bày cũng chạy tốt trên các máy winXP; win7 excel2003; 2007 trong cùng thời điểm.
Vậy mọi người xem và giúp dùm vài thông tin để chỉnh sửa. Cảm ơn!
p/s: nội dung này đã post một lần nhưng không tìm được giải pháp nên hôm nay hỏi lại
