CONNEXION PAR MOT DE PASSE GRÂCE À UNE BDD
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
-
7 janv. 2007 à 20:02
philou_90 Messages postés 3 Date d'inscription lundi 18 décembre 2006 Statut Membre Dernière intervention 17 janvier 2013 - 21 mai 2008 à 15:58
philou_90 Messages postés 3 Date d'inscription lundi 18 décembre 2006 Statut Membre Dernière intervention 17 janvier 2013 - 21 mai 2008 à 15:58
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/40966-connexion-par-mot-de-passe-grace-a-une-bdd
https://codes-sources.commentcamarche.net/source/40966-connexion-par-mot-de-passe-grace-a-une-bdd
21 mai 2008 à 15:58
voici un exemple que j'ai pris dans une de mes appli;
On Error GoTo gèreerreur
If erreur = 3021 Then
gèreerreur:
MsgBox "Aucun fichier a été créer, Aucun ordinateur n'est retiré du l'inventaire", vbInformation, "Information"
Exit Sub
Else
Num = FreeFile
chemin = "C:\Documents and Settings" & user & "\Bureau\Recylcage.doc"
Open chemin For Output As #Num
rs_selection.MoveLast
val = rs_selection.Fields(0)
rs_selection.MoveFirst
For i = 1 To val
Write #Num, rs_selection.Fields(0) & " " & rs_selection(2) & " " & rs_selection(3) & " " & rs_selection.Fields(4) & " " & rs_selection.Fields(5)
rs_selection.MoveNext
Next
Close Num
End If
Ensuite tu devrais essayer d'utiliser un module où tu déclares tes fonction en public plus simple et pour acces de donnée ADO ?
6 août 2007 à 12:25
6 août 2007 à 11:35
26 juil. 2007 à 18:39
Parfait ton programme, je viens de l'intégrer pour faire des tests sur VB6.
Merci Francis
19 juil. 2007 à 21:22
8 févr. 2007 à 12:44
Pas de problème, je vais te mettre mon programme que j'ai fais à l'école... il y aura surement quelques bugs car il manquera quelques OCX pour le menu etc. Mais au moins tu as le code dans les feuilles et ce code est un rien commenté donc tu ne devrais pas avoir de problème pour comprendre si pas VBFrance est la pour ça et les commentaires aussi lol
Je mettrais mon code aujourd'hui ou bien dans le courant du week-end car ici je bosse sur un gestion des droits d'accès à un prog.
A bientôt J-il
7 févr. 2007 à 17:29
Je viens de lire ton message et cela m'intéresse diablement. J'essaye de créer un code VB qui permet de récupérer des infos sur une base Access ou d'en enregistrer. Je débute pour ce type de code et ton code pour carnet d'adresse pourrait m'aider.
Peux-tu mettre le code sur le site ?
Merci.
28 janv. 2007 à 12:22
Donc si j'ai bien compris ta question, tu as une bdd en .mbd et tu veux pouvoir effectuer des recherche dans cette base de données et qu'au final il te sorte ce que tu as recherché dans une DbGrid ou dans des boîtes de textes ou bien dans une ListBox ?
Si oui je pense avoir un programme pour toi ou bien un code source avec explication... il a était fait lors de l'élaboration d'un petit carnet d'adresse.
Seulement je n'ai aucune idée comme te faire partager le code ! Soit en créant un autre topic ou bien en te filant le code ici...
Dis -moi quoi
Bon dimanche à tous
J-il
27 janv. 2007 à 22:40
Je suis aussi un debutant mais moi j'arrive pas a truvé le "FINFIRST" .
A noté ke j'utilise comme type de connexion "CONNECTION" et "RECORDSET" ,
est ce que vous avez une solution pour cette lacune .
voici ce que je veut faire
chercher des information qui existent dans ma BDD selon des critaire et les affichés dans des zones de textes ou dans un DATAGRID
17 janv. 2007 à 14:10
J-il
17 janv. 2007 à 08:06
dans ton zip il n'y a rien à décompresser je n'arrive pas
8 janv. 2007 à 10:35
Ok pur winrar, pas essayé comme la terminaison du fichier est Zip!!lol
A+
Exploreur
8 janv. 2007 à 09:42
A+ J-il
7 janv. 2007 à 23:26
Bravo si tu y arrives avec le zip !!!
Moi il me dit : Fichier zip non valide, si ce fichier appartient à une sauvegarde insérez le dernier disque!!
A+
Exploreur
7 janv. 2007 à 21:47
J-il
7 janv. 2007 à 21:43
Guillaume
7 janv. 2007 à 21:40
1: Nomme tes contrôles (lbl pour label, cmd pour bouton, lst pour liste déroulante, ...)
2: Utilise App.Path pour le chemin de la database
3: Les couleurs, les mettre à la même que celle de fond du form (lbl1.backcolor=me.backcolor)
Voilà !
7 janv. 2007 à 21:36
7 janv. 2007 à 20:02
Il y a un problème avec le zip...Impossible de décompresser avec winzip.
A+
Exploreur