30/10/2013, 14:35
Sub Yenile()
Set Connection = CreateObject("ADODB.Connection")
Connection.Open "Driver={Oracle in OraClient11g_home1};Dbq=192.168.0.1/deneme1", "admin", "999999"
ActiveSheet.PivotTables("Özet Tablo 1").PivotCache.Refresh
End Sub
şeklinde özet tabloyu yenilemek istiyorum. Amacım özet tablo yenilerken ODBC bağlantısında (ORACLE veri tabanı) kullanıcı adı ve şifresini sormadan yenilemeyi yapmak.
Fakat yukarıdaki kodu yazmama rağmen, tekrar ODBC bağlantı ad ve şifre bilgilerini istiyor.
Ne yapmam lazım.
Set Connection = CreateObject("ADODB.Connection")
Connection.Open "Driver={Oracle in OraClient11g_home1};Dbq=192.168.0.1/deneme1", "admin", "999999"
ActiveSheet.PivotTables("Özet Tablo 1").PivotCache.Refresh
End Sub
şeklinde özet tabloyu yenilemek istiyorum. Amacım özet tablo yenilerken ODBC bağlantısında (ORACLE veri tabanı) kullanıcı adı ve şifresini sormadan yenilemeyi yapmak.
Fakat yukarıdaki kodu yazmama rağmen, tekrar ODBC bağlantı ad ve şifre bilgilerini istiyor.
Ne yapmam lazım.