اررور در جستجوی بانک

[xrezax]

ّچه ها وقتی برنامه را اجرا می کنم


Dim con As New Connection
con.ConnectionString = "Provider = Microsoft.jet.OLedb.4.0;Data Source=C:\bank.mdb"
con.Open
'--------------------------------------------1
Dim cmd As New Command
cmd.CommandText = "SELECT * FROM tbl1 WHERE Meli =" & 123
cmd.ActiveConnection = con
'--------------------------------------------2
Dim rs As Recordset
Set rs = cmd.Execute
txtFamily = rs("Family")
txtPedar = rs("Pedar")
txtShenas = rs("Shenas")
txtName = rs("Name")
txtTel = rs("Tel")
txtMobile = rs("Mobile")
txtSal = rs("Sal")
txtAddress = rs("Address")
MsgBox "Search OK"
'--------------------------------------------Show Info

اینجا اررور می ده

Set rs = cmd.Execute

اررورش هم اینه

Data type mismatch in criteria expression

مشکل کجاست ؟؟؟؟؟؟؟؟؟؟؟:ناراحت:

[kitcat_m18]

تا اونجایی که من دیدم خواص رکوردست رو تنظیم نکردی


Dim Rs As New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenDynamic
rs.LockType=adLockOptimistic

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

موفق باشی :لبخندساده:

[vahid1]

البته بد نيست نوع اطلاعات Type فيلد Meli را هم كنترل كني از پيام خطا به نظر مي‌آيد كه نوع اطلاعات عددي 123 كه مورد جستجو قرار گرفته به نوع فيلد Meli سازگاري نداره.