ADO ile Veri Çağırırken Koşul.

[ghostbar]

Selamlar Aşağıdaki ADO kodunda kırmızı ile işaretli olan tarihi bir userform da TextBox ta girilen tarih ile eşleştirme nasıl yapabilirim.
Yani bir makro ile Userform çağırıp textbox a tarih gireceğim ve textbox taki değer altta kırmızı ile işaretli değer yerine geçerek verileri getirmek istemekteyim.

Private Sub CommandButton1_Click()
'Tools referanslardan microsoft activex dataobject 6 library seçildi
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Range("A3:AI3").Clear
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\MIKRONIZE.xlsm;Extended Properties=""Excel 12.0 Macro;HDR=YES;"""
rs.Open "select * from [Data$] where TARİH like '" & "[COLOR="Red"]01.04.2012[/COLOR]" & "%';", conn, adopendynamic, adlockoptimistic
Range("A3").CopyFromRecordset rs
rs.Close
conn.CloseSet conn = Nothing
Set rs = Nothing
End Sub

Umarım anlatabilmişimdir, herkese kolay gelsin.

 

[tamer42]

Selamlar,
Aşağıdaki kırmızı ile yazılı olan düzenlemeleri yapar mısınız,

Private Sub CommandButton1_Click()
Dim conn As ADODB.Connection
Dim RS As ADODB.Recordset
[color=red]Dim trh As Variant[/color]

Set conn = New ADODB.Connection
Set RS = New ADODB.Recordset

Range("A3:A13").Clear
[color=red]trh = TextBox1.Value[/color]

conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\MIKRONIZE.xlsm;Extended Properties=""Excel 12.0 Macro;HDR=YES;"""

RS.Open "select * from [Data$] where TARİH like '" &[color=red] trh [/color]& "%';", conn, adOpenDynamic, adLockOptimistic

Range("A3").CopyFromRecordset RS

RS.Close
conn.Close
Set conn = Nothing
Set RS = Nothing


End Sub

 

[Orion1]

aşağıdaki gibi deneyiniz.

rs.Open "select * from [Data$] where TARİH like '" & cdbl(datavalue("01.04.2012")) & "%';", conn, adopendynamic, adlockoptimistic

 

[ghostbar]

Teşekür ederim arkadaşlar.
Sorunu aşağıdaki şekilde çözdük.

rs.Open "select * from [Data$] where TARİH='" & Format(TextBox1.Text, "dd.mm.yyyy") & "'", conn, adopendynamic, adlockoptimistic