Error 07002 - SQLBindParamete r Problem Shorter Example

[Mikey G]

Hi, Here is a shorter code example since the last message I posted got
truncated. So the problem is I created a simple VB.NET 2003 application
through Visual Studio that connects to a MySQL database and loads a
table into a Dataset, and then displays that table information in a
DataGrid on a form for editing. The table fill works fine, the delete
function works fine, but when I try to update a row, the application
fails with the following error message:

An unhandled exception of type 'System.Data.Od bc.OdbcExceptio n' occurred
in system.data.dll

Additional information: System error.

'Data Access VB App.exe': Loaded
'c:\windows\ass embly\gac\micro soft.visualbasi c\7.0.5000.0__b 03f5f7f11d50
a3a\microsoft.v isualbasic.dll' , No symbols loaded.

Unhandled Exception: System.Data.Odb c.OdbcException : ERROR [07002]
[MySQL][ODBC 3.51 Driver][mysqld-4.0.21-debug]SQLBindParamete r not used
for all parameters
at System.Data.Com mon.DbDataAdapt er.Update(DataR ow[] dataRows,
DataTableMappin g tableMapping)
at System.Data.Com mon.DbDataAdapt er.Update(DataS et dataSet, String
srcTable)
at System.Data.Com mon.DbDataAdapt er.Update(DataS et dataSet)
at Data_Access_VB_ App.Form1.btnUp date_Click(Obje ct sender, EventArgs
e) in C:\Documents and Settings\System Admin\My Documents\Visua l Studio
Projects\Data Access VB App\Form1.vb:li ne 225

The majority of the code was generated by Visual Studio and based on the
error message it would seem that I have to add SQLBindParamete r
statements, but I am not sure the syntax that I should be using. I am
new to VB.NET (coming from Java/J2EE) and haven't been able to come up
with a workable solution after pouring over the MSDN manuals. Here is
some of the generated code:
'
'OdbcDataAdapte r1
'
Me.OdbcDataAdap ter1.DeleteComm and = Me.OdbcDeleteCo mmand1
Me.OdbcDataAdap ter1.InsertComm and = Me.OdbcInsertCo mmand1
Me.OdbcDataAdap ter1.SelectComm and = Me.OdbcSelectCo mmand1
Me.OdbcDataAdap ter1.TableMappi ngs.AddRange(Ne w
System.Data.Com mon.DataTableMa pping() {New
System.Data.Com mon.DataTableMa pping("Table", "epctag", New
System.Data.Com mon.DataColumnM apping() {New
System.Data.Com mon.DataColumnM apping("ID", "ID"), New
System.Data.Com mon.DataColumnM apping("OBJECT_ EPC", "OBJECT_EPC "), New
System.Data.Com mon.DataColumnM apping("READER_ EPC", "READER_EPC "), New
System.Data.Com mon.DataColumnM apping("DATE_TI ME", "DATE_TIME" ), New
System.Data.Com mon.DataColumnM apping("PAYLOAD ", "PAYLOAD"), New
System.Data.Com mon.DataColumnM apping("GTIN_DO MAIN", "GTIN_DOMAI N"), New
System.Data.Com mon.DataColumnM apping("GTIN_CL ASS", "GTIN_CLASS")}) })
Me.OdbcDataAdap ter1.UpdateComm and = Me.OdbcUpdateCo mmand1
'
'OdbcConnection 1
'
Me.OdbcConnecti on1.ConnectionS tring =
"STMT=;OPTION=3 ;DSN=EPCThingsN ET;UID=root;SOC KET=;DESC=MySQL ODBC 3.51
Driver DSN;" & _
"DATABASE=thing snet;SERVER=loc alhost;PORT=330 6"
'
'DsTags1
'
Me.DsTags1.Data SetName = "dsTags"
Me.DsTags1.Loca le = New
System.Globaliz ation.CultureIn fo("en-US")
'
'DataGrid1
'
Me.DataGrid1.Da taMember = "epctag"
Me.DataGrid1.Da taSource = Me.DsTags1
Me.DataGrid1.He aderForeColor =
System.Drawing. SystemColors.Co ntrolText
Me.DataGrid1.Lo cation = New System.Drawing. Point(8, 128)
Me.DataGrid1.Na me = "DataGrid1"
Me.DataGrid1.Si ze = New System.Drawing. Size(584, 264)
Me.DataGrid1.Ta bIndex = 0
'
'OdbcSelectComm and1
'
Me.OdbcSelectCo mmand1.CommandT ext = "SELECT ID, OBJECT_EPC,
READER_EPC, DATE_TIME, PAYLOAD, GTIN_DOMAIN, GTIN_CLASS FR" & _
"OM epctag"
Me.OdbcSelectCo mmand1.Connecti on = Me.OdbcConnecti on1
'
'OdbcDeleteComm and1
'
Me.OdbcDeleteCo mmand1.CommandT ext = "DELETE FROM epctag WHERE
(ID = ?)"
Me.OdbcDeleteCo mmand1.Connecti on = Me.OdbcConnecti on1
Me.OdbcDeleteCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("ID", System.Data.Odb c.OdbcType.BigI nt,
0, System.Data.Par ameterDirection .Input, False, CType(0, Byte), CType(0,
Byte), "ID", System.Data.Dat aRowVersion.Ori ginal, Nothing))
'
'OdbcUpdateComm and1
'
Me.OdbcUpdateCo mmand1.CommandT ext = "UPDATE ecptag SET ID = ?,
OBJECT_EPC = ?, READER_EPC = ?, DATE_TIME = ?, PAYLOAD " & _
"= ?, GTIN_DOMAIN = ?, GTIN_CLASS = ? WHERE (ID = ?)"
Me.OdbcUpdateCo mmand1.Connecti on = Me.OdbcConnecti on1
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("ID", System.Data.Odb c.OdbcType.BigI nt,
0, "ID"))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("OBJECT_EPC ",
System.Data.Odb c.OdbcType.VarC har, 255, "OBJECT_EPC "))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("READER_EPC ",
System.Data.Odb c.OdbcType.VarC har, 255, "READER_EPC "))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("DATE_TIME" ,
System.Data.Odb c.OdbcType.VarC har, 255, "DATE_TIME" ))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("PAYLOAD",
System.Data.Odb c.OdbcType.VarC har, 255, "PAYLOAD"))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("GTIN_DOMAI N",
System.Data.Odb c.OdbcType.VarC har, 255, "GTIN_DOMAI N"))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("GTIN_CLASS ",
System.Data.Odb c.OdbcType.VarC har, 255, "GTIN_CLASS "))

That's the long and short of it! Appreciate any help.


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Cor Ligthert]

Mikey,

I am not sure if I asked it before too you. You are sure you canot use
OleDb?

http://www.connectionstrings.com/

Cor

"Mikey G" <no****@devdex. com>
..

Hi, Here is a shorter code example since the last message I posted got
truncated. So the problem is I created a simple VB.NET 2003 application
through Visual Studio that connects to a MySQL database and loads a
table into a Dataset, and then displays that table information in a
DataGrid on a form for editing. The table fill works fine, the delete
function works fine, but when I try to update a row, the application
fails with the following error message:

An unhandled exception of type 'System.Data.Od bc.OdbcExceptio n' occurred
in system.data.dll

Additional information: System error.

'Data Access VB App.exe': Loaded
'c:\windows\ass embly\gac\micro soft.visualbasi c\7.0.5000.0__b 03f5f7f11d50
a3a\microsoft.v isualbasic.dll' , No symbols loaded.

Unhandled Exception: System.Data.Odb c.OdbcException : ERROR [07002]
[MySQL][ODBC 3.51 Driver][mysqld-4.0.21-debug]SQLBindParamete r not used
for all parameters
at System.Data.Com mon.DbDataAdapt er.Update(DataR ow[] dataRows,
DataTableMappin g tableMapping)
at System.Data.Com mon.DbDataAdapt er.Update(DataS et dataSet, String
srcTable)
at System.Data.Com mon.DbDataAdapt er.Update(DataS et dataSet)
at Data_Access_VB_ App.Form1.btnUp date_Click(Obje ct sender, EventArgs
e) in C:\Documents and Settings\System Admin\My Documents\Visua l Studio
Projects\Data Access VB App\Form1.vb:li ne 225

The majority of the code was generated by Visual Studio and based on the
error message it would seem that I have to add SQLBindParamete r
statements, but I am not sure the syntax that I should be using. I am
new to VB.NET (coming from Java/J2EE) and haven't been able to come up
with a workable solution after pouring over the MSDN manuals. Here is
some of the generated code:
'
'OdbcDataAdapte r1
'
Me.OdbcDataAdap ter1.DeleteComm and = Me.OdbcDeleteCo mmand1
Me.OdbcDataAdap ter1.InsertComm and = Me.OdbcInsertCo mmand1
Me.OdbcDataAdap ter1.SelectComm and = Me.OdbcSelectCo mmand1
Me.OdbcDataAdap ter1.TableMappi ngs.AddRange(Ne w
System.Data.Com mon.DataTableMa pping() {New
System.Data.Com mon.DataTableMa pping("Table", "epctag", New
System.Data.Com mon.DataColumnM apping() {New
System.Data.Com mon.DataColumnM apping("ID", "ID"), New
System.Data.Com mon.DataColumnM apping("OBJECT_ EPC", "OBJECT_EPC "), New
System.Data.Com mon.DataColumnM apping("READER_ EPC", "READER_EPC "), New
System.Data.Com mon.DataColumnM apping("DATE_TI ME", "DATE_TIME" ), New
System.Data.Com mon.DataColumnM apping("PAYLOAD ", "PAYLOAD"), New
System.Data.Com mon.DataColumnM apping("GTIN_DO MAIN", "GTIN_DOMAI N"), New
System.Data.Com mon.DataColumnM apping("GTIN_CL ASS", "GTIN_CLASS")}) })
Me.OdbcDataAdap ter1.UpdateComm and = Me.OdbcUpdateCo mmand1
'
'OdbcConnection 1
'
Me.OdbcConnecti on1.ConnectionS tring =
"STMT=;OPTION=3 ;DSN=EPCThingsN ET;UID=root;SOC KET=;DESC=MySQL ODBC 3.51
Driver DSN;" & _
"DATABASE=thing snet;SERVER=loc alhost;PORT=330 6"
'
'DsTags1
'
Me.DsTags1.Data SetName = "dsTags"
Me.DsTags1.Loca le = New
System.Globaliz ation.CultureIn fo("en-US")
'
'DataGrid1
'
Me.DataGrid1.Da taMember = "epctag"
Me.DataGrid1.Da taSource = Me.DsTags1
Me.DataGrid1.He aderForeColor =
System.Drawing. SystemColors.Co ntrolText
Me.DataGrid1.Lo cation = New System.Drawing. Point(8, 128)
Me.DataGrid1.Na me = "DataGrid1"
Me.DataGrid1.Si ze = New System.Drawing. Size(584, 264)
Me.DataGrid1.Ta bIndex = 0
'
'OdbcSelectComm and1
'
Me.OdbcSelectCo mmand1.CommandT ext = "SELECT ID, OBJECT_EPC,
READER_EPC, DATE_TIME, PAYLOAD, GTIN_DOMAIN, GTIN_CLASS FR" & _
"OM epctag"
Me.OdbcSelectCo mmand1.Connecti on = Me.OdbcConnecti on1
'
'OdbcDeleteComm and1
'
Me.OdbcDeleteCo mmand1.CommandT ext = "DELETE FROM epctag WHERE
(ID = ?)"
Me.OdbcDeleteCo mmand1.Connecti on = Me.OdbcConnecti on1
Me.OdbcDeleteCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("ID", System.Data.Odb c.OdbcType.BigI nt,
0, System.Data.Par ameterDirection .Input, False, CType(0, Byte), CType(0,
Byte), "ID", System.Data.Dat aRowVersion.Ori ginal, Nothing))
'
'OdbcUpdateComm and1
'
Me.OdbcUpdateCo mmand1.CommandT ext = "UPDATE ecptag SET ID = ?,
OBJECT_EPC = ?, READER_EPC = ?, DATE_TIME = ?, PAYLOAD " & _
"= ?, GTIN_DOMAIN = ?, GTIN_CLASS = ? WHERE (ID = ?)"
Me.OdbcUpdateCo mmand1.Connecti on = Me.OdbcConnecti on1
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("ID", System.Data.Odb c.OdbcType.BigI nt,
0, "ID"))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("OBJECT_EPC ",
System.Data.Odb c.OdbcType.VarC har, 255, "OBJECT_EPC "))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("READER_EPC ",
System.Data.Odb c.OdbcType.VarC har, 255, "READER_EPC "))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("DATE_TIME" ,
System.Data.Odb c.OdbcType.VarC har, 255, "DATE_TIME" ))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("PAYLOAD",
System.Data.Odb c.OdbcType.VarC har, 255, "PAYLOAD"))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("GTIN_DOMAI N",
System.Data.Odb c.OdbcType.VarC har, 255, "GTIN_DOMAI N"))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("GTIN_CLASS ",
System.Data.Odb c.OdbcType.VarC har, 255, "GTIN_CLASS "))

That's the long and short of it! Appreciate any help.


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Mikey G]

Hi Cor,

I had to install the MySQL ODBC driver to be able to access the MySQL
database, so that was why I opted to use ODBC. Thoughts?

Mikey

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Cor Ligthert]

Mikey,

I wrote this because ODBC gives sometimes trouble because there is not all
supported as with OleDb, SQLclient and OracleClient (The last two you
cannot use)

I have asked this to you it in a asking way because my expirience with MySQL
is nothing, however I would try in your situation OleDb. And when you have
trouble is, because it is MySql, certainly a better place to ask for help
for this the newsgroup

Adonet
<news://msnews.microsof t.com/microsoft.publi c.dotnet.framew ork.adonet>

Web interface:
<http://communities2.mi crosoft.com/communities/newsgroups/en-us/?dg=microsoft.p ublic.dotnet.fr amework.adonet>

I hope this helps somehow?

Cor

"Mikey G" <no****@devdex. com> schreef in bericht
news:uV******** ******@TK2MSFTN GP12.phx.gbl...

Hi Cor,

I had to install the MySQL ODBC driver to be able to access the MySQL
database, so that was why I opted to use ODBC. Thoughts?

Mikey

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Mikey G]

Hi Cor,

I will try the OLE DB approach and see if that makes a difference. I
will also post the question to the other newsgroups. Thanks for the
suggestions!

Mikey
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Mikey G]

All,

A couple of things; Visual Studio does not come with an OleDB data
provider for MySQL, so I still ended up using the MySQL ODBC driver.
Here is the code that I finally got to work:

'
'OdbcInsertComm and1
'
Me.OdbcInsertCo mmand1.CommandT ext = "INSERT INTO epctag(ID,
OBJECT_EPC, READER_EPC, DATE_TIME, PAYLOAD, GTIN_DOMAIN, G" & _
"TIN_CLASS) VALUES (?, ?, ?, ?, ?, ?, ?)"
Me.OdbcInsertCo mmand1.Connecti on = Me.OdbcConnecti on1
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("ID", System.Data.Odb c.OdbcType.BigI nt,
0, "ID"))
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("OBJECT_EPC ",
System.Data.Odb c.OdbcType.VarC har, 255, "OBJECT_EPC "))
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("READER_EPC ",
System.Data.Odb c.OdbcType.VarC har, 255, "READER_EPC "))
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("DATE_TIME" ,
System.Data.Odb c.OdbcType.VarC har, 255, "DATE_TIME" ))
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("PAYLOAD",
System.Data.Odb c.OdbcType.VarC har, 255, "PAYLOAD"))
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("GTIN_DOMAI N",
System.Data.Odb c.OdbcType.VarC har, 255, "GTIN_DOMAI N"))
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("GTIN_CLASS ",
System.Data.Odb c.OdbcType.VarC har, 255, "GTIN_CLASS "))

'
'OdbcDeleteComm and1
'
Me.OdbcDeleteCo mmand1.CommandT ext = "DELETE FROM epctag WHERE
(ID = ?)"
Me.OdbcDeleteCo mmand1.Connecti on = Me.OdbcConnecti on1
Me.OdbcDeleteCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("ID", System.Data.Odb c.OdbcType.BigI nt,
0, System.Data.Par ameterDirection .Input, False, CType(0, Byte), CType(0,
Byte), "ID", System.Data.Dat aRowVersion.Ori ginal, Nothing))
'
'OdbcUpdateComm and1
'
Me.OdbcUpdateCo mmand1.CommandT ext = "UPDATE epctag SET ID = ?,
OBJECT_EPC = ?, READER_EPC = ?, DATE_TIME = ?, PAYLOAD " & _
"= ?, GTIN_DOMAIN = ?, GTIN_CLASS = ? WHERE (ID = ?)"
Me.OdbcUpdateCo mmand1.Connecti on = Me.OdbcConnecti on1
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("ID", System.Data.Odb c.OdbcType.BigI nt,
0, "ID"))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("OBJECT_EPC ",
System.Data.Odb c.OdbcType.VarC har, 255, "OBJECT_EPC "))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("READER_EPC ",
System.Data.Odb c.OdbcType.VarC har, 255, "READER_EPC "))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("DATE_TIME" ,
System.Data.Odb c.OdbcType.VarC har, 255, "DATE_TIME" ))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("PAYLOAD",
System.Data.Odb c.OdbcType.VarC har, 255, "PAYLOAD"))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("GTIN_DOMAI N",
System.Data.Odb c.OdbcType.VarC har, 255, "GTIN_DOMAI N"))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("GTIN_CLASS ",
System.Data.Odb c.OdbcType.VarC har, 255, "GTIN_CLASS "))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("Original_I D",
System.Data.Odb c.OdbcType.BigI nt, 0,
System.Data.Par ameterDirection .Input, False, CType(0, Byte), CType(0,
Byte), "ID", System.Data.Dat aRowVersion.Ori ginal, Nothing))

Hope this helps,

Mikey

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[chanmmn]

Have you tried to use the wizard to retrieve the data first and see what is
going on?

chanmm
"Mikey G" <no****@devdex. com> wrote in message
news:u2******** *****@TK2MSFTNG P12.phx.gbl...

All,

A couple of things; Visual Studio does not come with an OleDB data
provider for MySQL, so I still ended up using the MySQL ODBC driver.
Here is the code that I finally got to work:

'
'OdbcInsertComm and1
'
Me.OdbcInsertCo mmand1.CommandT ext = "INSERT INTO epctag(ID,
OBJECT_EPC, READER_EPC, DATE_TIME, PAYLOAD, GTIN_DOMAIN, G" & _
"TIN_CLASS) VALUES (?, ?, ?, ?, ?, ?, ?)"
Me.OdbcInsertCo mmand1.Connecti on = Me.OdbcConnecti on1
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("ID", System.Data.Odb c.OdbcType.BigI nt,
0, "ID"))
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("OBJECT_EPC ",
System.Data.Odb c.OdbcType.VarC har, 255, "OBJECT_EPC "))
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("READER_EPC ",
System.Data.Odb c.OdbcType.VarC har, 255, "READER_EPC "))
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("DATE_TIME" ,
System.Data.Odb c.OdbcType.VarC har, 255, "DATE_TIME" ))
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("PAYLOAD",
System.Data.Odb c.OdbcType.VarC har, 255, "PAYLOAD"))
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("GTIN_DOMAI N",
System.Data.Odb c.OdbcType.VarC har, 255, "GTIN_DOMAI N"))
Me.OdbcInsertCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("GTIN_CLASS ",
System.Data.Odb c.OdbcType.VarC har, 255, "GTIN_CLASS "))

'
'OdbcDeleteComm and1
'
Me.OdbcDeleteCo mmand1.CommandT ext = "DELETE FROM epctag WHERE
(ID = ?)"
Me.OdbcDeleteCo mmand1.Connecti on = Me.OdbcConnecti on1
Me.OdbcDeleteCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("ID", System.Data.Odb c.OdbcType.BigI nt,
0, System.Data.Par ameterDirection .Input, False, CType(0, Byte), CType(0,
Byte), "ID", System.Data.Dat aRowVersion.Ori ginal, Nothing))
'
'OdbcUpdateComm and1
'
Me.OdbcUpdateCo mmand1.CommandT ext = "UPDATE epctag SET ID = ?,
OBJECT_EPC = ?, READER_EPC = ?, DATE_TIME = ?, PAYLOAD " & _
"= ?, GTIN_DOMAIN = ?, GTIN_CLASS = ? WHERE (ID = ?)"
Me.OdbcUpdateCo mmand1.Connecti on = Me.OdbcConnecti on1
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("ID", System.Data.Odb c.OdbcType.BigI nt,
0, "ID"))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("OBJECT_EPC ",
System.Data.Odb c.OdbcType.VarC har, 255, "OBJECT_EPC "))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("READER_EPC ",
System.Data.Odb c.OdbcType.VarC har, 255, "READER_EPC "))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("DATE_TIME" ,
System.Data.Odb c.OdbcType.VarC har, 255, "DATE_TIME" ))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("PAYLOAD",
System.Data.Odb c.OdbcType.VarC har, 255, "PAYLOAD"))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("GTIN_DOMAI N",
System.Data.Odb c.OdbcType.VarC har, 255, "GTIN_DOMAI N"))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("GTIN_CLASS ",
System.Data.Odb c.OdbcType.VarC har, 255, "GTIN_CLASS "))
Me.OdbcUpdateCo mmand1.Paramete rs.Add(New
System.Data.Odb c.OdbcParameter ("Original_I D",
System.Data.Odb c.OdbcType.BigI nt, 0,
System.Data.Par ameterDirection .Input, False, CType(0, Byte), CType(0,
Byte), "ID", System.Data.Dat aRowVersion.Ori ginal, Nothing))

Hope this helps,

Mikey

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!