Ouverture application avec controle base de données et fermeture

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 184 fois - Téléchargée 30 fois

Commenter

Contenu du snippet

Ce petit prg vous permet d'ouvrir une application et de la faire tourner pendant un temps pioché dans une base de données, puis de mettre la base à 0 et de fermer l'application. Vous pouvez la faire tourner sur le temps que vous désirez

Source / Exemple : 


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_CLOSE = &H10
Private Counter As Integer

Private Sub Image1_keydown(KeyCode As Integer, Shift As Integer)
End Sub

Private Sub Label1_KeyPress(KeyAscii As Integer)
Label1.Caption = Counter

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Dim conn As New ADODB.Connection

Dim cmd As New ADODB.Command

Dim rs As New ADODB.Recordset

conn.Open "DSN=MaBase;uid=MaBase;pwd=MaBase;database=MaBase"

Set cmd.ActiveConnection = conn

cmd.CommandText = "SELECT * from MaTable"

rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
Counter = MonChamp
If Counter > 0 Then
    Timer1.Enabled = True
    Dim stAppName As String
    stAppName = "C:\Program Files\MonPrg.exe"
    Call Shell(stAppName, 1)
    Timer1.Interval = 60000
End If
rs.Close
cmd.CommandText = "UPDATE MaTable  SET MonChamp = 0"
rs.Open cmd
End Sub

Private Sub Timer1_Timer()
    Counter = Counter - 1
    If Counter = 0 Then
        Beep
        Counter = Empty
        Timer1.Enabled = False
        Dim hWnd As Long
        hWnd = FindWindow(vbNullString, "Mon Prg") ' Comme il est noté quand CTRL-ALT-SUP
        Call PostMessage(hWnd, WM_CLOSE, 0, 0)
   End If
End Sub

A voir également

Ajouter un commentaire

Commentaires

Signaler
devsurf
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008
 -
peucher, ca fait de la peine..

Effectivement, t'a raison. Ca peut servir a certains et pa grand chose à d'autres - mais finallement, c'est trés util de les partager car on aprend tous les jours.
Dans ton code tu utilse pas mal des fonctions : ado,shell ect... Leur utilisation est bien faite et bien structurée.
Ca perlmet de comprendre comment les utiliser , mais fonctionellement pour moi perso ca n'a pas d'interet .
Avec un autre titre je l'aurai jugé peut etre autrement
:)
Signaler
peucher
Messages postés
7
Date d'inscription
vendredi 13 juin 2003
Statut
Membre
Dernière intervention
7 juin 2005
 -
Je remarque que mettre à la disposition des internautes un petit programme qui peut être utile à certains ne sert pas à grand chose, car on ne récolte que des remarques non appropriées de personnes n'ayant même pas compris le fonctionnement de la source. A se demander s'ils savent seulement ce que veut dire "base de données" ?
Signaler
jsiAngers
Messages postés
7
Date d'inscription
dimanche 21 septembre 2003
Statut
Membre
Dernière intervention
28 avril 2009
 -
Bonjour,

il aurait été possible de faire la même chose en utilisant shellexecute et donc d'associer automatiquement l'appli à l'extension d'un fichier ce qui aurait été plus élégant...
Signaler
devsurf
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008
 -
Oups, j'ai mal lu la description du code. Ne tiens pas compte de mon précédent commentaire. Je comprens un peu mieu la ...
:)
Signaler
devsurf
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008
 -
J'ai pas trop compris la relation entre MonPrg.exe et l'accès à la base.
Monprog.exe peut lui aussi àccèder à la base par sa propre connexion ado - donc vois pas vraiment l'interet.
: )
S'inscrire maintenant

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.

Du même auteur (peucher)