------=_NextPart_000_000D_01C35CF0.20AC1200
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
i get this msg:
Microsoft.Data.Odbc.OdbcException: NO_DATA - no error information =
available
at Microsoft.Data.Odbc.OdbcConnection.HandleError(Int Ptr hHandle, =
SQL_HANDLE hType, RETCODE retcode)
at Microsoft.Data.Odbc.OdbcDataReader.GetData(Int32 i, SQL_C sqlctype, =
Int32 cb)
at Microsoft.Data.Odbc.OdbcDataReader.internalGetStri ng(Int32 i)
at Microsoft.Data.Odbc.OdbcDataReader.GetValue(Int32 i, TypeMap typemap)
at Microsoft.Data.Odbc.OdbcDataReader.GetValue(Int32 i)
at Microsoft.Data.Odbc.DbCache.AccessIndex(Int32 i)
at Microsoft.Data.Odbc.OdbcDataReader.GetValue(Int32 i)
at Microsoft.Data.Odbc.OdbcDataReader.get_Item(String value)
at =
F=E6llesDialogbox.frmAddIngDialog.cboVaregruppe_Se lectedIndexChanged(Obje=
ct sender, EventArgs e) in C:\Documents and Settings\Administrator\My =
Documents\Visual Studio =
Projects\Datasystem\KS\F=E6llesDialogbox\frmAddIng Dialog.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{MySQL ODBC 3.51 =
Driver};" & _
"SERVER=3D" & =
System.Configuration.ConfigurationSettings.AppSett ings("Host") & _
";DATABASE=3D" & =
System.Configuration.ConfigurationSettings.AppSett ings("Database") & _
";UID=3D" & =
System.Configuration.ConfigurationSettings.AppSett ings("Username") & _
";Password=3D" & =
System.Configuration.ConfigurationSettings.AppSett ings("Password") & _
";"
'Connection
Dim MyConnection As New Odbc.OdbcConnection(MyConString)
MyConnection.Open()
Console.WriteLine("Connection State::" & =
MyConnection.State.ToString)
=20
Dim MyCommand As New Odbc.OdbcCommand()
MyCommand.CommandText =3D "SELECT * FROM Produkter where =
Varegruppe =3D '" & =
Replace(objVaregrupper(cboVaregruppe.SelectedIndex ).Groupnr, ",", ".") & =
"' order by Varenavn"
MyCommand.Connection =3D MyConnection
Dim MyDataReader As Odbc.OdbcDataReader
MyDataReader =3D MyCommand.ExecuteReader
While MyDataReader.Read
objProdukter(t) =3D New clsProdukter()
text +=3D " || "
objProdukter(t) =3D New clsProdukter()
plunr =3D MyDataReader("plunr")
varenavn =3D MyDataReader("Varenavn") =20
Ink=F8bspris =3D MyDataReader("Ink=F8bspris") 'it is =
here all the problems strarts even then i out comment this line =20
Salgspris =3D MyDataReader("Salgspris")
Engrospris =3D MyDataReader("Engrospris")
objProdukter(t) =3D New clsProdukter(CInt(plunr), =
varenavn, varegruppenr, CDbl(Ink=F8bspris), Salgspris, CDbl(Engrospris))
varegruppenr =3D =
objVaregrupper(cboVaregruppe.SelectedIndex)
text +=3D " ID =3D " & MyDataReader("Firmanr")
t +=3D 1
ReDim Preserve objProdukter(t)
End While
MyConnection.Close()
=20
Console.WriteLine("Connection State::" & =
MyConnection.State.ToString)
'Catch ODBC Exception
Catch MyOdbcException As Odbc.OdbcException
MsgBox(MyOdbcException.ToString)
Console.WriteLine(MyOdbcException.ToString)
'Catch program exception
Catch MyException As Exception
MsgBox(MyException.ToString)
End Try
cboProdukter.Items.Clear()
For t =3D 0 To UBound(objProdukter) - 1 Step 1
cboProdukter.Items.Add(objProdukter(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.20AC1200-- 2 2498
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.Odbc instead.
Brandon
"Kenneth Foli Jørgensen" <ke*****@lflug.dk> wrote in message
news:bh**********@FreeBSD.csie.NCTU.edu.tw... ------=_NextPart_000_000D_01C35CF0.20AC1200 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable
i get this msg: Microsoft.Data.Odbc.OdbcException: NO_DATA - no error information = available at Microsoft.Data.Odbc.OdbcConnection.HandleError(Int Ptr hHandle, = SQL_HANDLE hType, RETCODE retcode) at Microsoft.Data.Odbc.OdbcDataReader.GetData(Int32 i, SQL_C sqlctype, = Int32 cb) at Microsoft.Data.Odbc.OdbcDataReader.internalGetStri ng(Int32 i) at Microsoft.Data.Odbc.OdbcDataReader.GetValue(Int32 i, TypeMap typemap) at Microsoft.Data.Odbc.OdbcDataReader.GetValue(Int32 i) at Microsoft.Data.Odbc.DbCache.AccessIndex(Int32 i) at Microsoft.Data.Odbc.OdbcDataReader.GetValue(Int32 i) at Microsoft.Data.Odbc.OdbcDataReader.get_Item(String value) at = F=E6llesDialogbox.frmAddIngDialog.cboVaregruppe_Se lectedIndexChanged(Obje= ct sender, EventArgs e) in C:\Documents and Settings\Administrator\My = Documents\Visual Studio = Projects\Datasystem\KS\F=E6llesDialogbox\frmAddIng Dialog.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{MySQL ODBC 3.51 = Driver};" & _ "SERVER=3D" & = System.Configuration.ConfigurationSettings.AppSett ings("Host") & _ ";DATABASE=3D" & = System.Configuration.ConfigurationSettings.AppSett ings("Database") & _ ";UID=3D" & = System.Configuration.ConfigurationSettings.AppSett ings("Username") & _ ";Password=3D" & = System.Configuration.ConfigurationSettings.AppSett ings("Password") & _ ";"
'Connection Dim MyConnection As New Odbc.OdbcConnection(MyConString) MyConnection.Open() Console.WriteLine("Connection State::" & = MyConnection.State.ToString) =20 Dim MyCommand As New Odbc.OdbcCommand() MyCommand.CommandText =3D "SELECT * FROM Produkter where = Varegruppe =3D '" & = Replace(objVaregrupper(cboVaregruppe.SelectedIndex ).Groupnr, ",", ".") & = "' order by Varenavn" MyCommand.Connection =3D MyConnection Dim MyDataReader As Odbc.OdbcDataReader MyDataReader =3D MyCommand.ExecuteReader While MyDataReader.Read objProdukter(t) =3D New clsProdukter() text +=3D " || " objProdukter(t) =3D New clsProdukter() plunr =3D MyDataReader("plunr") varenavn =3D MyDataReader("Varenavn") =20 Ink=F8bspris =3D MyDataReader("Ink=F8bspris") 'it is = here all the problems strarts even then i out comment this line =20 Salgspris =3D MyDataReader("Salgspris") Engrospris =3D MyDataReader("Engrospris") objProdukter(t) =3D New clsProdukter(CInt(plunr), = varenavn, varegruppenr, CDbl(Ink=F8bspris), Salgspris, CDbl(Engrospris)) varegruppenr =3D = objVaregrupper(cboVaregruppe.SelectedIndex) text +=3D " ID =3D " & MyDataReader("Firmanr") t +=3D 1 ReDim Preserve objProdukter(t) End While MyConnection.Close() =20 Console.WriteLine("Connection State::" & = MyConnection.State.ToString)
'Catch ODBC Exception Catch MyOdbcException As Odbc.OdbcException MsgBox(MyOdbcException.ToString) Console.WriteLine(MyOdbcException.ToString)
'Catch program exception Catch MyException As Exception MsgBox(MyException.ToString) End Try cboProdukter.Items.Clear() For t =3D 0 To UBound(objProdukter) - 1 Step 1 cboProdukter.Items.Add(objProdukter(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.20AC1200--
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.Odbc instead.
Brandon
"Kenneth Foli Jørgensen" <ke*****@lflug.dk> wrote in message
news:bh**********@FreeBSD.csie.NCTU.edu.tw... ------=_NextPart_000_000D_01C35CF0.20AC1200 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable
i get this msg: Microsoft.Data.Odbc.OdbcException: NO_DATA - no error information = available at Microsoft.Data.Odbc.OdbcConnection.HandleError(Int Ptr hHandle, = SQL_HANDLE hType, RETCODE retcode) at Microsoft.Data.Odbc.OdbcDataReader.GetData(Int32 i, SQL_C sqlctype, = Int32 cb) at Microsoft.Data.Odbc.OdbcDataReader.internalGetStri ng(Int32 i) at Microsoft.Data.Odbc.OdbcDataReader.GetValue(Int32 i, TypeMap typemap) at Microsoft.Data.Odbc.OdbcDataReader.GetValue(Int32 i) at Microsoft.Data.Odbc.DbCache.AccessIndex(Int32 i) at Microsoft.Data.Odbc.OdbcDataReader.GetValue(Int32 i) at Microsoft.Data.Odbc.OdbcDataReader.get_Item(String value) at = F=E6llesDialogbox.frmAddIngDialog.cboVaregruppe_Se lectedIndexChanged(Obje= ct sender, EventArgs e) in C:\Documents and Settings\Administrator\My = Documents\Visual Studio = Projects\Datasystem\KS\F=E6llesDialogbox\frmAddIng Dialog.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{MySQL ODBC 3.51 = Driver};" & _ "SERVER=3D" & = System.Configuration.ConfigurationSettings.AppSett ings("Host") & _ ";DATABASE=3D" & = System.Configuration.ConfigurationSettings.AppSett ings("Database") & _ ";UID=3D" & = System.Configuration.ConfigurationSettings.AppSett ings("Username") & _ ";Password=3D" & = System.Configuration.ConfigurationSettings.AppSett ings("Password") & _ ";"
'Connection Dim MyConnection As New Odbc.OdbcConnection(MyConString) MyConnection.Open() Console.WriteLine("Connection State::" & = MyConnection.State.ToString) =20 Dim MyCommand As New Odbc.OdbcCommand() MyCommand.CommandText =3D "SELECT * FROM Produkter where = Varegruppe =3D '" & = Replace(objVaregrupper(cboVaregruppe.SelectedIndex ).Groupnr, ",", ".") & = "' order by Varenavn" MyCommand.Connection =3D MyConnection Dim MyDataReader As Odbc.OdbcDataReader MyDataReader =3D MyCommand.ExecuteReader While MyDataReader.Read objProdukter(t) =3D New clsProdukter() text +=3D " || " objProdukter(t) =3D New clsProdukter() plunr =3D MyDataReader("plunr") varenavn =3D MyDataReader("Varenavn") =20 Ink=F8bspris =3D MyDataReader("Ink=F8bspris") 'it is = here all the problems strarts even then i out comment this line =20 Salgspris =3D MyDataReader("Salgspris") Engrospris =3D MyDataReader("Engrospris") objProdukter(t) =3D New clsProdukter(CInt(plunr), = varenavn, varegruppenr, CDbl(Ink=F8bspris), Salgspris, CDbl(Engrospris)) varegruppenr =3D = objVaregrupper(cboVaregruppe.SelectedIndex) text +=3D " ID =3D " & MyDataReader("Firmanr") t +=3D 1 ReDim Preserve objProdukter(t) End While MyConnection.Close() =20 Console.WriteLine("Connection State::" & = MyConnection.State.ToString)
'Catch ODBC Exception Catch MyOdbcException As Odbc.OdbcException MsgBox(MyOdbcException.ToString) Console.WriteLine(MyOdbcException.ToString)
'Catch program exception Catch MyException As Exception MsgBox(MyException.ToString) End Try cboProdukter.Items.Clear() For t =3D 0 To UBound(objProdukter) - 1 Step 1 cboProdukter.Items.Add(objProdukter(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.20AC1200-- This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: dave |
last post by:
hi
I want to install mysql odbc driver 3.51 and downloaded
MyODBC-3.51.06-dll.zip from the mysql.com.
but when i unzipped it, it shows only dll file..
I m very confused how to install odbc...
|
by: Kenneth Foli Jørgensen |
last post by:
------=_NextPart_000_000D_01C35CF0.20AC1200
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
i get this msg:
Microsoft.Data.Odbc.OdbcException:...
|
by: Chris R. |
last post by:
I'm trying to do what I thought was a fairly simple thing, select a group of
records from a mySQL database.
I'm not much of an SQL guy. The syntax I would use for Microsoft SQL is
shown on the...
|
by: Tim Hastings |
last post by:
Hello,
I am using MyODBC from VB and I want to submit a batch of insert statements
in one call from my App. This is more efficient than making multiple calls
from code because of the...
|
by: Bob |
last post by:
Has anyone tried (and succeded?) in specifying the appropriate connect
string for a hierarchical dataset using MyODBC?
It's where you specify MSDATASHAPE as your "Provider" but then need to...
|
by: Dominikus Zimmerer |
last post by:
Hello,
i want to install the MyODBC driver for windows.
i donwloaded the newest installer from the mysql website.
-> MyODBC-3.51.06.exe
now i know the command line parameter for a silent...
|
by: qhe |
last post by:
Dear All:
I'm using MyODBC 3.51.06 and MySQL 4.0.18.
My table has a mediumblob field, but I can't update/insert data larger than
64K. The test application is created by VC6 appwizard, here is...
|
by: Bill Davidson |
last post by:
Hello:
I have a thin C++ database access library that can be used
with MySQL *only* through MyODBC. I would like to use this
database access library with embedded mySQL server.
Would that be...
|
by: I & L Fogg |
last post by:
My client (and hence I!) need to install MyODBC on a Citrix server, but
when the MyODBC installation .exe is run, it fails. The .msi also fails.
Investigation on the web indicates that this might...
|
by: Matthias HALDIMANN |
last post by:
When importing data into MS SQL Server 2000 from a MyODBC (v3.51) data
source using Data Transformation Services, special characters like öäüéàè
are not imported correctly. However, when the MyODBC...
|
by: Faith0G |
last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome former...
|
by: taylorcarr |
last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: ryjfgjl |
last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
| |