trouble with this very very basic database
Cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
Rs.Source = Path + "\Brakes.mdb"
Cn.ConnectionString = "Data Source = " + Path + "Brakes.mdb; "
Cn.Open
Rs.Open "select * from Data", Cn
If Not Rs.EOF Then
TextMake.Text = Rs.Fields("Make").Value
example...
If the field "Make" in the database does not contain a data value then there will be an error.
Re: trouble with this very very basic database
VB Code:
Cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
Rs.Source = Path + "\Brakes.mdb"
Cn.ConnectionString = "Data Source = " + Path + "Brakes.mdb; "
Cn.Open
Rs.Open "select * from Data", Cn
If Not Rs.EOF Then
TextMake.Text = Rs.Fields("Make").Value & ""
end if
Re: Re: trouble with this very very basic database
Quote:
Originally posted by John McKernan
VB Code:
Cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
Rs.Source = Path + "\Brakes.mdb"
Cn.ConnectionString = "Data Source = " + Path + "Brakes.mdb; "
Cn.Open
Rs.Open "select * from Data", Cn
If Not Rs.EOF Then
TextMake.Text = Rs.Fields("Make").Value & ""
end if
oR you can use
VB Code:
TextMake.Text = Rs.Fields(INDEX).Value & ""