SQL sorguda küsuratlı sayı problemi hk.

[tamer42]

Merhaba,
Aşağıdaki SQL sorgusunda tam sayı ifadeleri normal çalışırken, küsüratlı sayılarda (Örn: 3,5) hata veriyor.
nasıl bir çözüm önerirsiniz?

teşekkürler,
iyi hafta sonları

Sub test()
Dim a As Double
Dim b As Double

Baglan

b = 7 / 2
a = BirimFiyat2("F3", "KL-1900", b)

End Sub

Public Function BirimFiyat2(alan As String, kod As String, boyut As Variant) As Double
Dim RS As Object
Dim deger As Double
Dim sorgu As String

deger = 0

sorgu = "Select [" & alan & "] From [Data$A2:E]" & _
         " Where [F1] = '" & kod & "'" & _
         " And [F2] = " & boyut & ""
        
Set RS = Conn.Execute(sorgu)

If Not RS.EOF Then
  deger = RS(0)
End If

Set RS = Nothing
sorgu = ""

BirimFiyat2 = deger

End Function

 

[netzone]

Merhaba,
Sorgunuzu bu şekilde yapıp denermisiniz.
iyi çalışmalar.

sorgu = "Select [" & alan & "] From [Data$A2:E]" & _
         " Where [F1] = '" & kod & "'" & _
         " And [F2] = " & Replace(CStr(boyut), ",", "." & ""

 

[tamer42]

Merhaba,
Sorgunuzu bu şekilde yapıp denermisiniz.
iyi çalışmalar.

sorgu = "Select [" & alan & "] From [Data$A2:E]" & _
         " Where [F1] = '" & kod & "'" & _
         " And [F2] = " & Replace(CStr(boyut), ",", "." & ""

çok teşekkürler Hocam