Local variable assAdapter already declared in block?
in [Dot Net]
|
From: bill on 22 Jul 2008 20:05 Thank you again! That got it:) Though there is more now.... I get an error at "assAdapter.fill(assDT)" that says "fill: SelectCommand.Connection property has not been initialized? Do you see why? Dim Con = New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;" & "data source=c:\_Archive\Documentation - Projects\Hardware Tracking - 2008\IT_Assets.mdb") Dim assCmd As New OleDb.OleDbCommand("SELECT * from tblAssets where asset_tag=?") Dim assAdapter As OleDb.OleDbDataAdapter assAdapter = New OleDb.OleDbDataAdapter(assCmd) 'Dim assCmd As OleDb.OleDbCommand assCmd = New OleDb.OleDbCommand("SELECT * from tblAssets where asset_tag=?", Con) assCmd.Parameters.Add("asset_tag", OleDbType.VarChar).Value = cboAsset.Text Dim assDT As New DataTable 'Need to initialize the dataAdapter here 'Release the instances of the above objects assAdapter.Fill(assDT) 'assAdapter.Dispose() Me.DataGridView1.DataSource = assDT End If "Jack Jackson" <jjackson(a)cinnovations.net> wrote in message news:f67c84lj9a92i4ds6rk7vrbnpa0f517mn5(a)4ax.com... > You specify the connection in the command object. > > assCmd = New OleDb.OleDbCommand( _ > "SELECT * from tblAssets where asset_tag=?", Con) > assAdapter = New OleDbAdapter(assCmd) > > or > assCmd = ... > Dim assAdapter as New OleDbAdapter > assAdapter.SelectCommand = assCmd > > > On Mon, 21 Jul 2008 23:05:29 -0600, "bill" <bill(a)bottlegarden.com> > wrote: > >>Sorry I see where you were going with that and you are right. It works >>like >>this: >>assAdapter = New OleDb.OleDbDataAdapter '(assCmd, Con) >> >>What I don't see in the properties now is how to add the command and the >>connection to the dataAdapter. Can you help me there since you've almost >>done it all now? :) >> >>Thank you! >> >>"bill"<bill(a)bottlegarden.com> wrote in message >>news:OhRK3f76IHA.5012(a)TK2MSFTNGP02.phx.gbl... >>> It's still the assAdapter that errors out in this. It's not declared >>> anywhere else so I just don't see why this is happening. If i take out >>> the first declaration there are even more errors that come up. >>> >>> "Jack Jackson" <jjackson(a)cinnovations.net> wrote in message >>> news:b5pa849kcqoh9e6m74c43r8866noafne1a(a)4ax.com... >>>> This is exactly the same problem you had in the previous example. >>>> >>>> Either remove the first Dim (the best solution), or change the second >>>> one to just an assignment statement: >>>> >>>> assCmd = New OleDb.OleDbCommand( _ >>>> "SELECT * from tblAssets where asset_tag=?") >>>> >>>> On Mon, 21 Jul 2008 22:24:14 -0600, "bill" <bill(a)bottlegarden.com> >>>> wrote: >>>> >>>>>Does anyone see why I'm getting this message? It errors out on line 5 >>>>>at >>>>>"assAdapter"? >>>>>Dim Con = New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;" >>>>>& >>>>>"data source=c:\_Archive\Documentation - Projects\Hardware Tracking - >>>>>2008\IT_Assets.mdb") >>>>> >>>>>Dim assAdapter As OleDb.OleDbDataAdapter >>>>> >>>>>Dim assCmd As New OleDb.OleDbCommand("SELECT * from tblAssets where >>>>>asset_tag=?") >>>>> >>>>>assCmd.Parameters.Add("asset_tag", OleDbType.VarChar).Value = >>>>>cboAsset.Text >>>>> >>>>>Dim assAdapter As New OleDb.OleDbDataAdapter(assCmd, Con) >>>>> >>>>>Dim assDT As New DataTable >>>>> >>>>>'Release the instances of the above objects >>>>> >>>>>assAdapter.Fill(assDT) >>>>> >>>>>assAdapter.Dispose() >>>>> >>> >>> >>
From: Jack Jackson on 23 Jul 2008 02:14 Sure. The message says it all. The DataAdapter's Select command, which is built from the text you pass to the DataAdapter's constructor, doesn't have any connection info. See my comments below. >> assCmd = New OleDb.OleDbCommand( _ >> "SELECT * from tblAssets where asset_tag=?", Con) >> assAdapter = New OleDbAdapter(assCmd) On Tue, 22 Jul 2008 18:05:09 -0600, "bill" <bill(a)bottlegarden.com> wrote: >Thank you again! That got it:) Though there is more now.... I get an error >at "assAdapter.fill(assDT)" that says "fill: SelectCommand.Connection >property has not been initialized? Do you see why? >Dim Con = New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;" & >"data source=c:\_Archive\Documentation - Projects\Hardware Tracking - >2008\IT_Assets.mdb") The following line creates an OleDbCommand without a connection object. >Dim assCmd As New OleDb.OleDbCommand("SELECT * from tblAssets where >asset_tag=?") > >Dim assAdapter As OleDb.OleDbDataAdapter The following line creates a DataAdapter from the OleDbCommand object that doesn't have a connection object. >assAdapter = New OleDb.OleDbDataAdapter(assCmd) > >'Dim assCmd As OleDb.OleDbCommand The following line creates a second command object with the same select as the previous one, this time with a connection object. This command object is never used. You should get rid of this line, and add Con as a second parameter to the previous OleDbCommand. >assCmd = New OleDb.OleDbCommand("SELECT * from tblAssets where asset_tag=?", >Con) > >assCmd.Parameters.Add("asset_tag", OleDbType.VarChar).Value = cboAsset.Text > >Dim assDT As New DataTable > >'Need to initialize the dataAdapter here > >'Release the instances of the above objects > >assAdapter.Fill(assDT) > >'assAdapter.Dispose() > >Me.DataGridView1.DataSource = assDT > >End If > > > >"Jack Jackson" <jjackson(a)cinnovations.net> wrote in message >news:f67c84lj9a92i4ds6rk7vrbnpa0f517mn5(a)4ax.com... >> You specify the connection in the command object. >> >> assCmd = New OleDb.OleDbCommand( _ >> "SELECT * from tblAssets where asset_tag=?", Con) >> assAdapter = New OleDbAdapter(assCmd) >> >> or >> assCmd = ... >> Dim assAdapter as New OleDbAdapter >> assAdapter.SelectCommand = assCmd >> >> >> On Mon, 21 Jul 2008 23:05:29 -0600, "bill" <bill(a)bottlegarden.com> >> wrote: >> >>>Sorry I see where you were going with that and you are right. It works >>>like >>>this: >>>assAdapter = New OleDb.OleDbDataAdapter '(assCmd, Con) >>> >>>What I don't see in the properties now is how to add the command and the >>>connection to the dataAdapter. Can you help me there since you've almost >>>done it all now? :) >>> >>>Thank you! >>> >>>"bill"<bill(a)bottlegarden.com> wrote in message >>>news:OhRK3f76IHA.5012(a)TK2MSFTNGP02.phx.gbl... >>>> It's still the assAdapter that errors out in this. It's not declared >>>> anywhere else so I just don't see why this is happening. If i take out >>>> the first declaration there are even more errors that come up. >>>> >>>> "Jack Jackson" <jjackson(a)cinnovations.net> wrote in message >>>> news:b5pa849kcqoh9e6m74c43r8866noafne1a(a)4ax.com... >>>>> This is exactly the same problem you had in the previous example. >>>>> >>>>> Either remove the first Dim (the best solution), or change the second >>>>> one to just an assignment statement: >>>>> >>>>> assCmd = New OleDb.OleDbCommand( _ >>>>> "SELECT * from tblAssets where asset_tag=?") >>>>> >>>>> On Mon, 21 Jul 2008 22:24:14 -0600, "bill" <bill(a)bottlegarden.com> >>>>> wrote: >>>>> >>>>>>Does anyone see why I'm getting this message? It errors out on line 5 >>>>>>at >>>>>>"assAdapter"? >>>>>>Dim Con = New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;" >>>>>>& >>>>>>"data source=c:\_Archive\Documentation - Projects\Hardware Tracking - >>>>>>2008\IT_Assets.mdb") >>>>>> >>>>>>Dim assAdapter As OleDb.OleDbDataAdapter >>>>>> >>>>>>Dim assCmd As New OleDb.OleDbCommand("SELECT * from tblAssets where >>>>>>asset_tag=?") >>>>>> >>>>>>assCmd.Parameters.Add("asset_tag", OleDbType.VarChar).Value = >>>>>>cboAsset.Text >>>>>> >>>>>>Dim assAdapter As New OleDb.OleDbDataAdapter(assCmd, Con) >>>>>> >>>>>>Dim assDT As New DataTable >>>>>> >>>>>>'Release the instances of the above objects >>>>>> >>>>>>assAdapter.Fill(assDT) >>>>>> >>>>>>assAdapter.Dispose() >>>>>> >>>> >>>> >>> >
From: bill on 23 Jul 2008 04:31 Oh man, I should have seen that. I comment out that lin, add the con to the second and it works perfectly. Thank you so much! You have been incredibly helpful and patient and I really appreciate it. I have learned allot! Thank you! Bill Bray "Jack Jackson" <jjackson(a)cinnovations.net> wrote in message news:pkid841jv1v9t9r705clrbc5bphn5u8kgr(a)4ax.com... > Sure. The message says it all. The DataAdapter's Select command, > which is built from the text you pass to the DataAdapter's > constructor, doesn't have any connection info. > > See my comments below. > >>> assCmd = New OleDb.OleDbCommand( _ >>> "SELECT * from tblAssets where asset_tag=?", Con) >>> assAdapter = New OleDbAdapter(assCmd) > > On Tue, 22 Jul 2008 18:05:09 -0600, "bill" <bill(a)bottlegarden.com> > wrote: > >>Thank you again! That got it:) Though there is more now.... I get an >>error >>at "assAdapter.fill(assDT)" that says "fill: SelectCommand.Connection >>property has not been initialized? Do you see why? >>Dim Con = New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;" & >>"data source=c:\_Archive\Documentation - Projects\Hardware Tracking - >>2008\IT_Assets.mdb") > > The following line creates an OleDbCommand without a connection > object. > >>Dim assCmd As New OleDb.OleDbCommand("SELECT * from tblAssets where >>asset_tag=?") >> >>Dim assAdapter As OleDb.OleDbDataAdapter > > The following line creates a DataAdapter from the OleDbCommand object > that doesn't have a connection object. > >>assAdapter = New OleDb.OleDbDataAdapter(assCmd) >> >>'Dim assCmd As OleDb.OleDbCommand > > The following line creates a second command object with the same > select as the previous one, this time with a connection object. This > command object is never used. You should get rid of this line, and > add Con as a second parameter to the previous OleDbCommand. > >>assCmd = New OleDb.OleDbCommand("SELECT * from tblAssets where >>asset_tag=?", >>Con) >> >>assCmd.Parameters.Add("asset_tag", OleDbType.VarChar).Value = >>cboAsset.Text >> >>Dim assDT As New DataTable >> >>'Need to initialize the dataAdapter here >> >>'Release the instances of the above objects >> >>assAdapter.Fill(assDT) >> >>'assAdapter.Dispose() >> >>Me.DataGridView1.DataSource = assDT >> >>End If >> >> >> >>"Jack Jackson" <jjackson(a)cinnovations.net> wrote in message >>news:f67c84lj9a92i4ds6rk7vrbnpa0f517mn5(a)4ax.com... >>> You specify the connection in the command object. >>> >>> assCmd = New OleDb.OleDbCommand( _ >>> "SELECT * from tblAssets where asset_tag=?", Con) >>> assAdapter = New OleDbAdapter(assCmd) >>> >>> or >>> assCmd = ... >>> Dim assAdapter as New OleDbAdapter >>> assAdapter.SelectCommand = assCmd >>> >>> >>> On Mon, 21 Jul 2008 23:05:29 -0600, "bill" <bill(a)bottlegarden.com> >>> wrote: >>> >>>>Sorry I see where you were going with that and you are right. It works >>>>like >>>>this: >>>>assAdapter = New OleDb.OleDbDataAdapter '(assCmd, Con) >>>> >>>>What I don't see in the properties now is how to add the command and the >>>>connection to the dataAdapter. Can you help me there since you've >>>>almost >>>>done it all now? :) >>>> >>>>Thank you! >>>> >>>>"bill"<bill(a)bottlegarden.com> wrote in message >>>>news:OhRK3f76IHA.5012(a)TK2MSFTNGP02.phx.gbl... >>>>> It's still the assAdapter that errors out in this. It's not declared >>>>> anywhere else so I just don't see why this is happening. If i take >>>>> out >>>>> the first declaration there are even more errors that come up. >>>>> >>>>> "Jack Jackson" <jjackson(a)cinnovations.net> wrote in message >>>>> news:b5pa849kcqoh9e6m74c43r8866noafne1a(a)4ax.com... >>>>>> This is exactly the same problem you had in the previous example. >>>>>> >>>>>> Either remove the first Dim (the best solution), or change the second >>>>>> one to just an assignment statement: >>>>>> >>>>>> assCmd = New OleDb.OleDbCommand( _ >>>>>> "SELECT * from tblAssets where asset_tag=?") >>>>>> >>>>>> On Mon, 21 Jul 2008 22:24:14 -0600, "bill" <bill(a)bottlegarden.com> >>>>>> wrote: >>>>>> >>>>>>>Does anyone see why I'm getting this message? It errors out on line >>>>>>>5 >>>>>>>at >>>>>>>"assAdapter"? >>>>>>>Dim Con = New >>>>>>>OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;" >>>>>>>& >>>>>>>"data source=c:\_Archive\Documentation - Projects\Hardware Tracking - >>>>>>>2008\IT_Assets.mdb") >>>>>>> >>>>>>>Dim assAdapter As OleDb.OleDbDataAdapter >>>>>>> >>>>>>>Dim assCmd As New OleDb.OleDbCommand("SELECT * from tblAssets where >>>>>>>asset_tag=?") >>>>>>> >>>>>>>assCmd.Parameters.Add("asset_tag", OleDbType.VarChar).Value = >>>>>>>cboAsset.Text >>>>>>> >>>>>>>Dim assAdapter As New OleDb.OleDbDataAdapter(assCmd, Con) >>>>>>> >>>>>>>Dim assDT As New DataTable >>>>>>> >>>>>>>'Release the instances of the above objects >>>>>>> >>>>>>>assAdapter.Fill(assDT) >>>>>>> >>>>>>>assAdapter.Dispose() >>>>>>> >>>>> >>>>> >>>> >>
From: sloan on 24 Jul 2008 10:36 Now you can work on your naming conventions. The @$$Adaptor sounds like something you use to get a colonoscopy and you have an oversized or undersized butt. (ha ha). ... "bill" <bill(a)bottlegarden.com> wrote in message news:ubas75J7IHA.4108(a)TK2MSFTNGP04.phx.gbl... > Oh man, I should have seen that. I comment out that lin, add the con to > the second and it works perfectly. Thank you so much! You have been > incredibly helpful and patient and I really appreciate it. I have learned > allot! > Thank you! > Bill Bray > > "Jack Jackson" <jjackson(a)cinnovations.net> wrote in message > news:pkid841jv1v9t9r705clrbc5bphn5u8kgr(a)4ax.com... >> Sure. The message says it all. The DataAdapter's Select command, >> which is built from the text you pass to the DataAdapter's >> constructor, doesn't have any connection info. >> >> See my comments below. >> >>>> assCmd = New OleDb.OleDbCommand( _ >>>> "SELECT * from tblAssets where asset_tag=?", Con) >>>> assAdapter = New OleDbAdapter(assCmd) >> >> On Tue, 22 Jul 2008 18:05:09 -0600, "bill" <bill(a)bottlegarden.com> >> wrote: >> >>>Thank you again! That got it:) Though there is more now.... I get an >>>error >>>at "assAdapter.fill(assDT)" that says "fill: SelectCommand.Connection >>>property has not been initialized? Do you see why? >>>Dim Con = New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;" & >>>"data source=c:\_Archive\Documentation - Projects\Hardware Tracking - >>>2008\IT_Assets.mdb") >> >> The following line creates an OleDbCommand without a connection >> object. >> >>>Dim assCmd As New OleDb.OleDbCommand("SELECT * from tblAssets where >>>asset_tag=?") >>> >>>Dim assAdapter As OleDb.OleDbDataAdapter >> >> The following line creates a DataAdapter from the OleDbCommand object >> that doesn't have a connection object. >> >>>assAdapter = New OleDb.OleDbDataAdapter(assCmd) >>> >>>'Dim assCmd As OleDb.OleDbCommand >> >> The following line creates a second command object with the same >> select as the previous one, this time with a connection object. This >> command object is never used. You should get rid of this line, and >> add Con as a second parameter to the previous OleDbCommand. >> >>>assCmd = New OleDb.OleDbCommand("SELECT * from tblAssets where >>>asset_tag=?", >>>Con) >>> >>>assCmd.Parameters.Add("asset_tag", OleDbType.VarChar).Value = >>>cboAsset.Text >>> >>>Dim assDT As New DataTable >>> >>>'Need to initialize the dataAdapter here >>> >>>'Release the instances of the above objects >>> >>>assAdapter.Fill(assDT) >>> >>>'assAdapter.Dispose() >>> >>>Me.DataGridView1.DataSource = assDT >>> >>>End If >>> >>> >>> >>>"Jack Jackson" <jjackson(a)cinnovations.net> wrote in message >>>news:f67c84lj9a92i4ds6rk7vrbnpa0f517mn5(a)4ax.com... >>>> You specify the connection in the command object. >>>> >>>> assCmd = New OleDb.OleDbCommand( _ >>>> "SELECT * from tblAssets where asset_tag=?", Con) >>>> assAdapter = New OleDbAdapter(assCmd) >>>> >>>> or >>>> assCmd = ... >>>> Dim assAdapter as New OleDbAdapter >>>> assAdapter.SelectCommand = assCmd >>>> >>>> >>>> On Mon, 21 Jul 2008 23:05:29 -0600, "bill" <bill(a)bottlegarden.com> >>>> wrote: >>>> >>>>>Sorry I see where you were going with that and you are right. It works >>>>>like >>>>>this: >>>>>assAdapter = New OleDb.OleDbDataAdapter '(assCmd, Con) >>>>> >>>>>What I don't see in the properties now is how to add the command and >>>>>the >>>>>connection to the dataAdapter. Can you help me there since you've >>>>>almost >>>>>done it all now? :) >>>>> >>>>>Thank you! >>>>> >>>>>"bill"<bill(a)bottlegarden.com> wrote in message >>>>>news:OhRK3f76IHA.5012(a)TK2MSFTNGP02.phx.gbl... >>>>>> It's still the assAdapter that errors out in this. It's not declared >>>>>> anywhere else so I just don't see why this is happening. If i take >>>>>> out >>>>>> the first declaration there are even more errors that come up. >>>>>> >>>>>> "Jack Jackson" <jjackson(a)cinnovations.net> wrote in message >>>>>> news:b5pa849kcqoh9e6m74c43r8866noafne1a(a)4ax.com... >>>>>>> This is exactly the same problem you had in the previous example. >>>>>>> >>>>>>> Either remove the first Dim (the best solution), or change the >>>>>>> second >>>>>>> one to just an assignment statement: >>>>>>> >>>>>>> assCmd = New OleDb.OleDbCommand( _ >>>>>>> "SELECT * from tblAssets where asset_tag=?") >>>>>>> >>>>>>> On Mon, 21 Jul 2008 22:24:14 -0600, "bill" <bill(a)bottlegarden.com> >>>>>>> wrote: >>>>>>> >>>>>>>>Does anyone see why I'm getting this message? It errors out on line >>>>>>>>5 >>>>>>>>at >>>>>>>>"assAdapter"? >>>>>>>>Dim Con = New >>>>>>>>OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;" >>>>>>>>& >>>>>>>>"data source=c:\_Archive\Documentation - Projects\Hardware >>>>>>>>Tracking - >>>>>>>>2008\IT_Assets.mdb") >>>>>>>> >>>>>>>>Dim assAdapter As OleDb.OleDbDataAdapter >>>>>>>> >>>>>>>>Dim assCmd As New OleDb.OleDbCommand("SELECT * from tblAssets where >>>>>>>>asset_tag=?") >>>>>>>> >>>>>>>>assCmd.Parameters.Add("asset_tag", OleDbType.VarChar).Value = >>>>>>>>cboAsset.Text >>>>>>>> >>>>>>>>Dim assAdapter As New OleDb.OleDbDataAdapter(assCmd, Con) >>>>>>>> >>>>>>>>Dim assDT As New DataTable >>>>>>>> >>>>>>>>'Release the instances of the above objects >>>>>>>> >>>>>>>>assAdapter.Fill(assDT) >>>>>>>> >>>>>>>>assAdapter.Dispose() >>>>>>>> >>>>>> >>>>>> >>>>> >>> > >
From: bill on 25 Jul 2008 22:01 LOL! I thought someone would have said something sooner:) It just made sense to me...it was a data adapter for the assets....but it still made me chuckle. "sloan" <sloan(a)ipass.net> wrote in message news:OOntyqZ7IHA.2416(a)TK2MSFTNGP02.phx.gbl... > > Now you can work on your naming conventions. > > The @$$Adaptor sounds like something you use to get a colonoscopy and you > have an oversized or undersized butt. (ha ha). > > .. > > > > "bill" <bill(a)bottlegarden.com> wrote in message > news:ubas75J7IHA.4108(a)TK2MSFTNGP04.phx.gbl... >> Oh man, I should have seen that. I comment out that lin, add the con to >> the second and it works perfectly. Thank you so much! You have been >> incredibly helpful and patient and I really appreciate it. I have >> learned allot! >> Thank you! >> Bill Bray >> >> "Jack Jackson" <jjackson(a)cinnovations.net> wrote in message >> news:pkid841jv1v9t9r705clrbc5bphn5u8kgr(a)4ax.com... >>> Sure. The message says it all. The DataAdapter's Select command, >>> which is built from the text you pass to the DataAdapter's >>> constructor, doesn't have any connection info. >>> >>> See my comments below. >>> >>>>> assCmd = New OleDb.OleDbCommand( _ >>>>> "SELECT * from tblAssets where asset_tag=?", Con) >>>>> assAdapter = New OleDbAdapter(assCmd) >>> >>> On Tue, 22 Jul 2008 18:05:09 -0600, "bill" <bill(a)bottlegarden.com> >>> wrote: >>> >>>>Thank you again! That got it:) Though there is more now.... I get an >>>>error >>>>at "assAdapter.fill(assDT)" that says "fill: SelectCommand.Connection >>>>property has not been initialized? Do you see why? >>>>Dim Con = New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;" >>>>& >>>>"data source=c:\_Archive\Documentation - Projects\Hardware Tracking - >>>>2008\IT_Assets.mdb") >>> >>> The following line creates an OleDbCommand without a connection >>> object. >>> >>>>Dim assCmd As New OleDb.OleDbCommand("SELECT * from tblAssets where >>>>asset_tag=?") >>>> >>>>Dim assAdapter As OleDb.OleDbDataAdapter >>> >>> The following line creates a DataAdapter from the OleDbCommand object >>> that doesn't have a connection object. >>> >>>>assAdapter = New OleDb.OleDbDataAdapter(assCmd) >>>> >>>>'Dim assCmd As OleDb.OleDbCommand >>> >>> The following line creates a second command object with the same >>> select as the previous one, this time with a connection object. This >>> command object is never used. You should get rid of this line, and >>> add Con as a second parameter to the previous OleDbCommand. >>> >>>>assCmd = New OleDb.OleDbCommand("SELECT * from tblAssets where >>>>asset_tag=?", >>>>Con) >>>> >>>>assCmd.Parameters.Add("asset_tag", OleDbType.VarChar).Value = >>>>cboAsset.Text >>>> >>>>Dim assDT As New DataTable >>>> >>>>'Need to initialize the dataAdapter here >>>> >>>>'Release the instances of the above objects >>>> >>>>assAdapter.Fill(assDT) >>>> >>>>'assAdapter.Dispose() >>>> >>>>Me.DataGridView1.DataSource = assDT >>>> >>>>End If >>>> >>>> >>>> >>>>"Jack Jackson" <jjackson(a)cinnovations.net> wrote in message >>>>news:f67c84lj9a92i4ds6rk7vrbnpa0f517mn5(a)4ax.com... >>>>> You specify the connection in the command object. >>>>> >>>>> assCmd = New OleDb.OleDbCommand( _ >>>>> "SELECT * from tblAssets where asset_tag=?", Con) >>>>> assAdapter = New OleDbAdapter(assCmd) >>>>> >>>>> or >>>>> assCmd = ... >>>>> Dim assAdapter as New OleDbAdapter >>>>> assAdapter.SelectCommand = assCmd >>>>> >>>>> >>>>> On Mon, 21 Jul 2008 23:05:29 -0600, "bill" <bill(a)bottlegarden.com> >>>>> wrote: >>>>> >>>>>>Sorry I see where you were going with that and you are right. It >>>>>>works >>>>>>like >>>>>>this: >>>>>>assAdapter = New OleDb.OleDbDataAdapter '(assCmd, Con) >>>>>> >>>>>>What I don't see in the properties now is how to add the command and >>>>>>the >>>>>>connection to the dataAdapter. Can you help me there since you've >>>>>>almost >>>>>>done it all now? :) >>>>>> >>>>>>Thank you! >>>>>> >>>>>>"bill"<bill(a)bottlegarden.com> wrote in message >>>>>>news:OhRK3f76IHA.5012(a)TK2MSFTNGP02.phx.gbl... >>>>>>> It's still the assAdapter that errors out in this. It's not >>>>>>> declared >>>>>>> anywhere else so I just don't see why this is happening. If i take >>>>>>> out >>>>>>> the first declaration there are even more errors that come up. >>>>>>> >>>>>>> "Jack Jackson" <jjackson(a)cinnovations.net> wrote in message >>>>>>> news:b5pa849kcqoh9e6m74c43r8866noafne1a(a)4ax.com... >>>>>>>> This is exactly the same problem you had in the previous example. >>>>>>>> >>>>>>>> Either remove the first Dim (the best solution), or change the >>>>>>>> second >>>>>>>> one to just an assignment statement: >>>>>>>> >>>>>>>> assCmd = New OleDb.OleDbCommand( _ >>>>>>>> "SELECT * from tblAssets where asset_tag=?") >>>>>>>> >>>>>>>> On Mon, 21 Jul 2008 22:24:14 -0600, "bill" <bill(a)bottlegarden.com> >>>>>>>> wrote: >>>>>>>> >>>>>>>>>Does anyone see why I'm getting this message? It errors out on >>>>>>>>>line 5 >>>>>>>>>at >>>>>>>>>"assAdapter"? >>>>>>>>>Dim Con = New >>>>>>>>>OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;" >>>>>>>>>& >>>>>>>>>"data source=c:\_Archive\Documentation - Projects\Hardware >>>>>>>>>Tracking - >>>>>>>>>2008\IT_Assets.mdb") >>>>>>>>> >>>>>>>>>Dim assAdapter As OleDb.OleDbDataAdapter >>>>>>>>> >>>>>>>>>Dim assCmd As New OleDb.OleDbCommand("SELECT * from tblAssets where >>>>>>>>>asset_tag=?") >>>>>>>>> >>>>>>>>>assCmd.Parameters.Add("asset_tag", OleDbType.VarChar).Value = >>>>>>>>>cboAsset.Text >>>>>>>>> >>>>>>>>>Dim assAdapter As New OleDb.OleDbDataAdapter(assCmd, Con) >>>>>>>>> >>>>>>>>>Dim assDT As New DataTable >>>>>>>>> >>>>>>>>>'Release the instances of the above objects >>>>>>>>> >>>>>>>>>assAdapter.Fill(assDT) >>>>>>>>> >>>>>>>>>assAdapter.Dispose() >>>>>>>>> >>>>>>> >>>>>>> >>>>>> >>>> >> >> > >
First
|
Prev
|
Pages: 1 2 Prev: Microsoft Office Accounting Professional 2008 Security Next: classic news in world |