myodbc error

[Kenneth Foli Jørgensen]

------=_NextPart_000_ 000D_01C35CF0.2 0AC1200
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

i get this msg:
Microsoft.Data. Odbc.OdbcExcept ion: NO_DATA - no error information =
available
at Microsoft.Data. Odbc.OdbcConnec tion.HandleErro r(IntPtr hHandle, =
SQL_HANDLE hType, RETCODE retcode)
at Microsoft.Data. Odbc.OdbcDataRe ader.GetData(In t32 i, SQL_C sqlctype, =
Int32 cb)
at Microsoft.Data. Odbc.OdbcDataRe ader.internalGe tString(Int32 i)
at Microsoft.Data. Odbc.OdbcDataRe ader.GetValue(I nt32 i, TypeMap typemap)
at Microsoft.Data. Odbc.OdbcDataRe ader.GetValue(I nt32 i)
at Microsoft.Data. Odbc.DbCache.Ac cessIndex(Int32 i)
at Microsoft.Data. Odbc.OdbcDataRe ader.GetValue(I nt32 i)
at Microsoft.Data. Odbc.OdbcDataRe ader.get_Item(S tring value)
at =
F=E6llesDialogb ox.frmAddIngDia log.cboVaregrup pe_SelectedInde xChanged(Obje=
ct sender, EventArgs e) in C:\Documents and Settings\Admini strator\My =
Documents\Visua l Studio =
Projects\Datasy stem\KS\F=E6lle sDialogbox\frmA ddIngDialog.vb: line 357

then i try to get a row out fo the database mysql 3.23.54 run on redhat =
linux 9.0 i am acceessing it from vs.net via odbc.net.
i am using myodbc 3.51 and my code look like this:

Try
Dim plunr As Integer
Dim varenavn As String
Dim varegruppenr
Dim Ink=F8bspris
Dim Salgspris As String
Dim Engrospris As String
'Connector/ODBC 3.51 connection string
Dim MyConString As String =3D "DRIVER=3D{MySQ L ODBC 3.51 =
Driver};" & _
"SERVER=3D" & =
System.Configur ation.Configura tionSettings.Ap pSettings("Host ") & _
";DATABASE= 3D" & =
System.Configur ation.Configura tionSettings.Ap pSettings("Data base") & _
";UID=3D" & =
System.Configur ation.Configura tionSettings.Ap pSettings("User name") & _
";Password= 3D" & =
System.Configur ation.Configura tionSettings.Ap pSettings("Pass word") & _
";"

'Connection
Dim MyConnection As New Odbc.OdbcConnec tion(MyConStrin g)
MyConnection.Op en()
Console.WriteLi ne("Connection State::" & =
MyConnection.St ate.ToString)
=20
Dim MyCommand As New Odbc.OdbcComman d()
MyCommand.Comma ndText =3D "SELECT * FROM Produkter where =
Varegruppe =3D '" & =
Replace(objVare grupper(cboVare gruppe.Selected Index).Groupnr, ",", ".") & =
"' order by Varenavn"
MyCommand.Conne ction =3D MyConnection
Dim MyDataReader As Odbc.OdbcDataRe ader
MyDataReader =3D MyCommand.Execu teReader
While MyDataReader.Re ad
objProdukter(t) =3D New clsProdukter()
text +=3D " || "
objProdukter(t) =3D New clsProdukter()
plunr =3D MyDataReader("p lunr")
varenavn =3D MyDataReader("V arenavn") =20
Ink=F8bspris =3D MyDataReader("I nk=F8bspris") 'it is =
here all the problems strarts even then i out comment this line =20
Salgspris =3D MyDataReader("S algspris")
Engrospris =3D MyDataReader("E ngrospris")
objProdukter(t) =3D New clsProdukter(CI nt(plunr), =
varenavn, varegruppenr, CDbl(Ink=F8bspr is), Salgspris, CDbl(Engrospris ))
varegruppenr =3D =
objVaregrupper( cboVaregruppe.S electedIndex)
text +=3D " ID =3D " & MyDataReader("F irmanr")
t +=3D 1
ReDim Preserve objProdukter(t)
End While
MyConnection.Cl ose()
=20
Console.WriteLi ne("Connection State::" & =
MyConnection.St ate.ToString)

'Catch ODBC Exception
Catch MyOdbcException As Odbc.OdbcExcept ion
MsgBox(MyOdbcEx ception.ToStrin g)
Console.WriteLi ne(MyOdbcExcept ion.ToString)

'Catch program exception
Catch MyException As Exception
MsgBox(MyExcept ion.ToString)
End Try
cboProdukter.It ems.Clear()
For t =3D 0 To UBound(objProdu kter) - 1 Step 1
cboProdukter.It ems.Add(objProd ukter(t).Navn)
Next

and tis is my db

CREATE TABLE `Produkter` (
`ID` int(11) NOT NULL default '0',
`Plunr` double default NULL,
`Varenavn` varchar(255) default NULL,
`Varegruppe` decimal(10,3) default NULL,
`Varetext` varchar(255) default NULL,
`Firmanr` double default NULL,
`Firmavarenr` double default NULL,
`Ink=F8bspris` double NOT NULL default '0',
`Engrospris` double default NULL,
`Salgspris` varchar(255) default NULL,
`Tilbudspris` varchar(255) default NULL,
`Ern=E6ringID` varchar(255) default NULL,
`temp` varchar(255) default NULL
) TYPE=3DMyISAM;

#
# Data dump for tabellen `Produkter`
#

INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (884, '9069', =
'Stegefl=E6sk, uden ben med sv=E6r', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', '0929', '0');
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (883, '9026', =
'Fl=E6skeribs uden ben', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', '0929', '0');
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (882, '9007', =
'Krydder Ribben', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', '0374', '5');
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (881, '9067', =
'Ba Ribben', '07.300', '', '1', '0', '2', '2', '1,2,3,4,5,6,7, 8,9,10', =
'1,2,3,4,5,6,7, 8,9,11', '0374', '5');
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (880, '9111', =
'Forende', '07.300', '', '1', '0', '2', '2', '1,2,3,4,5,6,7, 8,9,10', =
'1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (879, '9110', =
'Fedtnet', '07.300', '', '1', '0', '2', '2', '1,2,3,4,5,6,7, 8,9,10', =
'1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (878, '9073', =
'Svinet=E6r', '07.300', '', '1', '0', '2', '2', '1,2,3,4,5,6,7, 8,9,10', =
'1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (877, '9120', =
'Svinehovede med k=E6besnitte', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (876, '9129', =
'Skinker ( Hele)', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (875, '9132', =
'Sv=E6r uden fedt ( affald)', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', NULL, NULL);

------=_NextPart_000_ 000D_01C35CF0.2 0AC1200--

[Brandon]

This is a known bug, there is a patch available at:
http://support.microsoft.com/default...b;en-us;319243

Or if you are using Visual Studio .NET 2003 use: System.Data.Odb c instead.

Brandon

"Kenneth Foli Jørgensen" <ke*****@lflug. dk> wrote in message
news:bh******** **@FreeBSD.csie .NCTU.edu.tw...

------=_NextPart_000_ 000D_01C35CF0.2 0AC1200
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

i get this msg:
Microsoft.Data. Odbc.OdbcExcept ion: NO_DATA - no error information =
available
at Microsoft.Data. Odbc.OdbcConnec tion.HandleErro r(IntPtr hHandle, =
SQL_HANDLE hType, RETCODE retcode)
at Microsoft.Data. Odbc.OdbcDataRe ader.GetData(In t32 i, SQL_C sqlctype, =
Int32 cb)
at Microsoft.Data. Odbc.OdbcDataRe ader.internalGe tString(Int32 i)
at Microsoft.Data. Odbc.OdbcDataRe ader.GetValue(I nt32 i, TypeMap typemap)
at Microsoft.Data. Odbc.OdbcDataRe ader.GetValue(I nt32 i)
at Microsoft.Data. Odbc.DbCache.Ac cessIndex(Int32 i)
at Microsoft.Data. Odbc.OdbcDataRe ader.GetValue(I nt32 i)
at Microsoft.Data. Odbc.OdbcDataRe ader.get_Item(S tring value)
at =
F=E6llesDialogb ox.frmAddIngDia log.cboVaregrup pe_SelectedInde xChanged(Obje=
ct sender, EventArgs e) in C:\Documents and Settings\Admini strator\My =
Documents\Visua l Studio =
Projects\Datasy stem\KS\F=E6lle sDialogbox\frmA ddIngDialog.vb: line 357

then i try to get a row out fo the database mysql 3.23.54 run on redhat =
linux 9.0 i am acceessing it from vs.net via odbc.net.
i am using myodbc 3.51 and my code look like this:

Try
Dim plunr As Integer
Dim varenavn As String
Dim varegruppenr
Dim Ink=F8bspris
Dim Salgspris As String
Dim Engrospris As String
'Connector/ODBC 3.51 connection string
Dim MyConString As String =3D "DRIVER=3D{MySQ L ODBC 3.51 =
Driver};" & _
"SERVER=3D" & =
System.Configur ation.Configura tionSettings.Ap pSettings("Host ") & _
";DATABASE= 3D" & =
System.Configur ation.Configura tionSettings.Ap pSettings("Data base") & _
";UID=3D" & =
System.Configur ation.Configura tionSettings.Ap pSettings("User name") & _
";Password= 3D" & =
System.Configur ation.Configura tionSettings.Ap pSettings("Pass word") & _
";"

'Connection
Dim MyConnection As New Odbc.OdbcConnec tion(MyConStrin g)
MyConnection.Op en()
Console.WriteLi ne("Connection State::" & =
MyConnection.St ate.ToString)
=20
Dim MyCommand As New Odbc.OdbcComman d()
MyCommand.Comma ndText =3D "SELECT * FROM Produkter where =
Varegruppe =3D '" & =
Replace(objVare grupper(cboVare gruppe.Selected Index).Groupnr, ",", ".") & =
"' order by Varenavn"
MyCommand.Conne ction =3D MyConnection
Dim MyDataReader As Odbc.OdbcDataRe ader
MyDataReader =3D MyCommand.Execu teReader
While MyDataReader.Re ad
objProdukter(t) =3D New clsProdukter()
text +=3D " || "
objProdukter(t) =3D New clsProdukter()
plunr =3D MyDataReader("p lunr")
varenavn =3D MyDataReader("V arenavn") =20
Ink=F8bspris =3D MyDataReader("I nk=F8bspris") 'it is =
here all the problems strarts even then i out comment this line =20
Salgspris =3D MyDataReader("S algspris")
Engrospris =3D MyDataReader("E ngrospris")
objProdukter(t) =3D New clsProdukter(CI nt(plunr), =
varenavn, varegruppenr, CDbl(Ink=F8bspr is), Salgspris, CDbl(Engrospris ))
varegruppenr =3D =
objVaregrupper( cboVaregruppe.S electedIndex)
text +=3D " ID =3D " & MyDataReader("F irmanr")
t +=3D 1
ReDim Preserve objProdukter(t)
End While
MyConnection.Cl ose()
=20
Console.WriteLi ne("Connection State::" & =
MyConnection.St ate.ToString)

'Catch ODBC Exception
Catch MyOdbcException As Odbc.OdbcExcept ion
MsgBox(MyOdbcEx ception.ToStrin g)
Console.WriteLi ne(MyOdbcExcept ion.ToString)

'Catch program exception
Catch MyException As Exception
MsgBox(MyExcept ion.ToString)
End Try
cboProdukter.It ems.Clear()
For t =3D 0 To UBound(objProdu kter) - 1 Step 1
cboProdukter.It ems.Add(objProd ukter(t).Navn)
Next

and tis is my db

CREATE TABLE `Produkter` (
`ID` int(11) NOT NULL default '0',
`Plunr` double default NULL,
`Varenavn` varchar(255) default NULL,
`Varegruppe` decimal(10,3) default NULL,
`Varetext` varchar(255) default NULL,
`Firmanr` double default NULL,
`Firmavarenr` double default NULL,
`Ink=F8bspris` double NOT NULL default '0',
`Engrospris` double default NULL,
`Salgspris` varchar(255) default NULL,
`Tilbudspris` varchar(255) default NULL,
`Ern=E6ringID` varchar(255) default NULL,
`temp` varchar(255) default NULL
) TYPE=3DMyISAM;

#
# Data dump for tabellen `Produkter`
#

INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (884, '9069', =
'Stegefl=E6sk, uden ben med sv=E6r', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', '0929', '0');
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (883, '9026', =
'Fl=E6skeribs uden ben', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', '0929', '0');
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (882, '9007', =
'Krydder Ribben', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', '0374', '5');
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (881, '9067', =
'Ba Ribben', '07.300', '', '1', '0', '2', '2', '1,2,3,4,5,6,7, 8,9,10', =
'1,2,3,4,5,6,7, 8,9,11', '0374', '5');
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (880, '9111', =
'Forende', '07.300', '', '1', '0', '2', '2', '1,2,3,4,5,6,7, 8,9,10', =
'1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (879, '9110', =
'Fedtnet', '07.300', '', '1', '0', '2', '2', '1,2,3,4,5,6,7, 8,9,10', =
'1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (878, '9073', =
'Svinet=E6r', '07.300', '', '1', '0', '2', '2', '1,2,3,4,5,6,7, 8,9,10', =
'1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (877, '9120', =
'Svinehovede med k=E6besnitte', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (876, '9129', =
'Skinker ( Hele)', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (875, '9132', =
'Sv=E6r uden fedt ( affald)', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', NULL, NULL);

------=_NextPart_000_ 000D_01C35CF0.2 0AC1200--

[Brandon]

This is a known bug, there is a patch available at:
http://support.microsoft.com/default...b;en-us;319243

Or if you are using Visual Studio .NET 2003 use: System.Data.Odb c instead.

Brandon

"Kenneth Foli Jørgensen" <ke*****@lflug. dk> wrote in message
news:bh******** **@FreeBSD.csie .NCTU.edu.tw...

------=_NextPart_000_ 000D_01C35CF0.2 0AC1200
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

i get this msg:
Microsoft.Data. Odbc.OdbcExcept ion: NO_DATA - no error information =
available
at Microsoft.Data. Odbc.OdbcConnec tion.HandleErro r(IntPtr hHandle, =
SQL_HANDLE hType, RETCODE retcode)
at Microsoft.Data. Odbc.OdbcDataRe ader.GetData(In t32 i, SQL_C sqlctype, =
Int32 cb)
at Microsoft.Data. Odbc.OdbcDataRe ader.internalGe tString(Int32 i)
at Microsoft.Data. Odbc.OdbcDataRe ader.GetValue(I nt32 i, TypeMap typemap)
at Microsoft.Data. Odbc.OdbcDataRe ader.GetValue(I nt32 i)
at Microsoft.Data. Odbc.DbCache.Ac cessIndex(Int32 i)
at Microsoft.Data. Odbc.OdbcDataRe ader.GetValue(I nt32 i)
at Microsoft.Data. Odbc.OdbcDataRe ader.get_Item(S tring value)
at =
F=E6llesDialogb ox.frmAddIngDia log.cboVaregrup pe_SelectedInde xChanged(Obje=
ct sender, EventArgs e) in C:\Documents and Settings\Admini strator\My =
Documents\Visua l Studio =
Projects\Datasy stem\KS\F=E6lle sDialogbox\frmA ddIngDialog.vb: line 357

then i try to get a row out fo the database mysql 3.23.54 run on redhat =
linux 9.0 i am acceessing it from vs.net via odbc.net.
i am using myodbc 3.51 and my code look like this:

Try
Dim plunr As Integer
Dim varenavn As String
Dim varegruppenr
Dim Ink=F8bspris
Dim Salgspris As String
Dim Engrospris As String
'Connector/ODBC 3.51 connection string
Dim MyConString As String =3D "DRIVER=3D{MySQ L ODBC 3.51 =
Driver};" & _
"SERVER=3D" & =
System.Configur ation.Configura tionSettings.Ap pSettings("Host ") & _
";DATABASE= 3D" & =
System.Configur ation.Configura tionSettings.Ap pSettings("Data base") & _
";UID=3D" & =
System.Configur ation.Configura tionSettings.Ap pSettings("User name") & _
";Password= 3D" & =
System.Configur ation.Configura tionSettings.Ap pSettings("Pass word") & _
";"

'Connection
Dim MyConnection As New Odbc.OdbcConnec tion(MyConStrin g)
MyConnection.Op en()
Console.WriteLi ne("Connection State::" & =
MyConnection.St ate.ToString)
=20
Dim MyCommand As New Odbc.OdbcComman d()
MyCommand.Comma ndText =3D "SELECT * FROM Produkter where =
Varegruppe =3D '" & =
Replace(objVare grupper(cboVare gruppe.Selected Index).Groupnr, ",", ".") & =
"' order by Varenavn"
MyCommand.Conne ction =3D MyConnection
Dim MyDataReader As Odbc.OdbcDataRe ader
MyDataReader =3D MyCommand.Execu teReader
While MyDataReader.Re ad
objProdukter(t) =3D New clsProdukter()
text +=3D " || "
objProdukter(t) =3D New clsProdukter()
plunr =3D MyDataReader("p lunr")
varenavn =3D MyDataReader("V arenavn") =20
Ink=F8bspris =3D MyDataReader("I nk=F8bspris") 'it is =
here all the problems strarts even then i out comment this line =20
Salgspris =3D MyDataReader("S algspris")
Engrospris =3D MyDataReader("E ngrospris")
objProdukter(t) =3D New clsProdukter(CI nt(plunr), =
varenavn, varegruppenr, CDbl(Ink=F8bspr is), Salgspris, CDbl(Engrospris ))
varegruppenr =3D =
objVaregrupper( cboVaregruppe.S electedIndex)
text +=3D " ID =3D " & MyDataReader("F irmanr")
t +=3D 1
ReDim Preserve objProdukter(t)
End While
MyConnection.Cl ose()
=20
Console.WriteLi ne("Connection State::" & =
MyConnection.St ate.ToString)

'Catch ODBC Exception
Catch MyOdbcException As Odbc.OdbcExcept ion
MsgBox(MyOdbcEx ception.ToStrin g)
Console.WriteLi ne(MyOdbcExcept ion.ToString)

'Catch program exception
Catch MyException As Exception
MsgBox(MyExcept ion.ToString)
End Try
cboProdukter.It ems.Clear()
For t =3D 0 To UBound(objProdu kter) - 1 Step 1
cboProdukter.It ems.Add(objProd ukter(t).Navn)
Next

and tis is my db

CREATE TABLE `Produkter` (
`ID` int(11) NOT NULL default '0',
`Plunr` double default NULL,
`Varenavn` varchar(255) default NULL,
`Varegruppe` decimal(10,3) default NULL,
`Varetext` varchar(255) default NULL,
`Firmanr` double default NULL,
`Firmavarenr` double default NULL,
`Ink=F8bspris` double NOT NULL default '0',
`Engrospris` double default NULL,
`Salgspris` varchar(255) default NULL,
`Tilbudspris` varchar(255) default NULL,
`Ern=E6ringID` varchar(255) default NULL,
`temp` varchar(255) default NULL
) TYPE=3DMyISAM;

#
# Data dump for tabellen `Produkter`
#

INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (884, '9069', =
'Stegefl=E6sk, uden ben med sv=E6r', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', '0929', '0');
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (883, '9026', =
'Fl=E6skeribs uden ben', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', '0929', '0');
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (882, '9007', =
'Krydder Ribben', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', '0374', '5');
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (881, '9067', =
'Ba Ribben', '07.300', '', '1', '0', '2', '2', '1,2,3,4,5,6,7, 8,9,10', =
'1,2,3,4,5,6,7, 8,9,11', '0374', '5');
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (880, '9111', =
'Forende', '07.300', '', '1', '0', '2', '2', '1,2,3,4,5,6,7, 8,9,10', =
'1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (879, '9110', =
'Fedtnet', '07.300', '', '1', '0', '2', '2', '1,2,3,4,5,6,7, 8,9,10', =
'1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (878, '9073', =
'Svinet=E6r', '07.300', '', '1', '0', '2', '2', '1,2,3,4,5,6,7, 8,9,10', =
'1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (877, '9120', =
'Svinehovede med k=E6besnitte', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (876, '9129', =
'Skinker ( Hele)', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', NULL, NULL);
INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, =
`Varetext`, `Firmanr`, `Firmavarenr`, `Ink=F8bspris`, `Engrospris`, =
`Salgspris`, `Tilbudspris`, `Ern=E6ringID`, `temp`) VALUES (875, '9132', =
'Sv=E6r uden fedt ( affald)', '07.300', '', '1', '0', '2', '2', =
'1,2,3,4,5,6,7, 8,9,10', '1,2,3,4,5,6,7, 8,9,11', NULL, NULL);

------=_NextPart_000_ 000D_01C35CF0.2 0AC1200--