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??
|