Modifica Dati contenuti in una tabella Access

mercoledì 12 gennaio 2005 - 17.46

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Aristoteles Profilo | Newbie

48 messaggi | Data Invio: mer 12 gen 2005 - 17:46

Ciao a tutti, ho creato un form che visualizza dati presenti in una tabella Access, adesso vorrei dare la possibilità all'utente di modificarli.
Gli oggetti creati fino a quetso momento tramite creazione guidata sono: la connessione, l'oggetto DataAdapter e il DataSet. riesco a scorrere per tutti i record ma per modificarli?
Aiuto è urgente e sto impazzendo

Cteniza Profilo | Guru

1.509 messaggi | Data Invio: mer 12 gen 2005 - 18:32

Presumo (e dò per scontato) che tu abbia generato il dataset tramite la generazione automatica.
Per aggiungere una riga:
Dim row As DataRow
row = dataset.DataTable(myTable).NewRow
row(campo1) = valore
row(campo2) = valore
dataSet.DataTable(mytable).Add(row)

Per aggiornare le modifiche
dataadapter.Update(Dataset.Tables(mytable))

Cteniza Profilo | Guru

1.509 messaggi | Data Invio: mer 12 gen 2005 - 18:33

Scusa hai detto per modificare:
Dim row As DataRow
row = myTable.Rows(0) 'solo la prima riga
row(myfield) = valore
(poi di nuovo l'update del dataadapter)

Aristoteles Profilo | Newbie

48 messaggi | Data Invio: gio 13 gen 2005 - 14:50

Io ho scritto questo:

Dim row As DataRow
row = DS_Anagrafica.Tables("Anagrafica").Rows(0)
row("Nome") = "Francesco"
DA_Anagrafica.Update(DS_Anagrafica)
DA_Anagrafica.Update(DS_Anagrafica, "Anagrafica")
DA_Anagrafica.Update(DS_Anagrafica.Tables("Anagrafica"))ù

Come puoi vedere ci ho provato ma non mi aggiorna niente, l'oggetto DatRow è ok poi però al momento di aggiornare il DA_Anagrafica non ne vuole sapere Come faccio?

Cteniza Profilo | Guru

1.509 messaggi | Data Invio: gio 13 gen 2005 - 17:52

Questo esempio funziona sicuramente

Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\access\dbprova.mdb")
Dim cmd As New OleDbCommand("select codice, faselavorazione, elemento1, elemento2, elemento3 from Inserimento", cn)
Dim da As New OleDbDataAdapter(cmd)
Dim cmdBuild As New OleDbCommandBuilder(da)
da.Fill(ds, "Inserimento")
myDataRow = ds.Tables("Inserimento").NewRow()
myDataRow("codice") = textbox1.Text
myDataRow("faselavorazione") = textbox2.Text
myDataRow("elemento1") = textbox1.Text + "1"
myDataRow("elemento2") = textbox1.Text + "2"
myDataRow("elemento3") = textbox1.Text + "3" ds.Tables("Inserimento").Rows.Add(myDataRow)
da.Update(ds, "Inserimento")

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !