سرچ

[saeed 444]

با سلام
من یک کد جستجو برای برنامم استفاده میکنم که به یه مشکل برخوردم .
وقتی عددی مثلا 12 رو سرج میکنم اگر این عدد در بانکم موجود نباشه ارقامی که دارای 12 هستند رو
در دیتا گرید نمایش میده ولی من فقط عدد مورد نظرم رو نیاز دارم .
چون bind میشن اعداد رو کامل نشون میده مثلا 451282

این هم کدش:


Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textbox3.TextChanged
If texti.Text <> "" Then
If str_typ.ToLower = "N".ToLower Then
Try
bs.Filter = str_DPN
Catch ex As Exception
MsgBox("جستجو مشخص نیست")
textbox3.text = ""
End Try
Else
bs.Filter = str_DPN + " like '%" + textbox3.text + "%'"
End If
Else
bs.Filter = ""
End If
End Sub

آخر هم چپ چین نشد
عذر خواهی میکنم :خجالت:

[hosein320]

سلام
خب شما باید طول رشتتو مشخص کنی براش

[123s0ran]

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


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
2: Try

Dim row As Integer
If txtSearch.Text = String.Empty Then ReloadRecord() : Exit Sub
Dim sqlcmd As String = ""
Select Case ComboBox1.SelectedIndex
Case Is = 0 '
sqlcmd = "Select * from table1 where id =" & txtSearch.Text
Case Is = 1
sqlcmd = "Select * from table1 where sat like N'%" & txtSearch.Text & "%'"


End Select
ad = New SqlDataAdapter(sqlcmd, cnnString)
dt = New DataTable
ad.Fill(dt)
bs.DataSource = dt

dgv.DataSource = bs
row = bs.Position
MsgBox(row)
Catch ex As Exception
MsgBox(Err.Description _
, MsgBoxStyle.Critical, "خطا هنگام جستجو")
End Try
End Sub

[hamed68]

سلام دوست گلم

علامت درصدی که در کد جستجو قرار دادی باعث میشه که هر چیزی که اولش 12 باشه بیاره.علامت درصد بردار

موفق باشی

[roya.raha]

سلام

میشه فایل آموزشی را بگذارید که تمام دستورات select را در vb.net داشته باشد یک رفرنس می خوام که به مشکلاتی از این قبیل دچار نشم.