Vbnetaccess 3.1 petit correctif ;-) exemple tres simple pour gestion de base access via vb.net

Soyez le premier à donner votre avis sur cette source.

Vue 13 844 fois - Téléchargée 2 675 fois

Description

Voici les nouveautés de la version 3:

1) Nouveau menu (plus simple et moins moche)

2) Fonction 'supprimer un enregistrement'

3) Fonction 'recherche' (avec un nom ou une partie du nom)

4) Fonction 'aperçu avant impression' et 'imprimer'.

Correctif : La fonction 'modifier' fonctionne bien maintenant ;-) Merci à Bamphi pour avoir trouvé la solution !!

Conclusion :


Versions précédentes disponibles :

Vbnetacces 1.0 : source N° 22319
Vbnetacces 2.0 : source N° 22422
Vbnetacces 2.5 : source N° 22481

Merci de me prévenir de tout bug pour que je puisse améliorer tout ça ;-)

Je tiens encore une fois à ajouter ma spéciale dédicasse à tresordevie pour sa source très compète (http://www.vbfrance.com/code.aspx?ID=16808)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2
Date d'inscription
vendredi 10 décembre 2004
Statut
Membre
Dernière intervention
22 septembre 2005

j'ai la méme erreur

"Une exception non gérée du type 'System.Data.OleDb.OleDbException' s'est produite dans system.data.dll"
si vous trouvez une solution
Messages postés
51
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
26 mars 2009

Bon moi j'aime bien les bases de données, les vraies !!! J'ai testé ton prog avec 10000 enr. Et ben là on voit que ya un sacré boulot d'optimisation à faire
Messages postés
167
Date d'inscription
mercredi 11 février 2004
Statut
Membre
Dernière intervention
5 janvier 2006

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
Messages postés
113
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
6 mars 2008

Salut,
je trouve très bien ton code car j'ai appris plein de chose et simplement.
Par contre, peux-tu expliquer le rôle du fichier new.mod et comment tu le créer?
Messages postés
13
Date d'inscription
samedi 7 août 2004
Statut
Membre
Dernière intervention
1 mai 2007

BRAVO !!!!!!!!!!!!!!!!!!!!!!
Afficher les 23 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.