search using 2 text box in connected mode

  • Thread starter Thread starter a
  • Start date Start date
A

a

Dear friends



I want to use 2 text box on the form to search data in connected mode I'm
use this code and this code not work

Please see the sql because may be wrong

Thank you



This is the code



Dim cn As New OleDbConnection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Documents and Settings\av\Desktop\A1.mdb;Persist Security
Info=False"

cn.Open()







Dim cmd As New OleDbCommand

cmd.CommandText = "Select * from t1 where CustomerId=? or
CustomerId=null or customername=? or customername=null"

cmd.Connection = cn





Dim pr As New OleDbParameter

pr.Value = txtsearchCustomerId.Text

cmd.Parameters.Add(pr)





Dim pr1 As New OleDbParameter

pr.Value = txtsearchcustomername.Text

cmd.Parameters.Add(pr1)





Dim dr As OleDbDataReader

dr = cmd.ExecuteReader







dr.Read()

If dr.HasRows Then

txtCustomerId.Text = dr(0)

TxtCustomerName.Text = dr(1)

End If





cn.Close()

cmd.Dispose()

dr.Close()
 
a said:
Dear friends



I want to use 2 text box on the form to search data in connected mode I'm
use this code and this code not work

Please see the sql because may be wrong

Thank you



This is the code



Dim cn As New OleDbConnection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Documents and Settings\av\Desktop\A1.mdb;Persist Security
Info=False"

cn.Open()







Dim cmd As New OleDbCommand

cmd.CommandText = "Select * from t1 where CustomerId=? or
CustomerId=null or customername=? or customername=null"

cmd.Connection = cn





Dim pr As New OleDbParameter

pr.Value = txtsearchCustomerId.Text

cmd.Parameters.Add(pr)





Dim pr1 As New OleDbParameter

pr.Value = txtsearchcustomername.Text

cmd.Parameters.Add(pr1)





Dim dr As OleDbDataReader

dr = cmd.ExecuteReader







dr.Read()

If dr.HasRows Then

txtCustomerId.Text = dr(0)

TxtCustomerName.Text = dr(1)

End If





cn.Close()

cmd.Dispose()

dr.Close()
Click to expand...
Here's one potential problem:

Dim pr1 As New OleDbParameter

pr.Value = txtsearchcustomername.Text

cmd.Parameters.Add(pr1)

You never assign a value to pr1.
 
thank you for your help and answer

this message appear to me

Data type mismatch in criteria expression.


thank you
 
Back
Top