sorgu hatası

[burhancavus61]

sorguyu

sorgu = "select * from hakedis where hakedisno=" & 2 & ""

bu şekilde yazdığımda çalışıyor

sorgu = "select * from hakedis where hakedisno=" & AnaForm.ComboBox10.Value & ""

bu şekilde yazınca çalışmıyor. hangi kısmını hatalı yapıyorum bulamadım.

 

[Haluk]

Bir de böyle deneyin;

Cdbl(AnaForm.ComboBox10.Value)

.

 

[burhancavus61]

hocam CDbl bu kodları hangi türlerde kullanmam gerek ve başka hangi kodlar var.
bildiğim cdate birde datevalue var. yani hangi durumda hangi kodu kullanmalıyız açıklamalı bir liste varmı acaba

 

[burhancavus61]

bu arada hocam hata verdi CDbl kullandığımda

 

[burhancavus61]

hocam kodun tamamı bu
bu şekilde hata veriyor

Sub hakedisgetir()
    Dim Baglan As New Connection
    Dim rs As New Recordset
    
    If AnaForm.ComboBox10.Value <> "" Then
    Baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\Administrator\Desktop\A_F_Fark\master.accdb;"
    rs.Open "select * from hakedis where iknno=CDbl(" & AnaForm.ComboBox2.Text & ") and hakedisno=CDbl(" & AnaForm.ComboBox10.Value & ")", Baglan, adOpenKeyset, adLockPessimistic
    Else
    Baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\Administrator\Desktop\A_F_Fark\master.accdb;"
    rs.Open "select * from hakedis where iknno=CDbl(" & AnaForm.ComboBox2.Text & ") and hakedisno=CDbl(" & AnaForm.ComboBox2.Text & ")", Baglan, adOpenKeyset, adLockPessimistic
    End If

    With AnaForm.ListBox5
    .Column = rs.GetRows
    End With
    
    rs.Close
    Baglan.Close
End Sub

 

[Mehmet Şahin]

rs.Open "select * from hakedis where iknno=" & CDbl(AnaForm.ComboBox2.Text) & " and hakedisno=" & CDbl(AnaForm.ComboBox10.Value), Baglan, adOpenKeyset, adLockPessimistic

şeklinde dener misiniz?

 

[YUSUF44]

hocam kodun tamamı bu
bu şekilde hata veriyor

Sub hakedisgetir()
    Dim Baglan As New Connection
    Dim rs As New Recordset
   
    If AnaForm.ComboBox10.Value <> "" Then
    Baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\Administrator\Desktop\A_F_Fark\master.accdb;"
    rs.Open "select * from hakedis where iknno=CDbl(" & AnaForm.ComboBox2.Text & ") and hakedisno=CDbl(" & AnaForm.ComboBox10.Value & ")", Baglan, adOpenKeyset, adLockPessimistic
    Else
    Baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\Administrator\Desktop\A_F_Fark\master.accdb;"
    rs.Open "select * from hakedis where iknno=CDbl(" & AnaForm.ComboBox2.Text & ") and hakedisno=CDbl(" & AnaForm.ComboBox2.Text & ")", Baglan, adOpenKeyset, adLockPessimistic
    End If

    With AnaForm.ListBox5
    .Column = rs.GetRows
    End With
   
    rs.Close
    Baglan.Close
End Sub

Sorunuzu sayın @Mehmet Şahin cevaplamış, ben de sorunun nedenini açıklamaya çalışayım. Kodunuzda Cdbl ifadesini de tırnak içindeki kısma yazmışsınız. Tırnağın dışına bir değişken olarak yazmanız gerekirdi.

İlk sorununuz ise Combobox, Listbox, Textbox gibi nesnelerdeki verilerin "Metin" olmasından kaynaklanıyor. Metin ve Sayı birbirine eşit olmadığından hata veriyor.

 

[burhancavus61]

Hocam bu kısım AnaForm.ComboBox2.Text accsesde metin olarak AnaForm.ComboBox10.Value bu kısım ise sayı olarak tanımlı. Aynı şekilde denedim ama hata aldım. şimdi alanları teker teker deneyip hangi kısımda hata alıyorum bakacağım.

 

[burhancavus61]

Hocam combobx10 tarafını çözdüm
iknno=" & CDbl(AnaForm.ComboBox2.Text) & " bu kısım metin olarak tanımlı burada hata alıyorum

 

[Haluk]

O zaman;

............ where iknno='" & AnaForm.ComboBox2.Text & "' and ..............

.

 

[burhancavus61]

tamam hocam o kısmıda çözdüm sonunda