Ouverture application avec controle base de données et fermeture
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 280 fois - Téléchargée 30 fois
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
- Ouverture application avec controle base de données et fermeture
- Application java avec base de données - Guide
- Visual Basic / VB.NET : Pti bts ig - application forme arrondie - base de données access - Co - Guide
- Organisation d'une application java avec base de données ✓ - Forum - Java
- Application stagiaire sans base de donnée ✓ - Forum - VB.NET
- Application java avec base de données - Forum - Java
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
:)
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...
:)
Monprog.exe peut lui aussi àccèder à la base par sa propre connexion ado - donc vois pas vraiment l'interet.
: )
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.