Det går framåt för lilla mig, men jag förstår inte vad som är fel med denna koden. All kod körs utan felmeddelande men posten läggs inte in i databasen. Varför?

<code>
Dim daNyProd As New OleDbDataAdapter()

daNyProd.InsertCommand = New OleDbCommand("INSERT INTO " _
& "Produkt(serienr, produktgrupp) VALUES (@serienr, @prodgrupp)", cDBCConnection)

Dim dsNyProd As New DataSet("NyProd")

dsNyProd.Tables.Add("Produkt")
dsNyProd.Tables(0).Columns.Add("serienr")
dsNyProd.Tables(0).Columns.Add("produktgrupp")

daNyProd.InsertCommand.CommandType = CommandType.Text
daNyProd.InsertCommand.Parameters.Add("@serienr", txtProduktSerieNr.Text)
daNyProd.InsertCommand.Parameters.Add("@prodgrupp", cboProduktGrupp.Text)

Try
cDBCConnection.Open()
daNyProd.Update(dsNyProd, "Produkt")
cDBCConnection.Close()

Catch
If cDBCConnection.State = ConnectionState.Open Then
cDBCConnection.Close()
End If

MsgBox("An error occurred. Error Number: " & Err.Number & _
" Description: " & Err.Description & " Source: " & Err.Source)
End Try
</code>

Att skapa ett dataset gör nog ingen nytta här, när du ändå jobbar med ett Insertcommand. Hade du redan haft datan i datasetet så hade lösningen med DataSet/Adapter varit att föredra, men nu har du ju datan i en Textbox och en ComboBox så det är bara onödigt jobb att skapa ett dataset och lägga in datan. Det var f ö det sista du missade i din kod. Du skapade ett dataset, men du la aldrig till en ny rad i datasetet med värdena i textboxen och comboboxen.

Testa följande i stället (jag har inte provkört den ska jag erkänna, men förhoppningsvis förstår du vad jag menar) :

<code>
Dim mInsertCommand As OleDbCommand = New OleDbCommand("INSERT INTO " _
& "Produkt(serienr, produktgrupp) VALUES (@serienr, @prodgrupp)", cDBCConnection)

mInsertCommand.CommandType = CommandType.Text
mInsertCommand.Parameters.Add("@serienr", txtProduktSerieNr.Text)
mInsertCommand.Parameters.Add("@prodgrupp", cboProduktGrupp.Text)

Try
cDBCConnection.Open()
mInsertCommand.ExecuteNonQuery();
cDBCConnection.Close()

Catch
If cDBCConnection.State = ConnectionState.Open Then
cDBCConnection.Close()
End If

MsgBox("An error occurred. Error Number: " & Err.Number & _
" Description: " & Err.Description & " Source: " & Err.Source)
End Try
</code>

Funka klockrent å nu fattar jag lite oxå. Två flugor i en smäll.

Tack för hjälpen!