Sujet Précédent Sujet Suivant

Aide

Résolu/Fermé
saidmansour Messages postés 51 Date d'inscription vendredi 1 juin 2007 Statut Membre Dernière intervention 13 octobre 2012 - 15 mai 2012 à 17:14
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 17 mai 2012 à 02:11
Set MaConn = New ADODB.Connection
MaConn.Provider = "Microsoft.Jet.OLEDB.4.0;"
MaConn.Open "C:\personnel\GCP.mdb"
Set rsttable = New ADODB.Recordset
rsttable.Open "cariére", MaConn, , , adCmdTable
Open "C:\personnel\EXPORT.txt" For Output As #1
While Not rsttable.EOF
Print #1, "0000000008" & Right("0000000000" + Trim(rsttable!matricule), 10) & Left(rsttable!Nom + Space(40), 40) & Left(rsttable!Prenom + Space(40), 40) & Format$(rsttable!datenaissance, "ddMMyyyy") & rsttable!sexe & Format$(rsttable!DateDebut, "ddMMyyyy") & Format$(rsttable!DateFin, "ddMMyyyy") & Right("00" + Trim(rsttable!idq), 2) & Right("00" + Trim(rsttable!idpos), 2) & Right("0000" + Trim(rsttable!idg), 4) & Right("0000" + Trim(rsttable!idf), 4) & Right("00" + Trim(rsttable!idts), 2) ; ""
rsttable.MoveNext
Wend
Close #1
rsttable.Close
*************************************************************************************
c'est le syntaxe normale
je veux que si j'incrimente le table cariére et je trouve deux matricules agaux
ce champ:
y = Format$(rsttable!DateDebut, "ddMMyyyy") & Format$(rsttable!DateFin, "ddMMyyyy") & Right("00" + Trim(rsttable!idq), 2) & Right("00" + Trim(rsttable!idpos), 2) & Right("0000" + Trim(rsttable!idg), 4) & Right("0000" + Trim(rsttable!idf), 4) & Right("00" + Trim(rsttable!idts), 2)
s'ajoute au premier ligne c'est à dire par exemple:
voici le contenu de fichier export

00000000080000000033flen foulen 03011979M310820093108200903030033025602
00000000080000000033flen foulen 03011979M310820093108200903030033025602
00000000081236547895alen alen 13072010M310820093108200903030033025602
je veux que ça sera comme ça:
00000000080000000033flen foulen 03011979M310820093108200903030033025602310820093108200903030033025602
00000000081236547895alen alen 13072010M310820093108200903030033025602
****************************************************

c'esr trés urgent

10 réponses

Réponse 1 / 10
LIBRE_MAX Messages postés 1402 Date d'inscription mardi 1 mai 2007 Statut Membre Dernière intervention 7 octobre 2012 6
15 mai 2012 à 17:26
Reviens dans une semaine..


[] Ce qui va sans dire. va mieux en le disant.
3
Réponse 2 / 10
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
15 mai 2012 à 19:16
Bonjour,

Lis attentivement et appliques les 2 premiers points de ma signature.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site
3
Réponse 3 / 10
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
16 mai 2012 à 00:08
Ménage fait.
MP envoyé.

Merci de poster le message en respectant les préceptes des 2 premiers point de ma signature ici et ne pas créer de nouveaux sujet tant que le sujet ne répond pas au critère demandés.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site
3
Réponse 4 / 10
saidmansour Messages postés 51 Date d'inscription vendredi 1 juin 2007 Statut Membre Dernière intervention 13 octobre 2012
15 mai 2012 à 22:38
pour libre max
????!!!!!
coco
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 10
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
15 mai 2012 à 22:51
Bonjour,
pour libre max
????!!!!!
coco

C'est un délai normal dans ces cas-là :
c'esr trés urgent

Cela va te donner le temps de lire le règlement.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
0
Réponse 6 / 10
saidmansour Messages postés 51 Date d'inscription vendredi 1 juin 2007 Statut Membre Dernière intervention 13 octobre 2012
15 mai 2012 à 23:04
Set MaConn = New ADODB.Connection
MaConn.Provider = "Microsoft.Jet.OLEDB.4.0;"
MaConn.Open "C:\personnel\GCP.mdb"
Set rsttable = New ADODB.Recordset
rsttable.Open "cariére", MaConn, , , adCmdTable
Open "C:\personnel\EXPORT.txt" For Output As #1
While Not rsttable.EOF
Print #1, "0000000008" & Right("0000000000" + Trim(rsttable!matricule), 10) & Left(rsttable!Nom + Space(40), 40) & Left(rsttable!Prenom + Space(40), 40) & Format$(rsttable!datenaissance, "ddMMyyyy") & rsttable!sexe & Format$(rsttable!DateDebut, "ddMMyyyy") & Format$(rsttable!DateFin, "ddMMyyyy") & Right("00" + Trim(rsttable!idq), 2) & Right("00" + Trim(rsttable!idpos), 2) & Right("0000" + Trim(rsttable!idg), 4) & Right("0000" + Trim(rsttable!idf), 4) & Right("00" + Trim(rsttable!idts), 2) ; ""
rsttable.MoveNext
Wend
Close #1
rsttable.Close
*************************************************************************************
c'est le syntaxe normale
je veux que si j'incrimente le table cariére et je trouve deux matricules agaux
ce champ:
y = Format$(rsttable!DateDebut, "ddMMyyyy") & Format$(rsttable!DateFin, "ddMMyyyy") & Right("00" + Trim(rsttable!idq), 2) & Right("00" + Trim(rsttable!idpos), 2) & Right("0000" + Trim(rsttable!idg), 4) & Right("0000" + Trim(rsttable!idf), 4) & Right("00" + Trim(rsttable!idts), 2)
s'ajoute au premier ligne c'est à dire par exemple:
voici le contenu de fichier export

00000000080000000033flen foulen 03011979M310820093108200903030033025602
00000000080000000033flen foulen 03011979M310820093108200903030033025602
00000000081236547895alen alen 13072010M310820093108200903030033025602
je veux que ça sera comme ça:
00000000080000000033flen foulen 03011979M310820093108200903030033025602310820093108200903030033025602
00000000081236547895alen alen 13072010M310820093108200903030033025602
****************************************************

c'esr trés urgent
0
Réponse 7 / 10
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
15 mai 2012 à 23:08
Bonjour,

Visiblement, tu n'as pas lu mon premier message :
Lis attentivement et appliques les 2 premiers points de ma signature.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site
0
Réponse 8 / 10
LIBRE_MAX Messages postés 1402 Date d'inscription mardi 1 mai 2007 Statut Membre Dernière intervention 7 octobre 2012 6
16 mai 2012 à 00:05
17:14
22:51
22:53
22:55
23:15
+
MP

Si ça ce n' est pas du harcellement ..!

@UCFOUTU,
Voilà un ex ex æqun, pour ne pas dire un ex æquon






[] Ce qui va sans dire. va mieux en le disant.
0
Réponse 9 / 10
saidmansour Messages postés 51 Date d'inscription vendredi 1 juin 2007 Statut Membre Dernière intervention 13 octobre 2012
16 mai 2012 à 00:21
Set MaConn = New ADODB.Connection
MaConn.Provider = "Microsoft.Jet.OLEDB.4.0;"
MaConn.Open "C:\personnel\GCP.mdb"
Set rsttable = New ADODB.Recordset
rsttable.Open "cariére", MaConn, , , adCmdTable
Open "C:\personnel\EXPORT.txt" For Output As #1
While Not rsttable.EOF
Print #1, "0000000008" & Right("0000000000" + Trim(rsttable!matricule), 10) & Left(rsttable!Nom + Space(40), 40) & Left(rsttable!Prenom + Space(40), 40) & Format$(rsttable!datenaissance, "ddMMyyyy") & rsttable!sexe & Format$(rsttable!DateDebut, "ddMMyyyy") & Format$(rsttable!DateFin, "ddMMyyyy") & Right("00" + Trim(rsttable!idq), 2) & Right("00" + Trim(rsttable!idpos), 2) & Right("0000" + Trim(rsttable!idg), 4) & Right("0000" + Trim(rsttable!idf), 4) & Right("00" + Trim(rsttable!idts), 2) ; ""
rsttable.MoveNext
Wend
Close #1
rsttable.Close
*************************************************************************************
c'est le syntaxe normale
je veux que si j'incrimente le table cariére et je trouve deux matricules agaux
ce champ:
y = Format$(rsttable!DateDebut, "ddMMyyyy") & Format$(rsttable!DateFin, "ddMMyyyy") & Right("00" + Trim(rsttable!idq), 2) & Right("00" + Trim(rsttable!idpos), 2) & Right("0000" + Trim(rsttable!idg), 4) & Right("0000" + Trim(rsttable!idf), 4) & Right("00" + Trim(rsttable!idts), 2)
s'ajoute au premier ligne c'est à dire par exemple:
voici le contenu de fichier export

00000000080000000033flen foulen 03011979M310820093108200903030033025602
00000000080000000033flen foulen 03011979M310820093108200903030033025602
00000000081236547895alen alen 13072010M310820093108200903030033025602
je veux que ça sera comme ça:
00000000080000000033flen foulen 03011979M310820093108200903030033025602310820093108200903030033025602
00000000081236547895alen alen 13072010M310820093108200903030033025602
**************************************************** 

                
                

    
        

    
            
        0
        
            
                
    

            



    

        
        
    


        

                

                    

            

        

        
        
        

                        Réponse 10 / 10
        


        
                        
                    

                

        

                    

        
            
    
    

                
            

    


            

                

        
                    NHenry
    
        
                    Messages postés
            
                
            15113
                
                            Date d'inscription
            vendredi 14 mars 2003
                            Statut
            Modérateur
                            Dernière intervention
            22 avril 2024
            

            
                    159
    
    
                    

                    17 mai 2012 à 02:11
                        

    


    

                        

                    Sujet remis à neuf avec une question mise en forme :

http://www.vbfrance.com/forum/sujet-INCREMENTER-TABLE-ACCES-EXPORTATION-VERS-FICHIER-TEXT_1591993.aspx
                
                

    
        

    
            
        0
        
            
                
    

            



    

        
        
    


        

                

                    

            

        

    




    

    



    






                        

                    

                


                

    


    







    

        Rejoignez-nous