ado ile veri çekmede sayı format sorunu

[acar6783]

Ado ile veri çekmede şöyle bir sorunum var
accesden veri çekerken eğer sütunu metin formatına alırsam veri uyuşmazlığı hatası alıyorum.
Sayı formatına alırsam sorun yok fakat metin formatta kalması gerek

Sorgu = "SELECT * " _
& "FROM  [veritabanı] WHERE [No] = " & aranan & ""

 

[Murat OSMA]

Bu linke bakabilirsiniz. k::​

 

[acar6783]

Burada bağlantıya giriş anlatılmış sanırım

Veribankasındaki Sütundaki veriler
10
11
12
-
-
15
17
-
-
şeklinde gidiyor.Sayıya cevirirsem haliyle "-" ler siliniyor.

 

[acar6783]

Sorgu = "SELECT * " _
& "FROM [veritabanı] WHERE [No] <> " & "-" & ""
 Sorgu = Sorgu & "  [No] = " & aranan & ""

Bu şekilde de denedim olmadı

 

[acar6783]

Sorun "-" lerde.
Onları silersem sorun düzeliyor.

[No]*1 yaparsam tabi. Ama "-"ler varken çözüme gitmem gerekiyor.

 

[Murat OSMA]

Verdiğim linke tekrar bakarsanız, orada IMEX=1 kısmı işinize yarayan kısım.
Sonrasında bu şekilde;

Sorgu = "SELECT * FROM [veritabanı] WHERE [No]= " & aranan & ""

ya da böyle;

Sorgu = "SELECT * FROM [veritabanı] WHERE [No]= '" & aranan & "'"

denersiniz.. ​

 

[acar6783]

If Win64 And VBA7 Then
Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & ""
Else
  Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & yol & ""
End If

Bağlantıyı bu şekilde yapıyorum normalde.

 

[acar6783]

Dış tablo beklenen biçimde değil hatası veriyor.

 

[acar6783]

Sütunda herhangi biryere "deneme" diye satır ekledim fakat yine hata veriyor.

Like kullanırsam sorun yok fakat = kullanmam gerekiyor.

 

[acar6783]

Like Kullandım artık