Oppure

Loading
17/11/09 16:47
ezeta64
Ma questo non vabene??

Dim cmdBuild As New OleDbCommandBuilder(da)
da.UpdateCommand = cmdBuild.GetUpdateCommand
aaa
18/11/09 15:42
Il Totem
Gli hai detto slamente "questo è il comando per aggiornare i record". E lui ti ha risposto "Ok, ma cosa me ne faccio?" :rotfl::rotfl:
Ovvio che se non ordini di eseguire la query, il programma non se lo sogna...
aaa
18/11/09 16:24
ezeta64
Abbi pazienza se non capisco.., ma la query gliel'ho fatta eseguire all'inizio della routine che ti ho mandato prima,

Dim clientiConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\clienti\test.accdb"

cn = New OleDbConnection(clientiConn)
sql = "SELECT * FROM Clienti"
Dim cmd As New OleDbCommand(sql, cn)
da.SelectCommand = cmd

cn.Open()
' copia anche le chiavi
da.MissingSchemaAction = MissingSchemaAction.AddWithKey
ds = New DataSet("Clienti";)

ds.Clear()
da.Fill(ds, "Clienti";)

Dim dr As DataRow = ds.Tables("Clienti";).NewRow

'indice ultima riga
Dim r As Integer = ds.Tables("Clienti";).Rows.Count

dr("ID";) = r + 1
dr("Cognome";) = txtCognome.Text
dr("Nome";) = txtNome.Text

ds.Tables("Clienti";).Rows.Add(dr)
ds.Tables("Clienti";).AcceptChanges()

Dim cmdBuild As New OleDbCommandBuilder(da)
da.UpdateCommand = cmdBuild.GetUpdateCommand

se non è quella giusta, quale query devo scrivere??


aaa
19/11/09 10:41
Il Totem
Vedo che non hai neanche aperto il link che ti ho postato prima, e che ti ostini a non mettere il codice nel tag CODE, come espressamente detto dal regolamento.
msdn.microsoft.com/it-it/library/…
da.Update(ds)
aaa