درخواست نمونه کد جستجو با SQL

[ehsanocx]

سلام دوستان
دوستان من نیاز به دستور جستجو دارم خیلی شدید . نمی دونم چرا کسی کمک نمی کنه. یعنی اینقدر سخته که کسی بلد نیست؟؟ می خوام با SQL باشه . با Access بلدم و نیاز ندارم.

من می خوام اطلاعاتی که داخل دیتا گرید نمایش میده. رو جستجو کنم. یک جستجو معمولی.
می خوام فرض نام یک کالا رو توی یک تکست باکس نوشتم و از داخل Combobox فیلد نام و نام خانوادگی رو انتخاب کردم و روی دکمه جستجو کلیک کردم اون رکورد رو توی دیتا گرید نمایش بده .
اینطوری :

81044
81043

اینو من با اکسس نوشتم . اما کد اکسس رو بانک SQl جواب نمیده.
من بانکم SQL 2008 .

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

[ehsanocx]

من با این دستور توی اکسس دستور جستجو رو نوشتم اما از وقتی بانکم رو SQL کردم.این دستورات دیگه کار نمی کنن.



If Combo1.Text = "نام و نام خانوادگی" Then
Adodc1.RecordSource = "SELECT * FroM AsnadBazdashti where NameFamily like'" & txtSearch.Text & "%'"
Adodc1.Refresh
txtSearch.SetFocus

[kitcat_m18]

سلام دوست من،

حداقل پیغام خطا و یا مشکلی که داری رو بذار.
این دستور باید کار کنه و اگه نوع فیلدت رشته ای باشه جواب میده (مثل همون نام و نام خانوادگی)
قرا ندادن % در اول کدت هم باعث میشه فقط اون عباراتی رو که ادامه (پسوند) دارن و ندارن رو برات لیست کنه

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

[ehsanocx]

این دستور با بانک SQL کار می کنه.

توی General اینو بنویسید :


Dim db As New Connection
Dim Adodc1 As New Recordset


توی فرم لود هم با این کد به بانک SQL وصل بشید.



Private Sub Form_Load()
db.Open "provider=msdasql;driver={sql server};server=;id=;pwd=;database=CM"
Adodc1.CursorLocation = adUseClient
Adodc1.Open "select * from Cala", db, adOpenDynamic, adLockOptimistic
Set DataGrid.DataSource = Adodc1

End Sub



RS.Close
If Combo1.Text = "نام و نام خانوادگی" Then
Adodc1.RecordSource = "SELECT * FroM Table Name where Filed like'" & txtSearch.Text & "%'"
Set DataGrid.DataSource = Adodc1
End If







من اینطوری جواب گرفتم دوستان ممنون.

[ehsanocx]

این دستور اصلاح شده است باید اینطوری نوشته بشه.

Adodc1.Close
If Combo1.Text = "نام و نام خانوادگی" Then
Adodc1.Open= "SELECT * FroM Table Name where Filed like'" & txtSearch.Text & "%'"
Set DataGrid.DataSource = Adodc1
End If

[ehsanocx]

اینم اصلاح شده نهایی . شرمنده دوستان این کد 100% کار می کنه

Adodc1.Close
If Combo1.Text = "نام و نام خانوادگی" Then
Adodc1.Open "SELECT * FroM Table Name where Filed like'" & txtSearch.Text & "%'"
Set DataGrid.DataSource = Adodc1
End If