Çözüldü Ağda ADODB hatası hk.

[kemal turan]

Merhaba,
Bulunduğu bilgisayarda çalışan aşağıdaki kod ile Ağdan veri almak istedeğimde "Set con = New ADODB.Connection" satırı hata veriyor.
Nasıl düzeltebiliriz.
Teşekkür ederim.

Sub bağlan()
Sayfa5.Cells.Clear
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
yol = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI\2_SELLER3_KEMAL.xlsm"
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties =""excel 12.0;hdr=yes"""
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sorgu = "select * from[verıler$]"
rs.Open sorgu, con, 3, 1

Sayfa5.Range("a2").CopyFromRecordset rs

End Sub

 

[kemal turan]

tanımlama yapılmamış hatası veriyor.
user-defined type no defined şeklinde
aşağıdaki gibi Dim ekleme yaptım aynı hatayı veriyor

[CODE]Sub bağlan()

Sayfa5.Cells.Clear

Dim con As ADODB.Connection

Dim rs As ADODB.Recordset



Set con = New ADODB.Connection

Set rs = New ADODB.Recordset

yol = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI\2_SELLER3_DEDAPACK.xlsm"

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _

yol & ";extended properties =""excel 12.0;hdr=yes"""

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sorgu = "select * from[verıler$]"

rs.Open sorgu, con, 3, 1



Sayfa5.Range("a2").CopyFromRecordset rs



End Sub

[/CODE]

 

[haliliyas]

Referanslardan activex data object xx library eklenmiş mi

 

[haliliyas]

Eğer referanssız kullanmak isterseniz

Dim xCN As Object
Dim xRS As Object

Set xCN = CreateObject("Adodb.Connection")
Set xRS = CreateObject("adodb.Recordset")
yol = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI\2_SELLER3_DEDAPACK.xlsm"

xCN.ConnectionString =  "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties =""excel 12.0;hdr=yes"""
xCN.Open
xRS.Open sorgu, xCN, 3, 1

benzeri bir kod kullanılabilir

 

[kemal turan]

Referanslardan activex data object xx library eklenmiş mi

Aynen hocam
ADODB konusuna pazar günü forumda çok değerli Erdem Akdemir hocamın youtube derslerine başladım.
Çalıştığım firmada ağda veri almayı makro kaydet ile halletmiştim ama yavaş çalışıyordu.
Bu video çok güzel anlatım ve örneklerle oluşturulmuş.

 

[haliliyas]

Aynen hocam
ADODB konusuna pazar günü forumda çok değerli Erdem Akdemir hocamın youtube derslerine başladım.
Çalıştığım firmada ağda veri almayı makro kaydet ile halletmiştim ama yavaş çalışıyordu.
Bu video çok güzel anlatım ve örneklerle oluşturulmuş.

Verdiğiniz cevap biraz kafa karıştırıcı)
Sorun çözüldü mü çözülmedi mi?
Referans tanımlı mi değil mi anlamadım.

 

[kemal turan]

Sorun çözüldü hocam
Referans tanıtınca oldu

 

[haliliyas]

Iyi çalışmalar)