ODBC Sürcüsü istenen özellikleri desteklemiyor.

[mnz]

Merhaba arkadaşlar
Kapalı excel dosyasından AdiSoyadi sorgulamasına göre SSK numarasını alıyorum. Ancak SSK no ya göre sorgulama yaptığımda "ODBC Sürcüsü istenen özellikleri desteklemiyor." hatası alıyorum.
Textbox a girilen metin veya sayı ile ilgilimidir? Nasıl çözebilirim?

 

[parsley2]

ODBC

Aslında ADO aracılığıyla bir veritabanına ulaşmak için ODBC bağlantısı (DSN) kullanılabilir Bu işlem için önce DSN(data source name) tanımının yaratılması gerekir. Bu işlem için Denetim masası performan ve bakım altında bulunan yönetimsel araçlar altında bulunan Veri kaynakları(ODBc) yi tıklayın. Bu pencerede System DSN bölümünde ekle düğmesine tklayarak veritabanı kaynağı seçilir. Daha sonra select düğmesi ile veritabanı dosyası seçilir. Belki bu bilgi işine yarayabilir.

 

[mnz]

Yanlış hatırlamıyorsam asp veri tabanı bağlantısında iis de yapılıyordu bu işlem.

Biryerde hata yapıyorum ama nerde?

Public DB As ADODB.Connection
Public RS As ADODB.Recordset
Public SQ As String
Private Sub CommandButton1_Click()
Set DB = New ADODB.Connection
Yol = "C:\Belgelerim\test.XLS"
DB.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & Yol
Set RS = New ADODB.Recordset
kk = UserForm1.TextBox1.Value
SQ = "SELECT * FROM [Sayfa1$] WHERE SSK= '" & kk & "'"
RS.Open SQ, DB, 1, 3
TextBox2.Value = RS("AdiSoyadi")
RS.Close
Set RS = Nothing
DB.Close
Set DB = Nothing
End Sub

 

[veyselemre]

Kodlar güzel çalışıyor,
Olması muhtemel hatalar,


1-Test.xls dosyasının yerinde olup olmaması
2-Test.xls dosyasındaki sayfa adının Sayfa1 olmaması (Büyük küçük harf önemli)
3-Test.xls dosyasında birinci satırdaki sütun başlıklarının kodda olduğu gibi
AdiSoyadi ve SSK şeklinde olmaması


Kodlar mutlaka çalışacaktır. Bende çalıştı.

 

[mnz]

Kodlar güzel çalışıyor,
Olması muhtemel hatalar,


1-Test.xls dosyasının yerinde olup olmaması
2-Test.xls dosyasındaki sayfa adının Sayfa1 olmaması (Büyük küçük harf önemli)
3-Test.xls dosyasında birinci satırdaki sütun başlıklarının kodda olduğu gibi
AdiSoyadi ve SSK şeklinde olmaması


Kodlar mutlaka çalışacaktır. Bende çalıştı.

Sayın veyselemre ilginize teşekkür ediyorum. Sorun çözüldü.
Buna benzer sorun yaşayan arkadaşlar için buraya çözümü ekliyorum.

Sorumda da yazdığım gibi Db deki sorgulama kriteri Rakam, Textbox metin olduğu için bu hatayı veriyor. Sayı olarak fazla olan Db bilgilerini metne çevirmek yerine

Dim kk As Long

ekleyip

SQ = "SELECT * FROM [Sayfa1$] WHERE SSK=" & kk

olarak düzelttiğimizde sorun kalkıyor.

Public DB As ADODB.Connection
Public RS As ADODB.Recordset
Public SQ As String
Private Sub CommandButton1_Click()
Set DB = New ADODB.Connection
Dim kk As Long
Yol = "C:\Belgelerim\test.XLS"
DB.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & Yol
Set RS = New ADODB.Recordset
kk = UserForm1.TextBox1.Value
SQ = "SELECT * FROM [Sayfa1$] WHERE SSK=" & kk
RS.Open SQ, DB, 1, 3
TextBox2.Value = RS("AdiSoyadi")
RS.Close
Set RS = Nothing
DB.Close
Set DB = Nothing
End Sub

Yardımcı olan herkese teşekkürler. Özellikle Bülent Bey e.