Dim da As System.Data.OleDb.OleDbDataAdapter
Dim ds As New System.Data.DataSet()
Dim stringaConnessione As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & PathDB
Dim stringaSQL As String = "SELECT * FROM AGENTE"
da = New System.Data.OleDb.OleDbDataAdapter(stringaSQL, stringaConnessione)
da.Fill(ds, "TblAgente")
Dim TBL As DataTable = ds.Tables("TblAgente")
Dim command As OleDbCommand
Dim row As DataRow = TBL.NewRow
row("ID") = 317
row("AGENTE") = "PROVA"
TBL.Rows.Add(row)
Using CN As New OleDbConnection(stringaConnessione)
command = New OleDbCommand("INSERT INTO AGENTE (ID, AGENTE) VALUES (317, PROVA)", CN)
da.InsertCommand = command
da.Update(TBL)
End Using
End sub
questo è il codice fatto da me, non ho mai programmato in vb2008 ma solo in vb6, e l'ho creato leggendo un l'help ma non ci ho capito molto,potete darmi una mano?
praticamente ho già un db (mdb) compilato adesso dovrei inserire, aggiornare ed eliminare le righe. questa è un prova per inserire un riga. mi da errore su da.update(tbl) dicendomi che mancano valori per dei parametri necessari. MI DARESTE UNA MANO? vI RINGRAZIO TUTTI ANTICIPATAMENTE.
Rispondi quotando
