Passaggio di dati da DataSet ad Access

[davfrata]

Come faccio a passare i dati che ho sul dataset al database access.

Ho provato con il dataadapter ma mi da errore.

posto il codice:

Dim test As OleDbConnection = New OleDb.OleDbConnection()
Try
test.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin; Data Source=c:\dati.mdb; Persist Security Info=False; Jet OLEDBatabase password=mio"
test.Open()
Catch edb As OleDbException
MessageBox.Show("Connessione al database fallita" & vbCr & "Chiudere il programma e riaprirlo")
test.Close()
test = Nothing
Exit Sub
End Try

Dim dbComm As OleDbCommand = New OleDbCommand("SELECT * FROM anagrafici order by n_tessera", test)

dbComm.CommandType = CommandType.Text
Dim dbApt As OleDbDataAdapter = New OleDbDataAdapter()
'Dim dt As New DataTable()
Dim ds As New DataSet()
dbApt.UpdateCommand = dbComm

Try
ds = New DataSet()
ds.ReadXml("C:\dati.xml")
dbApt.Fill(ds, "anagrafici")
dbApt.Update(ds, "anagrafici")
DG.DataSource = ds
DG.DataMember = "*"
Catch ex As Exception
test.Close()
test = Nothing

sbaglio sicuramente sul dbcomm ma non so come fare.
il dataset lo riempie cmq.

Ciao David

[alka]

Chiami il metodo Fill e poi il metodo Update, quindi è normale che tu non riesca a memorizzare nulla, in quanto le istruzioni sono consecutive e non hai apportato modifiche al DataSet.

Il metodo Fill va usato per scaricare i dati; una volta apportate alcune modifiche ai dati, è possibile richiamare Update per rifletterle sul database sottostante.

[cassano]

se devi fare un passaggio di dati tra db o tabelle io userei la Bulkcopy,sai di cosa parlo ???

[davfrata]

per Alka
Ho messo cosi:
Dim test As OleDbConnection = New OleDb.OleDbConnection()
Try
test.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin; Data Source=c:\dati.mdb; Persist Security Info=False; Jet OLEDBatabase password=mio"
test.Open()
Catch edb As OleDbException
MessageBox.Show("Connessione al database fallita" & vbCr & "Chiudere il programma e riaprirlo")
test.Close()
test = Nothing
Exit Sub
End Try

Dim dbComm As OleDbCommand = New OleDbCommand("SELECT * FROM anagrafici order by n_tessera", test)

dbComm.CommandType = CommandType.Text
Dim dbApt As OleDbDataAdapter = New OleDbDataAdapter()
Dim ds As New DataSet()
dbApt.SelectCommand = dbComm

ds = New DataSet("anagrafici")

dbApt.Fill(ds, "anagrafici")
Dim ds1 = New DataSet()
ds1.ReadXml("C:\mio.xml")
dbApt.Update(ds1, "anagrafici")
DG.DataSource = ds1
DG.DataMember = "*"

e mi da questo errore:

Informazioni aggiuntive: Update non è in grado di trovare TableMapping['anagrafici'] o DataTable 'anagrafici'.

Per cassano:
bulkcopy non so cos'è ho visto qualcosa adesso, ma da quello che ho notato non parla di db access o sbaglio?

ciao David

[davfrata]

Scusate mi dite dove sbaglio che sto uscendo pazzo?

Le ho provate tutte.

[davfrata]

Forse mi sono spiegato male rispiego meglio:

Ho un file xml con dei dati, riempio un dataset con questi dati.

A questo punto come faccio ad inserire i dati che ho nel dataset in un database access?

ciao David

[cassano]

fai prima a fare un ciclo sul dataset e tramite una command inserire record per record i dati nel db access.

[davfrata]

ma i record sono tanti come le colonne della tabella, inoltre come faccio il ciclo in modo da salvare i dati di ogni record su delle variabili?

quello che non capisco ho il dataset pieno di dati non posso credere che non ci sia un metodo che mi copi il tutto in una tabella (anche vuota) di un database.

[cassano]

il dataadapter per aggiornare i dati ha bisogno che i record vengono contrassegnati come modificati,solo cosi lui saprà quali dati trasferire sul db.