Vista - Can anyone tell me why this does not work?

You've got it declared twice.


"bill" <bill@xxxxxx> wrote in message
news:Oq0CQT56IHA.4864@xxxxxx

"bill" <bill@xxxxxx> wrote in message
news:u6U3Wgw6IHA.1192@xxxxxxNo error message at all?
One thing I see is the use of single "\" in the connection string, which I
think should either be "\\" or "/".

> One thing I see is the use of single "\" in the connection string, which IIn VB you do not have to escape slashes. The ConnectionString is fine as
long as the provider and data source are correctly defined.

Best Regards,
Stanimir Stoyanov | www.stoyanoff.info

"PvdG42" <pvdg@xxxxxx> wrote in message
news:u7b721y6IHA.4988@xxxxxx

The OleDbCommand, in general but especially for JET, does not support named
parameters in the CommandText.

Instead parameters are positional and designated by ?.

So your CommandText then becomes:

"SELECT * from tblAssets where asset_tag=?"

The positional parameter is satisfied by the OleDbParameter in the relative
position in the Parameters collection so it is CRITICAL that they are added
in the correct sequence.

When you defined an OleDbCommand, you must give it a name, even though it is
is ignored.

So your parameter collection, is populated thus:

assCmd.Parameters.Add("asset_tag", OleDbType.VarChar).Value =
cboAsset.Text

Note that I have demonstrated using 'asset-tag' so that it becomes
self-documenting to a degree.

Also note that the Add method has a number of overloads that make defining
OleDBParameters easier.

In addition, you do not HAVE to define the width of the column in question.
If you omit the width then it will be inferred at execution-time.

IIRC there is also a method AddWithValue so that you can add an
OleDbParameter thus:

assCmd.Parameters.AddWithValue("asset_tag", cboAsset.Text)

In this case both the type and the with of the column in question are
inferred at execution-time.


"bill" <bill@xxxxxx> wrote in message
news:u6U3Wgw6IHA.1192@xxxxxx

I do get an error message here:
Dim dataAdapter As New OleDb.OleDbDataAdapter(assCmd, Con)

the dataAdapeter underlines and says "dataAdapter already declared in local
block" but I don't see what the problem is there?
Dim Con = New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;" &
"data source=c:\_Archive\Documentation - Projects\Hardware Tracking -
2008\IT_Assets.mdb")

Dim dataAdapter 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 dataAdapter As New OleDb.OleDbDataAdapter(assCmd, Con)

Dim DT As New DataTable

DataAdapter.Fill(DT)

DataAdapter.Dispose()

Me.DataGridView1.DataSource = DT

"PvdG42" <pvdg@xxxxxx> wrote in message
news:u7b721y6IHA.4988@xxxxxx

Thank you! You've pretty much sorted me out. I'm still getting the error
message that the dataAdapter is already declared but I don't know of any
other way to get what I'm after for the oledb data adapter?

"Stephany Young" <noone@xxxxxx> wrote in message
news:OKFEjKz6IHA.5440@xxxxxx

You declared dataAdapter twice.

Once on this line:and again a few lines later on this line:Just remove the first line.

On Mon, 21 Jul 2008 18:45:58 -0600, "bill" <bill@xxxxxx>
wrote:

It still errors out there. I'm stumped!

"Jack Jackson" <jjackson@xxxxxx> wrote in message
news:42pa84p16sgvmj1prevpsn453tk42a4r17@xxxxxx

Are you saying that you still get the error "dataAdapter already
declared in local block"? If so, then you must still have more than
one definition of dataAdapter in the routine. If you can't figure it
out post the entire routine.

On Mon, 21 Jul 2008 22:54:37 -0600, "bill" <bill@xxxxxx>
wrote:

You've got it declared twice.


"bill" <bill@xxxxxx> wrote in message
news:Oq0CQT56IHA.4864@xxxxxx