Il s'agit d'une gestion qui permet l'ajout, la modif et la suppression de Clients, Produits ainsi qu'une gestion de commande de ces produits par les clients.Le tout est contenu dans un base acces délocalisé, La sauvegarde du chemin de la base peut se faire dans la Base de registre ou dans un fichier.ini.
Source / Exemple :
Pour faire marcher le programme, il faut renseigner la base en cliquant sur les 3 petits points ... et pointer vers la base fournie avec "gestion.mdb".
Sinon le message base invalide apparaitra.
11 janv. 2011 à 08:37
Premièrement je vous remercie pour le programme il est vraiment sympa =D
Mais j'ai un petit souci j'espère que vous pourriez M'aider , en faite j'ai un projet a présenté pour la fin de l'année et je dois faire la parti gestion des utilisateurs après je dois Créer un petit logiciel en C# pour que je puisse se connecter avec ma Base de donnes.
1: est ce que je dois Créer ma Base de donnes en premier temps ? qu est ce que je dois faire pour la créer ?
2:comment je pourrai communiquer avec ma Base de donnes depuis Visual studio
3: Mon Logiciel ce compose d'un petit formulaire que je dois remplir ( nom , prénom , unité) comment faire qd j'ajoute un utilisateur en entrant son formulaire ca me l'affiche direct sur mon datagrid
N'hésitez pas a me demander si vous avez besoin de informations supplémentaires
J'espère que vous puissiez m'aider parce que vraiment je sais pas d'où commencer
Merci d'avcance
5 mai 2010 à 18:39
Private Sub cmdGo_Click()
Dim strsql
On Error GoTo Alerte ' si la base n'est pas la bonne
openbdr
strsql = "select * from commande, client" ' requete de test pour verifier la base
Set rstResultat = dbsBase.Execute(strsql)
'*******écriture du path dans la base de registre******************************************
Set WH = CreateObject("Wscript.Shell")
WH.RegWrite ("HKEY_CURRENT_USER\Software\GestionCommerciale\path"), path
'********écriture du path dans le fichier path.ini*****************************************
'If fso.FileExists(strName) Then
'fso.DeleteFile strName, True
'End If
'Set strm = fso.CreateTextFile(strName)
'strm.WriteLine (path)
'strm.Close
'******************************************************************************************
Unload Me
frmMain.Show vbModal
Exit Sub
Alerte:
MsgBox "base invalide"
dbsBase.Close
Exit Sub
End Sub
Je pense qu'il n'arrive pas à accéder à la base pour faire sa requête de test.
5 mai 2010 à 18:10
5 mai 2010 à 18:07
5 mai 2010 à 18:03
donne moi sa valeur ?
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.