Re: Local variable assAdapter already declared in block?

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@xxxxxxxxxxxxxxxx>
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@xxxxxxxxxxxxxxxx> wrote in message
news:f67c84lj9a92i4ds6rk7vrbnpa0f517mn5@xxxxxxxxxx
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@xxxxxxxxxxxxxxxx>
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@xxxxxxxxxxxxxxxx> wrote in message
news:OhRK3f76IHA.5012@xxxxxxxxxxxxxxxxxxxxxxx
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@xxxxxxxxxxxxxxxx> wrote in message
news:b5pa849kcqoh9e6m74c43r8866noafne1a@xxxxxxxxxx
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@xxxxxxxxxxxxxxxx>
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()





.

Relevant Pages

  • Re: Closing a connection returned from separate class
    ... I am not fond of the "return a connection" type of architecture, ... The command button eventually calls a SP that has a parameter @ClientName. ... Public Function ConnectToDBAs SqlConnection ... Dim strConnString As String ...
    (microsoft.public.dotnet.framework.adonet)
  • Re: newbie; Update not working
    ... The first command is working ok I get the accountbalance and am able to add ... StudentID, FName, LName, MajorID, AccountBalance, BookStoreEmp. ... Is there more than just opening the connection and running the Sql ... >> Dim dsCurrent As New DataSet ...
    (microsoft.public.dotnet.framework.adonet)
  • retrive preselected value in second drop down list from the first drop down list
    ... Dim objConnection As SqlConnection ... Sub Page_Load ... ' Set up our connection. ... ' Create new command object passing it our SQL query and ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: Need Help with Select @@ Identity
    ... connection specific command. ... Create a database connection. ... 'Declare & Define SQL ... Dim Conn As New OleDbConnection ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: Local variable assAdapter already declared in block?
    ... The following line creates an OleDbCommand without a connection ... Dim assAdapter As OleDb.OleDbDataAdapter ... 'Dim assCmd As OleDb.OleDbCommand ...
    (microsoft.public.dotnet.general)