f4tih
Altın Üye
- Katılım
- 9 Kasım 2010
- Mesajlar
- 83
- Excel Vers. ve Dili
- Office 365, (64 bit) Türkçe
- Altın Üyelik Bitiş Tarihi
- 03-07-2026
Şimdi 192.168.1.2 ip adresinde bulunan bir sunucuda oracle veritabanı kurulu.
Şimdi elimdeki mevcut bilgiler ile bu alanda veriyi excel e çekebiliyorum. Daha oracle için gerekli driver ı kurdum. Buraya kadar sorun yok.
Fakat ben bu işlemi vba tarafında yapmak istediğimde bir türlü başarılı olamadım. Veritabanına bağlanma konusunda sorun yaşadım.

kütüphanede yüklü nerede hata yapıyor olabilirim.
yada başka bir kod
ama bir türlü başarılı olamadım. Değerli yorumlarınızı bekler teşekkür ederim.

Şimdi elimdeki mevcut bilgiler ile bu alanda veriyi excel e çekebiliyorum. Daha oracle için gerekli driver ı kurdum. Buraya kadar sorun yok.
Fakat ben bu işlemi vba tarafında yapmak istediğimde bir türlü başarılı olamadım. Veritabanına bağlanma konusunda sorun yaşadım.

kütüphanede yüklü nerede hata yapıyor olabilirim.
Kod:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim connStr As String
Dim strSQL As String
Dim ws As Worksheet
Dim i As Integer
connStr = "Provider=OraOLEDB.Oracle;" & _
"Data Source=192.168.1.2:1521/DATABASE_İSMİ;" & _
"User ID=KUL_ADI;" & _
"Password=SIFRE;"
Set conn = New ADODB.Connection
conn.Open connStr
yada başka bir kod
Kod:
Dim conn As Object
Dim rs As Object
Dim strConn As String
Dim strSQL As String
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
strConn = "Driver={Microsoft ODBC for Oracle};Server=192.168.1.2:1521/db_name;Uid=kul_Adi;Pwd=Sifre;"
conn.Open strConn
ama bir türlü başarılı olamadım. Değerli yorumlarınızı bekler teşekkür ederim.
Ekli dosyalar
-
20.3 KB Görüntüleme: 63