مشکل این کد چیه؟

[dastiary]

سلام

لطفا بفرمایید مشکل این کد چیه؟


Private Sub Form_Load()

Label2.Caption = Date
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\a.mdb;"

Adodc1.RecordSource = "SELECT * FROM mytest where tarikh = '" & Label2.Caption & "'"
Adodc1.Refresh


End Sub

این خطا رو میده Data Type mismatch in criteria expresstion


متشکرم

وبلاگ من (http://ineh.blogsky.com)

[Mehdi0016]

سلام
فیلد تاریخ رو توی دیتابیس از چه نوعی تعریف کردی ؟

[ashkan209]

Adodc1.RecordSource = "SELECT * FROM mytest where tarikh = " & Label2.Caption & ""

امتحان کن احتمالا درست بشه

[Hamed_R]

سلام
یه روش خیلی خوب واستون می گم که کار با دیتابیس رو حرفه ای و بهینه تر میکنه
Dim MyCon as new adodb.conection
MyCon.ConectionString=Provider=Microsoft.Jet.OLEDB .4.0;Data Source=" + App.Path + "\a.mdb
dim RecordS as adodb.Recorset
dim MySql as String
MySql=Select * from table1
Recordset.open MySql,MyCon
--------------------
ببخشید البته توی سطر آخر کلمه Recordset رو به RecordS تغییر بدید. یه اشتباه تایپی بود

[dastiary]

سلام وتشکر از دوستان.
فهمیدم.
اگر کد رو اینجوری بنویسیم مشکل حل میشه.


cdate('" & Label2.Caption& ")'"