AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 12 08:48:50
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

11 commentaire(s) de penchu sur des sources sur tout CodeS-SourceS

Le : 02/05/2005 11:19:25
Source : VBNETACCESS 3.1 PETIT CORRECTIF ;-) EXEMPLE TRES SIMPLE POUR GESTION DE BASE ACCESS VIA VB.NET
salut salut,

je trouve ta source géniale.  Je m'en suis inspiré pour faire un prog de gestion pour moi.
Mais maintenant, j'ai un petit problème.
Dans ton menu imprimer tu peux imprimer tout ce qu'il y a dans ta datagrid.

Ce que je voudrais faire, en utilisant le principe de ta fonction mise_en_page, c'est écrire les données dans des fichiers textes séparés.

En gros, voici la structure de ma db.
machine,fournisseur,reference_fournisseur,stock.

je voudrais créer un fichier texte pour chaque fournisseur.
dans chaque fichier il y aura les pièces de ce fournisseur.
Mais voila, je ne sais pas trop comment faire parce que pour l'instant ca ne fonctionne pas. Il me met toutes les pièces dans le meme fichier.

voici mon code actuel :

  Sub commande_auto(ByVal fournisseur As String)
        Dim ligne, colonne As Single
        Dim date_fichier As Date
        date_fichier = System.DateTime.Now.ToShortDateString()
        Dim nom_fichier As String
        nom_fichier = nom_fichier + date_fichier
        nom_fichier = nom_fichier.Replace("/", "_")

        If Not (Directory.Exists("c:\" & fournisseur)) Then
            Directory.CreateDirectory("c:\" & fournisseur)
        End If
        Dim sw_fournisseur As New StreamWriter("c:\" & fournisseur & "\" & nom_fichier & ".txt", True)

        sw_fournisseur.WriteLine("je mets ici un en-tête pour chaque fichier)

        ligne = 0
        While (ligne >= 0)
            On Error GoTo fin
            Dim test As String
            test = repertoire.Item(ligne, colonne)
            For colonne = 1 To DtSet.Tables(0).Columns.Count - 1
                Select Case colonne
                    Case 1
                        sw_fournisseur.WriteLine("Machine : " & repertoire.Item(ligne, colonne))
                    Case 2
                        If ((fournisseur = "martin") Or (fournisseur = "Martin") Or (fournisseur = "MARTIN")) Then
                            sw_fournisseur.WriteLine("OM : " & repertoire.Item(ligne, colonne))
                        End If
                    Case 4
                        sw_fournisseur.WriteLine("Référence : " & repertoire.Item(ligne, colonne))
                    Case 14
                        sw_fournisseur.WriteLine("Quantité : " & repertoire.Item(ligne, colonne) + 4)
                End Select
            Next colonne
            colonne = 0
            ligne += 1
            sw_fournisseur.WriteLine(ControlChars.Tab & "______________________" & vbCrLf)
        End While
fin:
        sw_fournisseur.Close()
    End Sub



voila, et j'appelle ma fonction commande_auto comme toi tu appelles ta fonction mise-en-page.

Sais-tu m'éclairer sur ce sujet?

Merci

Le : 16/03/2005 09:53:50
Source : NET SENDER 1.1
j'ai fait ça comme j'ai pu, maintenant j'ai du le mettre en application assez vite mais je n'ai pas le temps en ce moment de continuer l'application et de l'améliorer au maximum.

j'ai été élevé à la dure, donc je code à la dure.... ;-)

Le : 16/03/2005 09:44:27
Source : LANCEUR DE PROGRAMMES
ouais, si j'ai le temps je mettrais tout ça à jour...

comme pour la version vb6, ce n'est qu'un exemple que j'utilisais chez moi, donc maintenant à toi de mettre tes applic dedans.

J'avais pensé faire un truc pour laisser l'utilisateur insérer ses propres raccourcis, mais j'ai fait ça en triple vitesse....

Le : 16/03/2005 09:41:40
Source : UN APPLIC POUR LANCER DES PROGRAMMES DIVERS
dans l'aide j'avais précisé que ce n'était qu'un exemple : il faut donc mettre tes applications à toi....

merci pour la note ;-)

Le : 03/03/2005 09:47:34
Source : NET SENDER 1.1
combien tu mettrais comme note en attendant??? (juste pour voir comment on juge cette source, en sachant que je vais encore la mettre à jour)

Le : 03/03/2005 09:46:18
Source : NET SENDER 1.1
Si je commence à comprendre, mais pour le standardoutput..... Je vais aller faire un tour sur msdn et aussi pour le system.directoryservices...

Mais je garantis pas que ce soit pour tout de suite car je suis en train de faire mes stages en entreprises, alors j'ai pas mal de boulot

Merci de tes conseils...

Le : 03/03/2005 09:38:53
Source : NET SENDER 1.1
ben c'est mon premier programme avec lequel j'utilise les processus, je ne sais donc pas trop comment m'y prendre...  :-(

Le : 03/03/2005 09:29:39
Source : NET SENDER 1.1
ben tant qu'on y est, tu ne sais pas comment faire pour récupérer dans une variable le message qu'on reçoit quand le message a été envoyé? (le message a bien été envoyé  à ....)

Parce qu'en fait, au départ je pensais rajouter dans mes arguments ">c:\result.txt" et alors lire le fichier pour voir son contenu.
Mais quand je fais :
send.StartInfo.Arguments = " send "+this.textBox1.Text+" "+this.textBox2.Text +" >c:\\result.txt"; il prend ça comme le message à envoyer.
Je ne sais pas comment on peut faire pour rajouter un 2è argument à la commande. Si t'as une idée, elle est la bienvenue

Le : 03/03/2005 09:21:48
Source : NET SENDER 1.1
sorry, j'ai pas pensé à les remettre dans le zip.
En fait, netxp, c'est un petit outil bien sympathique qui permet justement de mettre des infobulles versions Windows XP, des listes de tâches comme on trouve dans le poste de travail, enfin, bref, plein de choses qui font que ça ressemble à une application spéciales windows xp. Je sais c'est un n'importe quoi, mais quand j'ai vu ça, j'ai voulu le tester.

Si tu fais une recherche sur google pour netxp, tu le trouveras tout de suite. Si pas je le mettrais dans la prochaine mise à jour du programme (j'essaie de faire un accusé de réception et de mettre la liste des pc dans la combo dynamiquement)

Le : 08/02/2005 09:50:06
Source : PETITE GESTION DE CONTACT (ACCESS + .NET)
voila, en fait j'ai trouvé le problème :
dans ma base de données, certains de mes champs contenaient des espaces (le titre des colonnes quoi). En fait, quand je remplace l'espace par un "_", ça marche bcp mieux...
Il m'a quand meme fallu 2 jours pour trouver que c'était ça qui posait problème (lol).

voila, donc ceux qui auront cette erreur sauront quoi faire

merci à tresorsdevie et 187bundy pour leur source...


1


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


Console Sony Playstation 3 80GB
Entre 398€ et 425€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto plage de nudistes
Photo a pretty teenage girlPhoto gift of light

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,140 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.