تغییر در کد جستجو

[soniarose]

سلام این قسمتی از کد جستجو هست اگه من بخوام به جای استفاده از textboxهای جداگانه به عنوان فیلدهای جستجو اونها رو در یک combobox قرار بدم و به وسیله یک textbox مقدار فیلد رو برای جستجو وارد کنم باید چه تغییری در این کد بدم


strsql1 = "select * from table1 where "
If TextBox1.Text <> ""Then strsql1 += "id like '%" + TextBox1.Text + "' and "
If TextBox2.Text <> ""Then strsql1 += "name='" + TextBox2.Text + "' and "
If TextBox3.Text <> ""Then strsql1 += "tel='" + TextBox3.Text + "' and "
[/quote]

[anooshiran]

سلام دوست عزيز

سئوالت خيلي واضح نيست. لطفا واضحتر و كاملتر توضيح بده. در ضمن كدت را هم كاملتر يگذار

[soniarose]

مثلا در یک combobox دو تا ایتم نام و فامیل قرار بدیم و کاربر هنگام جستجو یکی از اونا رو انتخاب کنه و نام مورد نظرشو رو در یک textbox وارد کنه وجستجو کنه


strsql1 = "select * from table1 where "
If TextBox1.Text <> ""Then strsql1 += "id like '%" + TextBox1.Text + "' and "
If TextBox2.Text <> ""Then strsql1 += "name='" + TextBox2.Text + "' and "
If TextBox3.Text <> ""Then strsql1 += "tel='" + TextBox3.Text + "' and "
If strsql1 = "select * from table1 where "Then
strsql1 = "select * from table1"
Else
strsql1 = strsql1.Remove(strsql1.Length - 4, 4)
EndIf
DA = New OleDb.OleDbDataAdapter(strsql1, strcon1)
DA.Fill(dt)
Dim dgv AsNew DataGridView
dgv.DataSource = dt
dgv.Dock = DockStyle.Fill
Me.Controls.Add(dgv)
DA.Dispose()

[alimanam]

با سلام

فکر می کنم نمونه کدی که ضمیمه کردم مد نظرت باشه ؟

[soniarose]

ممنونم ولی نتونستم بازش کنم

[alimanam]

این نمونه کدی هست که در پروژه نمونه نوشتم چیز خاصی نداره یه Combobox و یه Textbox که درون کامبوباکس رو با فیلدهای جدولت پر کردم .


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.SelectedIndex = 0
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = String.Empty Then MsgBox("Textbox is Empty !", MsgBoxStyle.Exclamation) : Exit Sub
' strsql1 = "select * from table1 where "

Select Case ComboBox1.SelectedIndex
Case Is = 0
' strsql1 += "id =" & TextBox1.Text
Case Is = 1
' strsql1 += "name like '%" & TextBox1.Text & "%'"
Case Is = 2
' strsql1 += "tel ='" + TextBox1.Text & "'"
End Select
' بقیه کدهای خودت رو اینجا می تونی بنویسی
End Sub
End Class