راهنمایی برای حل مشکل یه قطعه کد VB.Net

[graphic]

سلام به دوستان عزیز...
یه نگاهی به این قطعه کد دست و پا شکسته من بندازین!
می خوام IDرو با شماره وارد شده به textbox مقایسه کنه...جدول متناسب با ورودی رو نمایش بده...ولی...

ocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\data.mdb"
ocm.Connection = ocn
ocm.CommandText = "SELECT * FROM Anbar where id=[شماره ای که توسط کاربر وارد شده است]"

oda.SelectCommand = ocm
If oda.Fill(dt) Then
DataGridView1.DataSource = dt

dt.Dispose()
oda.Dispose()
ocm.Dispose()
ocn.Dispose()
Else
Label2.Text = "کد کالای مورد نظر یافت نشد"
با تشکر از همه دوستان.

[Ghaisard]

موقع فرستادن يك مقدار به پايگاه داده بايد اون رو توي quote ( ' ) بذاري :

اگر مقدار، عددي باشه quote بذاري يا نذاري فرقي نمي كنه



ocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\data.mdb"
ocm.Connection = ocn
ocm.CommandText = "SELECT * FROM Anbar where id='" & TextBox1.Text & "'"
oda.SelectCommand = ocm
If oda.Fill(DT) Then
DataGridView1.DataSource = DT
DT.Dispose()
oda.Dispose()
ocm.Dispose()
ocn.Dispose()
Else
Label2.Text = "كد كالاي مورد نظر يافت نشد"
EndSub

[graphic]

Ghaisardعزیر...ممنون...ولی...
در زمان اجرا روبروی if oda.fill(dt) then خطای Data type mismatch in criteria expression رو میده!:متفکر:

[Ghaisard]

مي توني قسمت If رو يه جور ديگه بنويسي :



ocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\data.mdb"
ocm.Connection = ocn
ocm.CommandText = "SELECT * FROM Anbar where id='" & TextBox1.Text & "'"
oda.SelectCommand = ocm
oda.Fill(DT)
If DT.Rows.Count > 0 Then
DataGridView1.DataSource = DT
DT.Dispose()
oda.Dispose()
ocm.Dispose()
ocn.Dispose()
Else
Label2.Text = "كد كالاي مورد نظر يافت نشد"
EndIf

[graphic]

تشکر از همه دوستان...
IDرو از نوع TEXT تعریف کردم مشکل حل شد.:لبخند::لبخندساده:

[askh7412]

سلام دوستان
یک سوال دارم خواهش می کنم کمک کنید خیلی گیرم
من اطلاعات رو توی بانک اکسس از طریق پروژه می ریزم با دستور insert و وقتی می خوام اطلاعات رو با select بخونم درست کار می کنه ولی وقتی بانک رو باز می کنم (با access) هیچ اطلاعاتی ثبت نشده و وقتی دوباره برنامه رو اجرا میکنم و می خوام اطلاعات رو select کنم هیچ اطلاعاتی نیست.
خواهش می کنم کمک کنید
اگر امکان داره به ایمیلم ارسال کنید
askh.7412@yahoo.com