[VB.NET] Primi passi con ADO.NET e aggiornamento di un DB Access

[jarodevil]

Premetto che sono alle prime armi con il .net

Ho creato un progetto nuovo
Tramite la wizard ho aggiunto un nuovo database Access....

Vorrei leggere i dati da questo db, modificarli e salvarli....

Questo è il mio codice però mi da errore quando faccio l'update della tabella....

Perchè????

Il codice è relativo alla form e al bottone che dovrebbe laciare l'aggiornamento del valore della tabella....

*******************************************

Public Class frmAggiornamentoDB

Dim stringaConnessione As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ONDA\Onda.mdb;Persist Security Info=False"
Dim cn As New OleDbConnection(stringaConnessione)

Dim cmdSql As String = "SELECT TOP 1 CodArt FROM Tabella1"
Dim comando As New OleDbCommand(cmdSql, cn)
Dim da As New OleDbDataAdapter
Dim ds As New DataSet("OndaDataSet")

Dim pippo As New OleDbCommandBuilder

Dim Tabella1 As DataTable


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles botAvvioAgg.Click
da.SelectCommand = comando
cn.Open()

da.MissingSchemaAction = MissingSchemaAction.AddWithKey

ds.Clear()
da.Fill(ds, "Tabella1")

Tabella1 = ds.Tables("Tabella1")
MsgBox(Tabella1.Rows(0)("CodArt"))
Tabella1.Rows(0)("CodArt") = "pippo"

cn.Close()

da.Update(ds, "Tabella1")
ds.AcceptChanges()


End Sub
End Class

*************************************

Grazie mille

[vaitrafra]

madunina santa, quand'è che imparerete a dire QUALE errore?

[jarodevil]

Risolto.....

Dopo mille ricerche......



[list=a]

Public Class frmAggiornamentoDB
' Stringa di connessione al database
'Dim stringaConnessione As String = "Provider=SQLOLEDB.1;Password=edisoftwaresa;Persis t Security Info=True;User ID=sa;Initial Catalog=BMELETTRONICA;Data Source=ONDA"
Dim stringaConnessione As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ONDA\Onda.mdb;Persist Security Info=False"

'oggetto per la connessione
Dim cn As New OleDbConnection(stringaConnessione)

' comando per la lettura dei dati
Dim cmdSql As String = "SELECT TOP 1 CodArt FROM Tabella1"
Dim comando As New OleDbCommand(cmdSql, cn)

'Object di tipo Adapter per comunicazione DB con DataSet
Dim da As New OleDbDataAdapter

'Object per la gestione del DataSet
Dim ds As New DataSet("OndaDataSet")

Dim Tabella1 As DataTable
Dim cmdBuild As New OleDbCommandBuilder(da)




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles botAvvioAgg.Click

da.SelectCommand = comando
cn.Open()

da.MissingSchemaAction = MissingSchemaAction.AddWithKey

ds.Clear()
da.Fill(ds, "Tabella1")

Tabella1 = ds.Tables("Tabella1")

'sampleDataDataGridView.DataSource = Tabella1
'MsgBox(Tabella1.Rows(0)("CodArt"))
Tabella1.Rows(0)("CodArt") = "merda"


da.Update(ds, "Tabella1")
cn.Close()

End Sub
End Class




[/list=a]



Saluti....

[vaitrafra]

ah, chiudevi la connessione al database prima di aggiornare il database... carino.