ali960
2008/3/14, 08:33 PM
با سلام اگر امکان دارد مشکل این جستجو را بر طرف کنید
Dim adp As New SqlClient.SqlDataAdapter
Dim cmd As New SqlClient.SqlCommand
Dim dt As New DataTable
cmd.Connection = MyCon
cmd.Parameters.Add("@val1", SqlDbType.NVarChar)
cmd.Parameters.Add("@val2", SqlDbType.NVarChar)
cmd.Parameters.Add("@val3", SqlDbType.NVarChar)
cmd.Parameters.Item("@val1").Value = Trim(TXTSearch1.Text)
cmd.Parameters.Item("@val2").Value = Trim(TXTSearch2.Text)
cmd.Parameters.Item("@val3").Value = Trim(TXTSearch3.Text)
If c1.Checked And Trim(TXTSearch1.Text) <> "" = True Then
cmd.CommandText = "select * from myphone where" & "firstname=%@val1%"
If c2.Checked And Trim(TXTSearch2.Text) <> "" = True Then
cmd.CommandText = "select * from myphone where" & "and firstname=%@val2%"
If c3.Checked And Trim(TXTSearch3.Text) <> "" = True Then
cmd.CommandText = "select * from myphone where" & "and city=%@val3%"
adp.SelectCommand = cmd
adp.Fill(dt)
DGResult.DataSource = dt
End If
End If
End If
Dim adp As New SqlClient.SqlDataAdapter
Dim cmd As New SqlClient.SqlCommand
Dim dt As New DataTable
cmd.Connection = MyCon
cmd.Parameters.Add("@val1", SqlDbType.NVarChar)
cmd.Parameters.Add("@val2", SqlDbType.NVarChar)
cmd.Parameters.Add("@val3", SqlDbType.NVarChar)
cmd.Parameters.Item("@val1").Value = Trim(TXTSearch1.Text)
cmd.Parameters.Item("@val2").Value = Trim(TXTSearch2.Text)
cmd.Parameters.Item("@val3").Value = Trim(TXTSearch3.Text)
If c1.Checked And Trim(TXTSearch1.Text) <> "" = True Then
cmd.CommandText = "select * from myphone where" & "firstname=%@val1%"
If c2.Checked And Trim(TXTSearch2.Text) <> "" = True Then
cmd.CommandText = "select * from myphone where" & "and firstname=%@val2%"
If c3.Checked And Trim(TXTSearch3.Text) <> "" = True Then
cmd.CommandText = "select * from myphone where" & "and city=%@val3%"
adp.SelectCommand = cmd
adp.Fill(dt)
DGResult.DataSource = dt
End If
End If
End If