ONEDAYS
tbbuim1
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
-
18 mars 2005 à 11:03
cs_NISANDSYSTEMS Messages postés 178 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 9 janvier 2010 - 16 févr. 2010 à 10:00
cs_NISANDSYSTEMS Messages postés 178 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 9 janvier 2010 - 16 févr. 2010 à 10:00
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/30178-onedays
https://codes-sources.commentcamarche.net/source/30178-onedays
16 févr. 2010 à 10:00
caballep,
Regarde dans le module Connection, dans la fonction: Connect()
dans la chaine de connexion, le password y figure.
connectionADO.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= Base de Données\Sav.mdb;" & _
"Jet OLEDB:Database Password=exploreur"
Password=exploreur
Voilà.
Bonne journée
@+
15 févr. 2010 à 20:40
je voulais consulter ta BD mais elle est protégé par un code de sécurité.
caballep
8 févr. 2010 à 12:50
Viens de tester ta source, c'est pas dans l'ensemble mais il y a pleins de choses à rectifier.
a) desactive dans la form principal l'option hottracking sur le control ListView1: rien de plus énervant de voir des messages signalant ceci ou cela.
b) ne déclare pas en double ces variables ci dans la form Acceuil:
'Dim connectionADO As New ADODB.Connection ' Connection base de données
'Dim commandeADO As New ADODB.Command ' Commande base de données
'Dim resultatADO As New ADODB.Recordset ' Résultat de la commande
<ils existent déjà dans le module Connection en public.
c) gére les fermetures des variables de la base de donnée.
ex: if not resultatADO is nothing then set resultatADO =nothing'destruction de l'instance en cours
d)pourquoi utiliser des fichiers ini?
Créer un table spécifique pour cela.
e) dans l form Visu_base,fonction=miseàjourlistview1, dim i ,ne sert pas, de plus ne la declare pas en type variant.
d)Dim hMenu As Long
hMenu = GetSystemMenu(hwnd, 0)
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
creer un module type ModForms
ajoute les declarations là:
Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const MF_BYCOMMAND = &H0
Public Const SC_CLOSE = &HF060
supprime les dans le module Connection
créer une fonction unique pour toutes tes feuilles.
public FunctionDisableBtnCloseForm(chwnd as long)as boolean
Dim hMenu As Long
on error resume next
hMenu = GetSystemMenu(chwnd, 0)
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
FunctionDisableBtnCloseForm=true
exit function
if err then
err.clear
FunctionDisableBtnCloseForm=false
exit function
end if
end sub
ensuite tu l'emploi dans chaque form comme ceci
Private Sub Form_Load()
'Appelle de la function qui désactive la croix et ALT+F4
FunctionDisableBtnCloseForm me.hwnd
End Sub
f) et en dernier,
il faut créer une requete pour chaque situation et ensuite fermer ta base de donnée.
ici elle est constamment ouverte ce qui suppose des erreurs sans cesse et des conflits.
pas bien pratique pour faire des mises à jours de tes tables.
Sinon, c'est pas mal
continue.
@+
5 févr. 2010 à 22:35
15 juil. 2008 à 19:12
Dianalam >> Réponse par MP
++
Exploreur
15 juil. 2008 à 11:54
15 avril 2007 à 10:50
Les fichiers .Log, sont des fichiers "erreur" du fait que la programme n'a pas trouver dans le repertoire par defaut :
rey_xpbasic.ocx.
Alors soit tu le charge manuellement, une fois le projet lancer tu vas dans Projet >> Composant >> Parcourir et tu cherches le fichier rey_xpbasic que j'ai fournie avec la source, soit tu le fais via la base de registre, là je ne connais pas la syntaxe, malgré qu'elle fut décrite plusieur fois..
Essaye cela et tiens moi informé.
A+
Exploreur
15 avril 2007 à 09:55
14 avril 2007 à 21:01
Lesquels?
A+
Exploreur
14 avril 2007 à 20:24
14 avril 2007 à 16:56
1 sept. 2006 à 15:37
Soyez sympas en regardant ce code(critiques), et une note serai la bien venue pour une motivation plus haute, de plus cela fait plaisir !!
Merci à tous
A+
Exploreur..
18 juin 2005 à 21:45
Oups.... dans post ci-dessus c'est : "donnez moi..."
Exploreur
18 juin 2005 à 21:41
Je vous remercies pour l'intérêt que vous portez à ma source.
Soyez sympas, donne moi vos appréciations, vos remarque, une note, quelque chose qui puisse m'aider à avancer dans le code, comme la fait Jack.
Merci encore à tous
Exploreur
19 mars 2005 à 22:15
Merci pour ta solution. Je suis en train de voir pour faire un formulaire pré-définit sous VB, et de lancer mon impréssion depuis Vb.
Sur mon formulaire j'aurai des zones de texte en fixe(qui ne changerons pas) et j'insererai mes données de ma base, et je lancerai mon impréssion.
Je profite pour tous vous remerciez de vos aides qui me sont très utiles...D'ailleurs quand j'aurai fini de faire les mise à jours, si vous êtes Ok, je mettrai des remerciments dans ma source avec vos pseudo...Merci encore.
Exploreur
19 mars 2005 à 15:18
19 mars 2005 à 15:15
Merci énormement de ton aide. Je ne trouve pas les mots pour te remercier....Je vais inclure ton code dans mon source, et grâce à toi j'ai appris quelque chose d'autre, merci encore.
Exploreur
19 mars 2005 à 14:27
Désolé, hier je n'avais pas trop le temps.
Voilà comment réajuster automatiquement la largeur de chaque colonne d'un ListView en fonction de son contenu :
Mets ce code dans un module et, après avoir afficher des données dans un ListView, lance la Sub comme ceci :
Call ListViewColumnAdjustment (Me, monListView)
Vala
Public Sub ListViewColumnAdjustment(FormeName As Form, LV As ListView)
' On va régler la largeur des colonnes en fonction du contenu
Dim r As Integer, t As Long, Largeur As Long, Max As Long
' Donne à la forme la même police que le ListView
FormeName.Font = LV.Font
' 1ere colonne (n'est pas une SubItem)
' 1ere valeur : la largeur de l'étiquette
Max = FormeName.TextWidth(LV.ColumnHeaders(1).Text)
For t = 1 To LV.ListItems.Count
Largeur = FormeName.TextWidth(LV.ListItems(t).Text)
If Largeur > Max Then Max = Largeur
Next t
LV.ColumnHeaders(1).Width = Max + 200
For r = 2 To LV.ColumnHeaders.Count
' 1ere valeur : la largeur de l'étiquette
Max = FormeName.TextWidth(LV.ColumnHeaders(r).Text)
' Ensuite, le test de ttes les données
For t = 1 To LV.ListItems.Count
Largeur = FormeName.TextWidth(LV.ListItems(t).SubItems(r - 1))
If Largeur > Max Then Max = Largeur
Next t
LV.ColumnHeaders(r).Width = Max + 200
Next r
End Sub
18 mars 2005 à 23:14
Et puis il faut bannir tes fichiers ini, tout doit se trouver dans ta base. Si tu veux un exemple de BD Client/Prestation fais moi signe, et donne moi un email sur laquel je t'enverrai un échantillon
18 mars 2005 à 19:28
pour la supréssion : Exploreur
pour les différentes supréssion dans les combos : 5333
a+
Exploreur
18 mars 2005 à 19:23
Ok pour le conseil....à l'avenir je ferai une table "Survie" des fiches supprimées.D'ailleurs je ferai cette modife bientôt.Merci encore.
A+
Exploreur
18 mars 2005 à 18:24
Quand tu clique sur supprimer l'enregistrement ne doit pas etre physiquement supprimé mais plutot flaggé par exemple avec un champ date de suppression. Car on doit pouvoir assurer le suivie des fiches supprimé. Il n'apparaitrons pas sur le systeme sauf pour l'administrateur. J'espere que tu vois ce que je veux dire...
Bon c'est un conseil pour eviter tout future litige
@+
18 mars 2005 à 15:01
Je te remerci de ton conseil, et je vais mettre cette modification dans mon source.....Car étant donné que je débute dans VB, je ne comprend pas tout, tout de suite....Tes explication sont claire pour toi, elles sont un peu confusent pour moi...alors je vais essayer de comprendre certaines choses....Faut bien commancer un jour à apprendre de nouvelles choses !
A+
Exploreur
18 mars 2005 à 14:10
Un gadget qui est bien pratique : Dimensionner automatiquement la largeur des colonnes de ton ListView.
Ca évite que l'utilisateur ait besoin d'utiliser la barre de déplacement horizontale pour voir les colonnes suivantes (ça énerve je trouve).
Au moment de l'insertion des données dans ton ListView, mémorise quelle est la donnée la plus large dans chaque colonne.
Par contre, on ne peut pas se suffire de tester le nombre de caractères puisqu'un 'i' prend moins de place qu'un 'm'.
Il faut calculer cette taille en twips
Il suffit utiliser la fonction .TextWidth de certains controles comme les Formes et les PictureBox :
Dim MaxCol1 As Long, MaxCol2 As Long, ...
' Donne à la forme la même police que celle utilisée dans le ListView
Me.Font = lv.Font
' Dans la boucle d'insertion, pour chaque colonne :
' Si la longueur du texte que tu vas mettre dans la colonne est supérieure (en twips)
' à celle mémorisée, on mémorise cette dernière valeur
If Me.TextWidth(DonnéeCol1) > MaxCol1 Then MaxCol1 = Me.TextWidth(DonnéeCol1)
' et faire de même avec chaque colonne
' Quand tu as terminé l'insertion des données, il suffit d'appliquer les largeurs calculées
lv.ColumnHeaders(1).width = MaxCol1 + 200 ' le 200 donne un peu d'espace après la donnée
lv.ColumnHeaders(2).width = MaxCol2 + 200
...
18 mars 2005 à 11:39
J'utilise ADO, ttbbuim1
A+
Exploreur
18 mars 2005 à 11:16
18 mars 2005 à 11:03