Accueil > Forum > > > > Mise à jour d'une base Access
Mise à jour d'une base Access
jeudi 1 avril 2004 à 14:48:03 |
Mise à jour d'une base Access

Suffren
|
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
|
|
jeudi 1 avril 2004 à 20:06:42 |
Re : Mise à jour d'une base Access

3Pom
|
Beh oui utilise les methodes BeginEdit() et EndEdit() de ton DataRow
|
|
vendredi 2 avril 2004 à 09:32:36 |
Re : Mise à jour d'une base Access

Suffren
|
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
|
|
vendredi 2 avril 2004 à 15:57:06 |
Re : Mise à jour d'une base Access

3Pom
|
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é
|
|
vendredi 2 avril 2004 à 16:11:24 |
Re : Mise à jour d'une base Access

Suffren
|
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 !!!
|
|
vendredi 2 avril 2004 à 18:23:39 |
Re : Mise à jour d'une base Access

3Pom
|
Beh en gle le critere c la clé primaire "cle=valeur" regarde ds msdn y a des exemples la dessus
|
|
lundi 5 avril 2004 à 09:24:04 |
Re : Mise à jour d'une base Access

Suffren
|
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
|
|
lundi 5 avril 2004 à 11:24:46 |
Re : Mise à jour d'une base Access

3Pom
|
Bon envois moi le code de modification ke j'y jette 1 coup d'oeil
|
|
lundi 5 avril 2004 à 11:55:02 |
Re : Mise à jour d'une base Access

Suffren
|
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
|
|
vendredi 14 mai 2004 à 09:32:53 |
Re : Mise à jour d'une base Access

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
|
|
Cette discussion est classée dans : access, base, jour
Répondre à ce message
Sujets en rapport avec ce message
mettre à jour la base ACCESS [ par petchy ]
bonjour j'ai créer il y a 2 ans un programme pour la gestion d'un centre aéré,et j'enregistre mes données dans une base access. dans ma table j'ai plu
problem de mise a jour access [ par abcdefj ]
J'ai développé mon application sous Visual Studio 2008. Quand je lance mon programme en mode debug, cela fonctionne très bien : j'ajoute dans la base
VBA:Mise a jour particulière [ par inver-brass ]
Salut,Je m'appelle Idriss, par ce message, j'essai de trouver une facon de faire une Mise à Jour un peu particulière sous Access97:Cette mise à jour e
Access et sql [ par wanny ]
Salut à tous.Dans une appli, j'ai besoin de faire une mise à jour de certaines tables d'une bdd, si l'utilisateur n'utilise pas la dernière version.Po
mise à jour base ACCESS [ par leodine ]
Salut à tous!Je développe une petite appli ACCESS dans laquelle j'ai une fonctionnalité qui permet de remplir des infos divers : je remplis formulaire
Mettre à jour en cascase sur access [ par m2rtech ]
Salut, J'utilise une base Access, et je souhaite creer une relation entre 2 table en sql sur ma base . Probleme, je ne sais pas pas comment coder en S
mise à jour enregistrement base access. [ par abaazizi ]
malekBonjour,J'ai developpé une gestion application en mono poste sous VB4 base de données access (Datamgr).Pour acceder aux données des tables, je n'
Dupliquer une base de donnée Access [ par alecccc ]
Bonjour,J'aimerais faire une sauvegarde de ma base de donnée Access avec Vb.J'aimerais le dupliquer et l'enrégistrer dans un répertoire portant la dat
Mise à jour d'une base access sur un site distant [ par CyberPapy67 ]
Je dispose d'un site internet avec une base access, je voudrais faire une mise à jour périodique de ma base avec des données en local. Je programme en
mettre à jour un chanmps d'une base de données crée sous access [ par hamidou1 ]
Bonjour,je suis entrée de créer une base de données. je l'ai créée sous access et je la manipule sous VB. mon problème en est que , lors d'une livrais
Livres en rapport
|
Derniers Blogs
PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc [HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse au W3C, et l'avenir est très très prometteur pour le HTML5, notamment ...
Cliquez pour lire la suite de l'article par Gio
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|