100 messaggi dal 12 novembre 2001
Ciao a tutti,
ho problemi con l'update con SQL di un campo MEMO di un db Access.

Ho pensato di provare con un dataset, non rilevo errori ma i campi non vengono aggiornati.

Cosa sbaglio?

CODICE ********************************

strsql = "SELECT * FROM table WHERE id=@id "

Dim cmd As New OleDbCommand(strsql, conn)

With cmd.Parameters
.AddWithValue("@id", txtid.Text)
End With

Try

Dim da As New OleDbDataAdapter
da.SelectCommand = cmd
Dim ds As New DataSet()

da.MissingSchemaAction = MissingSchemaAction.AddWithKey

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

Dim cmdBuild As New OleDbCommandBuilder(da)

Dim tb As New DataTable()
tb = ds.Tables("mytable")

tb.Rows(0)("nome") = txtnomeit.Text
tb.Rows(0)("sottotitolo") = txtstitit.Text
tb.Rows(0)("descrizione") = txtdescrit.Value
tb.Rows(0)("ordine") = txtordine.Text
tb.Rows(0)("lingua") = ddllingua.SelectedValue
tb.Rows(0)("dati_tecnici") = txtdatitec.Value
tb.Rows(0)("titaccstd") = txttitaccst.Text
tb.Rows(0)("titaccopz") = txttitaccopz.Text

ds.AcceptChanges()
ds.Dispose()
ds = Nothing
da = Nothing
successo = True
100 messaggi dal 12 novembre 2001
Aggiorno il codice, avevo saltato completamente delle parti:

....

'dopo aver riempitoil dataset con da.fill()
Dim b As OleDbCommandBuilder = New OleDbCommandBuilder(da)
....

'modifica riga

....

tb.rows(0).acceptchanges()
ds.acceptchanges()
righeaggiornate = da.Update(ds, "mytable")

....

Righeaggiornate è 0

!

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.