Mise à jour d'une base Access

Bonjour,
je dois modifier une base Access 2000 via un formulaire VB.Net et notamment remplacer une ligne (DataRow) par une autre or il memet une exception comme quoi elle existe déjà.
Quequ'un connaîtrait-il une commande différente de Add() pour réaliser cela?
Suffren

Beh oui utilise les methodes BeginEdit() et EndEdit() de ton DataRow

D'accord mais pour enregistrer cette modification d'un champ dans la base de données sans que VB.Net me dise que cette ligne existe déjà?
Suffren

En fait tu selectionne la ligne ac un truc du genre
dim Dr as DataRow()
Dr=Ds.Tables("nomtable").rows.select("ton critere")
dr(0).BeginEdit
.....
.....
Dr(0).EndEdit
et voilà le tour est joué

Que sélectionnes-tu comme critère?
Je fais les modifs à travers un formulaire qui les enregistre mais c'est pour les envoyer à la base que çà coince il me met que la ligne que je veux ajouter existe déjà alors que je luii avais demandé de la supprimer pour en créer une nouvelle.
As-tu une idée?
Suffren

PS : je nage depuis 3 jours sur ce problème, j'en ai marre !!!

Beh en gle le critere c la clé primaire
"cle=valeur" regarde ds msdn y a des exemples la dessus

D'accord j'ai ajouté une clé primaire à ma base mais maintenant si je fais une modif, il me dit :
"Il n'y a pas de modification proposée".
Ensuite je ne vois pas comment utiliser la clé pour réaliser les modifs.
Suffren

Bon envois moi le code de modification ke j'y jette 1 coup d'oeil

Tout d'abord la fonction Modifier()

Private Sub CmdModifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdModifier.Click objDataRow = objDataSet.Tables("client").Rows(intRowNumber) objDataRow.BeginEdit() 'objDataRow("Num_client") = Me.TextID.Text objDataRow("Nom") = Me.TxtNom.Text objDataRow("Adresse") = Me.TxtAdresse.Text objDataRow("Code_postal") = Me.TxtCode.Text objDataRow("Ville") = Me.TxtVille.Text objDataRow.EndEdit() If objDataRow.HasVersion(DataRowVersion.Proposed) Then Select Case NomCol Case "Num_client" MessageBox.Show("Modification de la clé primaire impossible!") Exit Sub Case "Nom" If objDataRow("Nom", DataRowVersion.Current) Is objDataRow("Nom", DataRowVersion.Proposed) Then objDataRow.CancelEdit() Exit Sub Else objDataRow.AcceptChanges() End If Case "Adresse" If objDataRow("Adresse", DataRowVersion.Current) Is objDataRow("Adresse", DataRowVersion.Proposed) Then objDataRow.CancelEdit() Exit Sub Else objDataRow.AcceptChanges() End If Case "Code_postal" If objDataRow("Code_postal", DataRowVersion.Current) Is objDataRow("Code_postal", DataRowVersion.Proposed) Then objDataRow.CancelEdit() Exit Sub Else objDataRow.AcceptChanges() End If Case "Ville" If objDataRow("Ville", DataRowVersion.Current) Is objDataRow("Ville", DataRowVersion.Proposed) Then objDataRow.CancelEdit() Exit Sub Else objDataRow.AcceptChanges() End If End Select bolIsChanged = True Else MessageBox.Show("Pas de modification proposée") bolIsChanged = False End If

Puis la fanction qui enregistre la modification ou l'ajout d'un nouvel enregistrement:

Private Sub CmdEnregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdEnregistrer.Click If bolIsChanged Then If bolIsNew Then objDataRow = objDataSet.Tables("client").NewRow() Else objDataSet.Tables("client").Rows.Remove(objDataRow) objDataRow = objDataSet.Tables("client").NewRow() End If objDataRow("Nom") = Me.TxtNom.Text objDataRow("Adresse") = Me.TxtAdresse.Text objDataRow("Code_postal") = Me.TxtCode.Text objDataRow("Ville") = Me.TxtVille.Text If bolIsNew Then objDataSet.Tables("client").Rows.Add(objDataRow) Else objDataRow = objDataSet.Tables("client").Rows(intRowNumber) objDataSet.Tables("client").Rows.Add(objDataRow) End If 'Pour modifier les valeurs changées dans le DataAdapter objCommandBuilder = New OleDbCommandBuilder(objDataAdapter) objDataAdapter.Update(objDataSet, "client") objDataSet.Clear() objDataAdapter.Fill(objDataSet, "client") objDataTable = objDataSet.Tables("client") Application.DoEvents() End If displayRecord() bolIsChanged = False End Sub

Suffren

Finalement, j'utiise une simple requête sql mais je me trompais dans les cotes et les guillemets ce qui faisait foirer la mise à jour.
Je mets mon code si çà peut aider quelqu'un.

Private Sub CmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdOK.Click Dim num As String, nom As String, adr As String, ville As String 'On récupère les valeurs saisies dans le formulaire num = TextNum.Text nom = TextNom.Text adr = TextAdresse.Text ville = TextVille.Text sql = "Update client Set Nom='" + nom + "', Adresse='" + adr + "', Ville='" + ville + "' Where Num_client=" + num + ";" ExecuteRequete(sql) End Sub Private Sub ExecuteRequete(ByVal sql) connexion = "Provider=Microsoft.Jet.OLEDB.4.0; " + "Data Source=C:\InetPub\wwwroot\EssaiFormulaires\Clients\Clients.mdb;" conn = New OleDbConnection() conn.ConnectionString = connexion conn.Open() cmd = New OleDbCommand(sql, conn) adapter = New OleDbDataAdapter(cmd) cmd.Connection() = conn cmd.ExecuteNonQuery() conn.Close() End Sub

Voilà
Cordialement,
Suffren