i get this msg:
Microsoft.Data.Odbc.OdbcException: NO_DATA - no error information available
at Microsoft.Data.Odbc.OdbcConnection.HandleError(IntPtr hHandle, SQL_HANDLE hType, 
RETCODE retcode)
at Microsoft.Data.Odbc.OdbcDataReader.GetData(Int32 i, SQL_C sqlctype, Int32 cb)
at Microsoft.Data.Odbc.OdbcDataReader.internalGetString(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ællesDialogbox.frmAddIngDialog.cboVaregruppe_SelectedIndexChanged(Object sender, 
EventArgs e) in C:\Documents and Settings\Administrator\My Documents\Visual Studio 
Projects\Datasystem\KS\FællesDialogbox\frmAddIngDialog.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øbspris
    Dim Salgspris As String
    Dim Engrospris As String
    'Connector/ODBC 3.51 connection string
        Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
            "SERVER=" & System.Configuration.ConfigurationSettings.AppSettings("Host") 
& _
            ";DATABASE=" & 
System.Configuration.ConfigurationSettings.AppSettings("Database") & _
            ";UID=" & 
System.Configuration.ConfigurationSettings.AppSettings("Username") & _
            ";Password=" & 
System.Configuration.ConfigurationSettings.AppSettings("Password") & _
            ";"

    'Connection
        Dim MyConnection As New Odbc.OdbcConnection(MyConString)
        MyConnection.Open()
            Console.WriteLine("Connection State::" & MyConnection.State.ToString)
            
            Dim MyCommand As New Odbc.OdbcCommand()
            MyCommand.CommandText = "SELECT * FROM Produkter where Varegruppe = '" & 
Replace(objVaregrupper(cboVaregruppe.SelectedIndex).Groupnr, ",", ".") & "' order by 
Varenavn"
            MyCommand.Connection = MyConnection
            Dim MyDataReader As Odbc.OdbcDataReader
            MyDataReader = MyCommand.ExecuteReader
            While MyDataReader.Read
                objProdukter(t) = New clsProdukter()
                text += " || "
                objProdukter(t) = New clsProdukter()
                plunr = MyDataReader("plunr")
                varenavn = MyDataReader("Varenavn")             
                Inkøbspris = MyDataReader("Inkøbspris")  'it is here all the problems 
strarts even then i out comment this line  
                Salgspris = MyDataReader("Salgspris")
                Engrospris = MyDataReader("Engrospris")
                objProdukter(t) = New clsProdukter(CInt(plunr), varenavn, 
varegruppenr, CDbl(Inkøbspris), Salgspris, CDbl(Engrospris))
                varegruppenr = objVaregrupper(cboVaregruppe.SelectedIndex)
                text += " ID = " & MyDataReader("Firmanr")
                t += 1
                ReDim Preserve objProdukter(t)
            End While
        MyConnection.Close()
    
        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 = 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øbspris` double NOT NULL default '0',
  `Engrospris` double default NULL,
  `Salgspris` varchar(255) default NULL,
  `Tilbudspris` varchar(255) default NULL,
  `ErnæringID` varchar(255) default NULL,
  `temp` varchar(255) default NULL
) TYPE=MyISAM;

#
# Data dump for tabellen `Produkter`
#

INSERT INTO `Produkter` (`ID`, `Plunr`, `Varenavn`, `Varegruppe`, `Varetext`, 
`Firmanr`, `Firmavarenr`, `Inkøbspris`, `Engrospris`, `Salgspris`, `Tilbudspris`, 
`ErnæringID`, `temp`) VALUES (884, '9069', 'Stegeflæsk, uden ben med svær', '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øbspris`, `Engrospris`, `Salgspris`, `Tilbudspris`, 
`ErnæringID`, `temp`) VALUES (883, '9026', 'Flæskeribs 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øbspris`, `Engrospris`, `Salgspris`, `Tilbudspris`, 
`ErnæringID`, `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øbspris`, `Engrospris`, `Salgspris`, `Tilbudspris`, 
`ErnæringID`, `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øbspris`, `Engrospris`, `Salgspris`, `Tilbudspris`, 
`ErnæringID`, `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øbspris`, `Engrospris`, `Salgspris`, `Tilbudspris`, 
`ErnæringID`, `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øbspris`, `Engrospris`, `Salgspris`, `Tilbudspris`, 
`ErnæringID`, `temp`) VALUES (878, '9073', 'Svinetær', '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øbspris`, `Engrospris`, `Salgspris`, `Tilbudspris`, 
`ErnæringID`, `temp`) VALUES (877, '9120', 'Svinehovede med kæbesnitte', '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øbspris`, `Engrospris`, `Salgspris`, `Tilbudspris`, 
`ErnæringID`, `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øbspris`, `Engrospris`, `Salgspris`, `Tilbudspris`, 
`ErnæringID`, `temp`) VALUES (875, '9132', 'Svær 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);


Reply via email to