ODBC Driver does not support

[tamer42]

Merhabalar,


Aşağıda belirttiğim kodlarla başlayan kapalı dosyadan bilgi alma amaçlı modul içeriside;

ekli dosyadaki hata mesajını veriyor,

Sebebi ne olabilir?
------------

Dim baglan As ADODB.Connection
Dim kayit As ADODB.Recordset
Dim Nsql As String

Set baglan = New ADODB.Connection
baglan.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & "C:\PLANN\BIRIM_FIYATLAR.xls;Readonly=True"

Set kayit = New ADODB.Recordset

........
........
Nsql = "SELECT * FROM [Data$]Where YILDIZ= '" & MyRng & "'"
kayit.Open Nsql, baglan, 1, 3
a = kayit("MS")

........

-------------


İyi Çalışmalar dilerim

 

[Zeki Gürsoy]

Microsoft.Jet ile deneyin.

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\PLANN\BIRIM_FIYATLAR.xls;Extended Properties=""Excel 8.0;

 

[tamer42]

Sn anemos

ilginize teşekkürler, verdiğiniz yöntemi yarın işyerinde deneceğim;

yalnız aşağıdaki şekliyle, ben geçen yıl diğer PC de birçok çalışmamda uygulamıştım, zaten buraya da oradan kopyaladım.
yeni PC de çalıştıramadım (hata veriyor) acaba referanslarda bir eksiklik mi var?

baglan.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & "C:\PLANN\BIRIM_FIYATLAR.xls;Readonly=True"
........

İyi Akşamlar.

 

[Ferhat Pazarçevirdi]

çıkan hatayı tam olarak yazabilirmisiniz acaba ? Ayrıca hangi satırda ?

 

[tamer42]

Özür dilerim,
hata mesajını Print screen yapmıştım, eklemeyi unutmuşum. ancak sabah gönderebilirim..


Hata mesajı hatırladığım kadarıyla
bu satırda veriyordu.

baglan.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & "C:\PLANN\BIRIM_FIYATLAR.xls;Readonly=True"

İyi Akşamlar...

 

[Ferhat Pazarçevirdi]

O zaman yarın; VB Editörünüzde, Tool->References'a girip, burada ADODB referanslarının işaretli olup olmadığını kontrol ediniz.

 

[tamer42]

Mcrosoft ADO .....
Mcrosoft DAO .....

ile başlayanlarını kastediyordunuz.

teşekkürler.

 

[tamer42]

Günaydın;


Çıkan hatayı print screen olarak ekledim.


İyi Günler, iyi çalışmalar.