VBNETACCESS 3.1 PETIT CORRECTIF ;-) EXEMPLE TRES SIMPLE POUR GESTION DE BASE ACCESS VIA VB.NET

Commentaire de Urgo le 03/05/2004 19:00:12

Les mises à jour ne fonctionnent toujours pas ???

Commentaire de tom88 le 03/05/2004 21:24:28

pa mal pour un debutant :  jatten avec impatience la 3.5

Commentaire de moustachu le 04/05/2004 12:25:46

les mises à jours de sources je suppose. Tu postes une nouvelle source à chaque nouvelle version plutôt que de mettre à jour l'ancienne.

++
moustachu

Commentaire de Urgo le 04/05/2004 19:14:14

Ok :) J'ai regardé ta source et je met 9, car y'a un peu d'anglais dans la fin, et c'est pas trop expliqué, mais c'est déjà très bien.

Continu ainsi ;)

Commentaire de tom88 le 07/05/2004 19:13:18

salut

youhou !!!!!
ouè  !!!!
c est... c est la fete ???
et cette putin de porte elle va s ouvrir toute seule ????
mais c est pas la question genevievre !!!
c est sur qu au lieu d envoyer des fusés ds la lunne !!!
allez au plaisir

startom88

Commentaire de oedipe78 le 18/05/2004 15:43:51

salut,
hum ton programme que tu as fait a été beaucoup inspiré de cette source :
http://www.vbfrance.com/code.aspx?ID=16808
je disais juste ca car j'ai retrouvé les meme commentaires!!! mais sinon en gros ton programme est pas mal et m'a permis de comprendre beaucoup de chose sur la datagrid!!!
Juste une tite critique pour un amélioration futur, c'est au niveau de la recherche ca marche bofff :o(( defois il déconne et ce qui manque c est que quand le mot recherché est plusieurs fois qu'il puisse aller au suivant et non rester sur le premier qu'il trouve!!!
Mais continue comme ca sinon :o)
@+
Oedipe78

Commentaire de swiss_cheese10 le 22/05/2004 15:10:22

salut tout le monde...
J'ai une question concernant ton programme car il me génère une erreur lorsque je fais l'instruction:

Adapter.Update(DtSet, table)

l'erreur c'est : Une exception non gérée du type 'System.Data.OleDb.OleDbException' s'est produite dans system.data.dll

Si vous pouviez m'aider a résoudre ca, ca serait sympa paske je galère...
Merci d'avance !

Commentaire de 187bundy le 24/05/2004 08:45:33

En tous les cas, quand tu as une erreur comme ça, elle ne viens pas vraiment de cette ligne, elle vient d'avant :

- Soit la varialbe 'table' est mal déclarée ou ne correspond pas à la table déclarée pour l'adapter (voir déclarations public).

- Soit le problème vient de la connection : base introuvable, nom de base incorrect, taille des champs inssuffisants ...

Voila, dis moi si tu trouves ;-)

++
187

Commentaire de 187bundy le 25/05/2004 08:02:23

Tu peux me l'envoyer sans pb si tu veux que je jette un oeil :
187bundy@netcourrier.com
Même si c'est tout con comme erreur, c'est chiant et ça va t'empêcher d'avancer, alors si je peux t'aider ...

++
187

Commentaire de gui4242 le 28/12/2004 15:38:51

BRAVO !!!!!!!!!!!!!!!!!!!!!!

Commentaire de penchu le 02/05/2005 11:19:25

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