Mettre jour des champs de table via un recordset!possible?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Mettre jour des champs de table via un recordset!possible?

guiguisb

Enlèves tes doigts de ton nez!

Bonjour,

J'intègre des données sous format texte via une macro sous Access dont des dates.

J'ai fait un code pour me ballader dans toute la table et chercher les données ressemblant à une date comme ca jj.MM.AAAA pour les modifier en JJ/MM/AAAA.
J'arrive à les choper et à les transformer mais pas à mettre à jour la valeur dans la table. Je ne souhaite pas utiliser le format date au moment de l'import donc ce n'est pas une soluce pour moi.
mon code est le suivant:
Dim h As TableDef
Dim TABLEDATE As DAO.Recordset
Dim Db3 As DAO.Database
Set Db3 = CurrentDb()
Set TABLEDATE = Db3.OpenRecordset(Tablecible)
Set h = Db3.TableDefs(Tablecible)
n = h.Fields.Count

TABLEDATE.MoveFirst
While Not TABLEDATE.EOF
For i = 0 To n - 1
dat = TABLEDATE.Fields(i)
Debug.Print dat
TEST1 = IsNumeric(Left(dat, 2))
TEST2 = (Right((Left((dat), 3)), 1) = "." )
TEST3 = IsNumeric(Right((Left((dat), 5)), 2))
TEST4 = (Right((Left((dat), 6)), 1) = "." )
TEST5 = IsNumeric(Right(dat, 4))
If TEST1 = True And TEST2 = True And TEST3 = True And TEST4 = True And TEST5 = True Then
dat = Replace((dat), ".", "/" )
TABLEDATE.Edit
TABLEDATE(Fields(i)) = dat
TABLEDATE.Update
End If

Next i
Wend

Ca foire vers le update mais a mon avis je gere ca tres mal!

Merci du coup de main!

Publicité

jpcheck

Pioupiou

bjr,
une requête du style

Code :

UPDATE tableCible SET DATE=replace(DATE,".","/" )

ne suffit-elle pas ?

guiguisb

Enlèves tes doigts de ton nez!

Ca m'interesse bien ca.
quand tu mets DATE c'est une variable?
Dans mon code ca correspondrait à
Update Tablecible Set dat=replace(dat,".","/" )
Sachant que Tablecible est une variable et que dat aussi.

Je me sens un peu à cote de la plaque là! Fichtre!

jpcheck

Pioupiou

oui oui pardon, date est un champs de ta table

guiguisb

Enlèves tes doigts de ton nez!

Et là tu me proposes de mettre à jour tous le champs d'un coup?
L'idée c'est que chaque table est différente donc je ne sais jamais quel est le nom du champ et que contient il.
La dans l'idée je teste chaque valeur de la valeur dans chaque champs et si il a un format qui est jj.mm.AAAA alors je fais une modif!
L'idée pourrait etre de se ballader dans la première ligne et si une valeur correspond à ce que je cherche alors je mémorise le champs et je mets toute la colonne à jour.

Qu'en penses tu?

jpcheck

Pioupiou

ben d'un auter coté, je pense qu'a part le champs du type jj.mm.AAAA il n'y a pas de champs avec un . donc tu peux mettre une clause where date like "*.*" ou une manip comme ca, si ca te gene de mettre a jour tous les champs...

guiguisb

Enlèves tes doigts de ton nez!

Ben si j'ai des champs ou ceux sont des chiffres à décimal donc avec un point dans les valeurs du style 153535.76.
La j'arrvie bien à trouver les valeurs et dans le code et dat = Replace((dat), ".", "/" ) me donne bien la date modufier il faut que je dise
TABLEDATE(Fields(i)) = dat

J'ai du faire trop de code et là je vois pas plus loin que le bout de mon neez!
Si j'arrive ca c'est fini j'ai reussi!
fichtre!

guiguisb

Enlèves tes doigts de ton nez!

jpcheck: finalement j'ai ecrit cela:
SQL1 = "UPDATE Tablecible SET TABLEDATE.Fields(i) = dat"
DoCmd.RunSQL SQL1

CA foire. Je pense que je foire au niveau de la déclaration de la table!
le nom de la table est une variable contenur dans Tablecible. dat est la variable qui contient la nouvelle vleur à mettre dans la table et TABLEDATE est le recorset qui ouvre la table Tablecible!

Je n'ai rien en dur! ca doit etre la c.......dans le pate! NON

jpcheck

Pioupiou

le recordset je suis pas sur qu'il le comprennent comme ca, il faut tout réécrire pour qu'il prenne bien en compte, surtout si tu n'as rien en dur...

guiguisb

Enlèves tes doigts de ton nez!

Quand tu dis tout reecrire tu veux que je reecrive toute la partie de recherhce des informations qui correpondent à des dates?

Publicité

jpcheck

Pioupiou

non mais au lieu d'écrire ton tabledate tu mets where date in (select blablabla from etc.)

guiguisb

Enlèves tes doigts de ton nez!

là je suis paumé mais paumé
SQL1= select update tablecible.Fields(i) where Fields(i) = dat

Non là je vois plus trop en fait!

jpcheck

Pioupiou

c koi ton tablecible.fields(i), quand tu update c'est set champs = nelle valeur...

guiguisb

Enlèves tes doigts de ton nez!

je seche à mort là:

dat = Replace((dat), ".", "/" )
SQL1 = "Update Tablecible set Fields(i)= [dat]"
DoCmd.RunSQL SQL1

guiguisb

Enlèves tes doigts de ton nez!

le nom de mon champs je le connais pas .
Et d'ailleurs je vois meme plus comment le recuperer!

guiguisb

Enlèves tes doigts de ton nez!

C'est un SQL très compliqué puisque rien n'est connu tout est variable donc quand tu mets Set champs et bien pour moi monchamps il est égal à fields(i). Tu penses que je me trompe?
Il ya le code quelques postes au dessus.
En tout ca smerci du coup de main! Ca sent le sapin ce SQL!

jpcheck

Pioupiou

si ton fields(i) comporte le nom de ton champs tu dois mettre
dat = Replace((dat), ".", "/" )
SQL1 = "Update Tablecible set "[" & Fields(i) & "]='" & dat &"';"
docmd.runsql sql1

tegu

« Ca foire vers le update mais ... »
Le verbe foirer ne me donnant que peu d'indication, je lui préfère un numéro et un libellé d'erreur, voire la ligne précise où ça plante (si c'est pas sur le .Update). C'est possible ?

Sinon, tu n'as pas besoin de ta variable h, puisque ton recordset TABLEDATE a aussi une collection .Fields avec une propriété .Count.
De plus si tu as un objet TableDef ouvert sur la même table, je crois que ça explique ton problème potentiel de màj du recordset.
L'ouverture par défaut d'un recordset est en mode feuille dynamique (dbOpenDynaset) donc il ne devrait pas y avoir de problème de màj dans ton contexte.
J'espère que tu as déclaré tes variables TEST de type boolean (pas bien sinon !).
Tu peux te passer d'écrire « = True » : « If TEST Then » fonctionne très bien dans ce cas.

guiguisb

Enlèves tes doigts de ton nez!

Petit à petit l'oiseau fait son nid!
Je crois que je vais réussir!
J'avance encore et je vous tiens au courant de ma soluce!

guiguisb

Enlèves tes doigts de ton nez!

Deja le update marche! MAis ca update toute la colonne ce pourrait. Ce que je vais faire c'est que je vais mener le test sur la premièreligne du recorset et si ca correspond à un type de donnée que je cherche je mets à jour toute la colonne! Cependant il faut que j'utilise le replacedirectement dans le SQL mais il n'en veut pas voici:

SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]= Replace((Tablo(i)), ".", "/" );"
DoCmd.RunSQL SQL1

Cependant ca tique sur le "." ca me met erreur de fin d'instruction!
Pourquoi? le savez vous?

jpcheck

Pioupiou

SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]= Replace((" & Tablo(i) & " ), ".", "/" );"

guiguisb

Enlèves tes doigts de ton nez!

Je vous jure ca bloque sur le point encore avec le message
fin d'instruction attendue!

jpcheck

Pioupiou

tu peux nous montrerr ce que donne un debug.print SQL1 ?

guiguisb

Enlèves tes doigts de ton nez!

SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]= Replace([" & tablo(i) & "], [" & "." & "], [" & "/" & "];"

Ceci ne marche pas non plus!

tegu

Le Replace ne devrait pas être dans l'instruction SQL1 ; là elle l'est si mes yeux ont bien lu les guillemets.
Le champ qui va contenir la date est-il de type chaîne ou date ?
Il faut soit des #, soit des quotes pour encadrer sa valeur à mon avis.
Genre :
SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]= '" & Replace(tablo(i) , ".", "/" ) & "';"
Enfin vite fait parce que j'ai pas bcp de temps là

Message édité par tegu le 12-09-2007 à 17:36:11

guiguisb

Enlèves tes doigts de ton nez!

SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]='" & dat & "';"

En debug.print cela donne
Update [BSEG_Blocked_Invoices_Paid] set [AUGCP ]='25.03.2004';

Je n'arrive pas à faire du debug.print avec
SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]= Replace((" & Tablo(i) & " ), ".", "/" );"
puisque elle ne passe pas!

guiguisb

Enlèves tes doigts de ton nez!

SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]= '" & Replace(tablo(i) , ".", "/" ) & "';"

Ton code Tegu fonctionne mais recopie le nom du champ dans toute la colonne! Fichtre on s'approche!
je vais essayer avec des # et des quotes.

guiguisb

Enlèves tes doigts de ton nez!

Voici le debu print du sql du precedent post:

Update [BSEG_Blocked_Invoices_Paid] set [ZFBDT ]= 'ZFBDT ';

guiguisb

Enlèves tes doigts de ton nez!

voici la version de ta reqûete avec des # tegu mais ca ne marche pas!

Je vais essyer de ne ttoyer mon code pour y voir plus clair et je pourrai vous montrer toute la page de code à l'exception des fonctions si ca vous interesse de lire et de résoudre ce problème. Mais c'est dejà sympa le coup de main!

Merci

tegu

Heu, bien sûr que ça met à jour toute la colonne puisqu'il n'y a pas de clause WHERE dans ta requête SQL, pour limiter l'action de la mise à jour.
Là, pour chaque enregistrement tu lances un remplacement des points par des / sur tout le fichier.

Je ne sais pas quel est la clé primaire de ta table mais il faudrait l'utiliser comme suit :
SQL1 = "... WHERE [ChampClePrimaire] = " & TABLEDATE.Fields(indexChampClePrimaire).value ...
en rajoutant des quotes si ta clé primaire est une chaine.

Après relecture, je m'aperçois qu'il y a eu un glissement de syntaxe au fil des posts.
Que contient tablo(i) en l'état actuel de ton code ? Le nom du champ ou sa valeur ?
Selon le dernier exemple de code que tu donnes on devrait plutôt avoir :

SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]='" & Replace(dat , ".", "/" ) & "' WHERE [ChampClePrimaire] = " & TABLEDATE.Fields(indexChampClePrimaire).value & ";"

avec dat = TABLEDATE.Fields(i).value

Message édité par tegu le 13-09-2007 à 09:29:53

guiguisb

Enlèves tes doigts de ton nez!

Code :

Private Sub Command1_Click()
Dim FULL_ADDRESS As String 'adresse complète du fichier dur l'ordinateur (exemple: C\programme\monfichier.txt)
Dim Tablecible As String 'nom de la table de destination qui n'est autre que le nom du fichier texte importé
Dim NOMDUFICHIER As String
Dim FSO As Scripting.FileSystemObject 'methode qui permet ensuite de connaitre le dossier parent du fichier texte
NOMDUFICHIER = ""
FULL_ADDRESS = ""
Me!NOMFICHIER = ""
'Instanciation du FSO
Set FSO = New Scripting.FileSystemObject
'tableau mémorisant le chemin d'accès complet à chaque fichier enregistrant les fichiers à intégrer
Dim TABLOFICHIERS(100) As String
Dim v As Byte
Dim b As Integer
v = 0
Do Until CHOIX = "arret"
v = v + 1
If v = 1 Then
FULL_ADDRESS = LaunchCD(Me) 'fonction qui permet de réchercher un fichier sur son pc
Me!ADRESSE = FSO.GetParentFolderName(FULL_ADDRESS) ' on recupere le chemin jusqu'au chemin parent des fichiers texte, cela permet de repartir de ce dossier pour chercher les fichiers texte à intégrer au lieu de repartir toujours de la racine du disque
'Me!NOMFICHIER = FSO.GetBaseName(FULL_ADDRESS) 'Recuperation du nom du fichier sans l'extension .txt, cei sera le nom de la table crée
NOMDUFICHIER = FSO.GetFileName(FULL_ADDRESS)
Tablecible = FSO.GetBaseName(FULL_ADDRESS)
TABLOFICHIERS(v) = FULL_ADDRESS
If lReturn = 0 Then ' variable qui renvoit 0 si on annule l'importation d'un fichier. Comme c'est le premier choix d'intégration de fichier alors si on annule, la procédure sarrête
GoTo Exit_Import2
End If
Else
CHOIX = MsgBox("Voulez-vous intégrer un nouveau fichier dans la table?", vbYesNo + vbInformation)
End If
If CHOIX = vbYes Then
FULL_ADDRESS = LaunchCD(Me)
TABLOFICHIERS(v) = FULL_ADDRESS
If TABLOFICHIERS(v) = "" Then
v = v - 1
End If
End If
If CHOIX = vbNo Then
CHOIX = "arret"
v = v - 1
End If
If FULL_ADDRESS <> "" Then
Me!NOMFICHIER = Me!NOMFICHIER & " / " & FSO.GetBaseName(FULL_ADDRESS)
End If
FULL_ADDRESS = ""
Loop
'If v > 1 Then ' si V>1 alors cela signifie que plusieurs fichiers sont à intégrer donc on propose au user de choisir le nom de la table de destination
' Do Until Me.NOMTABLE <> ""
' Me!NOMTABLE.Visible = True
' Me!VALIDNOMTABLE.Visible = True
' Me!VALIDNOMTABLE = True
' Tablecible = Me!NOMTABLE.Value
' Loop
' Me!NOMTABLE.Visible = False
' Me!VALIDNOMTABLE.Visible = False
'End If
If Tablecible <> "" And fTableExists1(Tablecible) = True Then 'la fonction fTableExists1 teste si la table existe cela empêche le user de rajouter des données dans sa table
MsgBox ("La table a déjà été importée, veuillez la supprimer puis la réimporter si vous le désirez!" )
MsgBox ("Acun fichier n'a été intégré" )
Else
b = 1
Do Until b = v + 1
NOMDUFICHIER = FSO.GetFileName(TABLOFICHIERS(b)) 'ici la boucle va tourner dans le tableau qui contient les adresses des fichiers
' à intégrer pour tous les importer à la suite ds une meme table
Call ImportReq(NOMDUFICHIER, Tablecible) 'ImportReq est la fonction d'import du fichier texte dans la table
b = b + 1
Loop
'récupération de tous les champs de la table pour pouvoir ensuite sélectionner les lignes dont tous les champs sont nuls dans le but de les supprimer
Dim t As TableDef, tablo() As String
Dim i As Byte, n As Byte, y As Byte, z As Byte, bd As Database
'On Error GoTo Exit_Import2 'si erreur message expliquant l'anomalie
Set bd = CurrentDb
Set t = bd.TableDefs(Tablecible)
n = t.Fields.Count
' Remplissage du tableau
ReDim tablo(n)
For i = 0 To n - 1
tablo(i) = t.Fields(i).Name 'le tablo(i) contient tous les champs de la table
Next i
Set t = Nothing
Set bd = Nothing
Dim Rst As DAO.Recordset
Dim Db As DAO.Database
Dim TESTING As String 'variable qui sert à tester les lignes vides pour les supprimer
TESTING = ""
Set Db = CurrentDb()
Set Rst = Db.OpenRecordset(Tablecible)
Rst.MoveFirst
While Not Rst.EOF 'deplacement dans le recordset pour trouver les enregistrements vides et les supprimer
For i = 0 To n - 1
TESTING = TESTING & Rst.Fields(i) 'ici testing concantene toutes es données de la ligne
Next i
If TESTING = "" Then 'si testing est vide alors la vide est vide et on la supprime
Rst.Delete
End If
Rst.MoveNext
TESTING = ""
Wend
Rst.Close
Set Rst = Nothing
'recherche des dates pour modifier les points par des /
Dim TABLEDATE As DAO.Recordset
Dim Db3 As DAO.Database
Dim SQL1 As String
Dim Tablo2(100) As String
Set Db3 = CurrentDb()
Set TABLEDATE = Db3.OpenRecordset(Tablecible)
n = TABLEDATE.Fields.Count
TABLEDATE.MoveFirst
'While Not TABLEDATE.EOF
For i = 0 To n - 1
dat = TABLEDATE.Fields(i)
Debug.Print dat
Debug.Print tablo(i)
TEST1 = IsNumeric(Left(dat, 2))
TEST2 = (Right((Left((dat), 3)), 1) = "." )
TEST3 = IsNumeric(Right((Left((dat), 5)), 2))
TEST4 = (Right((Left((dat), 6)), 1) = "." )
TEST5 = IsNumeric(Right(dat, 4))
If TEST1 = True And TEST2 = True And TEST3 = True And TEST4 = True And TEST5 = True Then
'dat = Replace((dat), ".", "/" )
'SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]='" & dat & "';"
'SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]= Replace([" & tablo(i) & "], [" & . "], [" / " )];"
'SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]= Replace((" & Tablo(i) & " ), ".", "/" );"
SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]= #" & Replace(tablo(i), ".", "/" ) & "#;"
Debug.Print SQL1
DoCmd.RunSQL SQL1
'TABLEDATE.Edit
'TABLEDATE(Fields(i)) = dat
'TABLEDATE.Update
End If
Next i
'Wend
'Calcul du nombre de ligne intégrées
Dim TABLECALCUL As DAO.Recordset
Dim DB2 As DAO.Database
Dim k As Long
k = 0
Set DB2 = CurrentDb()
Set TABLECALCUL = Db.OpenRecordset(Tablecible)
TABLECALCUL.MoveFirst
While Not TABLECALCUL.EOF 'deplacement dans le recordset compter le nombre de lignes
k = k + 1
TABLECALCUL.MoveNext
Wend
MsgBox (k & " " & "lignes sont présentes dans la table" & " " & Tablecible)
TABLECALCUL.Close
End If
Exit Sub
Exit_Import2:
MsgBox ("Aucun fichier n'a été intégré" )
End Sub

Voici mon code complet à l'exception des fonctions appelées cependant j'ai marqué l'utililité des fonctions au moment de leur appel.
Tegu pour répondre à ta question et bien Tablo(i) contient le nom du champs.
Pour la clé primaire je suis un peu embeté parce que je peux pas vraiment dire que j'en ai une puisque je n'en défini pas via access (numéro unique attribué achacun) et comme chaque fichier est différent je ne sais pas quel est le champ qui identifie de manière unique chaque ligne!

Merci de l'aide en tout cas!

guiguisb

Enlèves tes doigts de ton nez!

Tegu ta requete SQL est pal mal du tout. Voila comment je l'ai adapté et voila debug.print car elle a plante mais a mon avis t'as raison:

SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]='" & Replace(dat, ".", "/" ) & "' WHERE [" & tablo(i) & "] = " & TABLEDATE.Fields(i).Value & ";"

Debug.print
Update [BSEG_Blocked_Invoices_Paid] set [AUGDT ]='25/03/2004' WHERE [AUGDT ] = 25.03.2004;

Sachant que mes données sont toutes des données texte.

guiguisb

Enlèves tes doigts de ton nez!

Cette requête fonctionne donc je vous dit un grand merci à tous les deux!
SQL1 = "Update [" & Tablecible & "] set [" & tablo(i) & "]='" & Replace(dat, ".", "/" ) & "' WHERE [" & tablo(i) & "] = '" & TABLEDATE.Fields(i).Value & "';"
Il ne me reste plus qu'à chercher comment enlever le message qui dit "X lignes vont être mises à jour voulez vous vraiment le faire?" car sinon ca va être long de cliquer à chaque fois.

Merci Merci!

jpcheck

Pioupiou

application.setwarning false

guiguisb

Enlèves tes doigts de ton nez!

Question technique!
Encore merci pour le code!
Tout fonctionne tres bien! Parcontre ma base fraichement créé avec le code et formulaire pèse 300ko. Par contre au fur et à mesure que j'importe des tables et même si ensuite je les supprime alors elle grossit considérablement. J'intègre des gros fichiers style 25 mega. Là elle est arrive à 1.02 giga alors que j'ai tout supprimé dedans. Je me dis que je dois mal vider des recorser ou que sais je encore :

Avez vous deja eu ce genre de problème?

guiguisb

Enlèves tes doigts de ton nez!

La soluce est le compactage c'est bon merci!

Publicité

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Mettre jour des champs de table via un recordset!possible?

Sujets relatifs
creat table en php avec une fonction en +	mise à jour d'un champs
Incrémentation automatique d'un champ numéro dans une table access	Est il possible de forcer l'impression d'une page en recto verso
Afficher correctement le champs h_addr_list de HOSTENT	requete SQL sur champs listés via Tabledef Fields
Comment mettre sur un site internet une vidéo .mod ?	Mettre du Latex dans spip
besoin d'aide date php
Plus de sujets relatifs à : Mettre jour des champs de table via un recordset!possible?

Page générée en 0.130 secondes