search using 2 text box in connected mode
in [Dot Net]
|
Prev: date time formatting
Next: Icon
From: a on 7 Jul 2008 07:09 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()
From: PvdG42 on 7 Jul 2008 08:36 "a" <a(a)a.net> wrote in message news:ejll4OC4IHA.2064(a)TK2MSFTNGP02.phx.gbl... > 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() > > 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.
From: a on 7 Jul 2008 08:59 thank you for your help and answer this message appear to me Data type mismatch in criteria expression. thank you "PvdG42" <pvan(a)toadstool.edu> wrote in message news:Owsmp4C4IHA.3784(a)TK2MSFTNGP06.phx.gbl... > "a" <a(a)a.net> wrote in message > news:ejll4OC4IHA.2064(a)TK2MSFTNGP02.phx.gbl... >> 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() >> >> > 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.
|
Pages: 1 Prev: date time formatting Next: Icon |