دستور لایک در SQL

[Beginneruser]

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

Try

DataGridView1.DataBindings.Clear()
con.Open()
Dim strcon As String = "SELECT * FROM Table1 WHERE Studentid = @Studentid"
da = New SqlDataAdapter(strcon, con)
da.SelectCommand.Parameters.Add("@Studentid", SqlDbType.Int).Value = CInt(TextBox1.Text)
ds = New DataSet
da.Fill(ds, "Table1")
If ds.Tables("Table1").Rows.Count = 0 Then
MsgBox("چنین نامی موجود نمیباشد", MsgBoxStyle.Critical)
con.Close()
Exit Sub
End If
Dim arrPic() As Byte = CType(ds.Tables("Table1").Rows(0).Item("pic"), Byte())
Dim ms As New MemoryStream(arrPic)
Me.PictureBox1.Image = Image.FromStream(ms)
DataGridView1.DataBindings.Add(New Binding("DataSource", ds, "Table1"))
con.Close()
Catch ex As Exception
'MessageBox.Show("ssssss", "fffffffffffffffffffffffffffffffff")
TextBox1.Text = ""
End Try

[vb341]

نمونه کد برای like :


Try
If Con.State = ConnectionState.Open Then
Con.Close()
End If

Con.Open()
'DA = New SqlDataAdapter("select * from PersonelQuery where LastName like '" & "%" & TextBox7.Text.Trim & "%" & "'", Con)
DA = New SqlDataAdapter("select * from PersonelQuery where LastName like '" & TextBox7.Text.Trim & "%" & "'", Con)
DS.Clear()
DA.Fill(DS, "Tbl_Personel")
Con.Close()

Me.DataGridView1.DataBindings.Clear()
Me.DataGridView1.DataBindings.Add("datasource", DS, "Tbl_Personel")


TextBox1.DataBindings.Clear()
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox9.DataBindings.Clear()


ComboBox1.DataSource = Nothing
ComboBox2.DataSource = Nothing

Me.TextBox1.DataBindings.Add("text", Me.DataGridView1.DataSource, ".PerId")
Me.TextBox2.DataBindings.Add("text", Me.DataGridView1.DataSource, ".FirstName")
Me.TextBox3.DataBindings.Add("text", Me.DataGridView1.DataSource, ".LastName")
Me.TextBox9.DataBindings.Add("text", Me.DataGridView1.DataSource, ".DateStart")

Me.ComboBox1.DataSource = Me.DataGridView1.DataSource
Me.ComboBox1.DisplayMember = Me.DataGridView1.DataMember + ".PerTypeDesc"
Me.ComboBox1.ValueMember = Me.DataGridView1.DataMember + ".PerTypeId"

Me.ComboBox2.DataSource = Me.DataGridView1.DataSource
Me.ComboBox2.DisplayMember = Me.DataGridView1.DataMember + ".MahalDesc"
Me.ComboBox2.ValueMember = Me.DataGridView1.DataMember + ".MahalId"


Catch ex As SqlClient.SqlException
MessageBox.Show(ex.Message.ToString)
End Try

[Beginneruser]

نمونه کد برای like :


Try
If Con.State = ConnectionState.Open Then
Con.Close()
End If




Con.Open()
'DA = New SqlDataAdapter("select * from PersonelQuery where LastName like '" & "%" & TextBox7.Text.Trim & "%" & "'", Con)
DA = New SqlDataAdapter("select * from PersonelQuery where LastName like '" & TextBox7.Text.Trim & "%" & "'", Con)
DS.Clear()
DA.Fill(DS, "Tbl_Personel")
Con.Close()

Me.DataGridView1.DataBindings.Clear()
Me.DataGridView1.DataBindings.Add("datasource", DS, "Tbl_Personel")


TextBox1.DataBindings.Clear()
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox9.DataBindings.Clear()


ComboBox1.DataSource = Nothing
ComboBox2.DataSource = Nothing

Me.TextBox1.DataBindings.Add("text", Me.DataGridView1.DataSource, ".PerId")
Me.TextBox2.DataBindings.Add("text", Me.DataGridView1.DataSource, ".FirstName")
Me.TextBox3.DataBindings.Add("text", Me.DataGridView1.DataSource, ".LastName")
Me.TextBox9.DataBindings.Add("text", Me.DataGridView1.DataSource, ".DateStart")

Me.ComboBox1.DataSource = Me.DataGridView1.DataSource
Me.ComboBox1.DisplayMember = Me.DataGridView1.DataMember + ".PerTypeDesc"
Me.ComboBox1.ValueMember = Me.DataGridView1.DataMember + ".PerTypeId"

Me.ComboBox2.DataSource = Me.DataGridView1.DataSource
Me.ComboBox2.DisplayMember = Me.DataGridView1.DataMember + ".MahalDesc"
Me.ComboBox2.ValueMember = Me.DataGridView1.DataMember + ".MahalId"


Catch ex As SqlClient.SqlException
MessageBox.Show(ex.Message.ToString)
End Try


سلام
جسارتا دوست عزیز شما سوال بنده رو خوندید یا همینجوری پاسخ دادید اصلا من یه چیز دیگه پرسیدم.

[Beginneruser]

سلام
جسارتا دوست عزیز شما سوال بنده رو خوندید یا همینجوری پاسخ دادید اصلا من یه چیز دیگه پرسیدم.

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

[damanpak]

سلام
دوست عزیز تاجاییکه من فهمیدم شما میخوای در زمان اجرا اطلاعاتی رو از جدول بیاری که مثلا فیلد Name شبیه به مقداری باشه که توی تکست باکس نوشتی
اگه درست متوجه شدم پس پیشنهاد میدم از Dataview استفاده کن که خودش خاصیت فیلتر رو داره

[Beginneruser]

سلام
دوست عزیز تاجاییکه من فهمیدم شما میخوای در زمان اجرا اطلاعاتی رو از جدول بیاری که مثلا فیلد Name شبیه به مقداری باشه که توی تکست باکس نوشتی
اگه درست متوجه شدم پس پیشنهاد میدم از Dataview استفاده کن که خودش خاصیت فیلتر رو داره
ممنون از وقتی که گذاشتی نه دوست عزیز منظور سوال من این هستش که وقتی مثلا حرف اول اسم رو بزنم داده ها بر حسب حرف فیلتر بشه بدن عکس جواب میده ولی وقتی عکس تو پایگاه میذارم فیلتر نمیشه یعنی مثلا وقتی حرف b رو زدم داده های پایگاه بر حسب حرف وارده فیلتر بشه و فقط اونایی رو بیاره که اول اسمشون b هستش

[sheibanizaveh]

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

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



Dim Strsql_1 as String

'=============================

Private SubTextBox1_TextChanged(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesTextBox1.TextChanged

Strsql_1 = "select fild1,fild2 from tbl where fild='1' and fild2like '%" & Me.TextBox1.Text.Trim& "%' order by fild2"

Call Fill_DataGride()

End Sub

'=================================


Private Sub Fill_DataGride()


Try


If Strsql_1 = "" ThenStrsql_1 = "select fild1,fild2 from tbl where fild='1' order by fild2"


Dim data_bas As NewSqlDataAdapter(Strsql_1, A_DataBase_Master)


Dim data_set As New DataSet


data_bas.Fill(data_set, " tbl ")


'


Me.DataGridView1.DataBindings.Add(New Binding("datasource",data_set, " tbl "))


Me.DataGridView1.DataBindings.Clear()


With DataGridView1


.Columns(0).Width = 135


.Columns(1).Width = 400


.Columns(0).HeaderText = "کل"


.Columns(1).HeaderText = "نام"


End With


Catch ex AsException


End Try


Strsql_1 = ""

End Sub

[behrooz69]

بفرما دوست من فکر کنم شما منظورت این باشه :

YourTableBindingSource.Filter = "YourFieldName Like '*" & YourTxtOrCbo.text & "*'"

بجای YourTableBindingSource اسم Table BindingSource خودتو بده

بجای YourFieldName نام فیلدی که میخوای جستجو کنی توش

بجای YourTxtOrCbo تکس باکس یا کمبو باکسی که با اون جستجو میکنی مثلا تکس باکس نام مشتری

این خاصیت از خصوصیات Table BindingSource هستش که وقتی دیتا گریدی تو صفحت میذاری اونم میاد و اسمش با اسم تیبلت شروع شده

امیدوارم کمکت کرده باشم .

یا حق

[Beginneruser]

بفرما دوست من فکر کنم شما منظورت این باشه :

YourTableBindingSource.Filter = "YourFieldName Like '*" & YourTxtOrCbo.text & "*'"

بجای YourTableBindingSource اسم Table BindingSource خودتو بده

بجای YourFieldName نام فیلدی که میخوای جستجو کنی توش

بجای YourTxtOrCbo تکس باکس یا کمبو باکسی که با اون جستجو میکنی مثلا تکس باکس نام مشتری

این خاصیت از خصوصیات Table BindingSource هستش که وقتی دیتا گریدی تو صفحت میذاری اونم میاد و اسمش با اسم تیبلت شروع شده

امیدوارم کمکت کرده باشم .

یا حق

سلام به همه مهندسین گرامی
ممنون از وقتی که گذاشتین ولی منظور از سوال من این بود که وقتی از دستور لایک استفاده می کنم میتونم تمام فیلدهارو تو فرم بایند کنم جز فیلد تصویر یعنی دستور لایک برای فیلد تصویر کار نمیکنه و ارور میده یعنی میخوام دستور جستوجو طوری باشه که تمام فیلدها و تصویر به اجزای فرم بایند بشه مثلا با زدن شماره ملی فرد تمام مشخصات مطابق با مقدار وارد شده فیلتر بشه

[vb341]

دوست عزیز شما سوالت رو اول درست مطرح نمیکنی . بعد از کلی جواب تازه تو پست آخر میگی تصویر رو میخوام نمایش بده !!!

[saeed_vb.net]

باید تصویر رو به بایت تبدیل کنی و اونو به بانک منتقل کنی از طریق memory stream و ایجاد بافر

[Beginneruser]

باید تصویر رو به بایت تبدیل کنی و اونو به بانک منتقل کنی از طریق memory stream و ایجاد بافر

سلام مهندس جان غذر جسارت نباشه ولی اگه میشه سوال رو بخون بعد کمک کن چون بنده اینجوری بیشتر میتونم از کمک شما استفاده کنم
Dim arrPic() As Byte = CType(ds.Tables("Table1").Rows(0).Item("pic"), Byte())
Dim ms As New MemoryStream(arrPic)
Me.PictureBox1.Image = Image.FromStream(ms