Discussion :

[black-metale]

Bonjour les amis.
j'utilise un logiciel de supervision industriel "Vijeo Look" dont il donne la possibilité de créer des script VB.
mon objectif est de faire la liaison entre le "Vijeo Look" et l'Access à travers le VB.
j'ai commencé à faire quelque test, avec le code ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Text2_Click()
 
Dim obj_Connection, obj_Command, str_ConnectionString, str_SQL
 
'définir la chaîne de connexion
str_ConnectionString = "DSN=MA_BD;UID=;PWD=;"
 
'définir la requête
str_SQL = "INSERT INTO TABLE1 (COL1, col2) VALUES ('CHAINE11', 'CHAINE21');"
 
'Création et paramétrage de la connexion à la BD
Set obj_Connection = CreateObject("ADODB.Connection")
obj_Connection.ConnectionString = str_ConnectionString
 
'Ouvrir la connexion
obj_Connection.Open
 
'Création et paramétrage de la commande
Set obj_Command = CreateObject("ADODB.Command")
obj_Command.ActiveConnection = obj_Connection
obj_Command.CommandText = str_SQL
 
obj_Command.Execute 'Exécuter la commande
 
Set obj_Command = Nothing
obj_Connection.Close 'Fermer la connexion
Set obj_Connection = Nothing
 
End Sub

j'ai testé la connexion, c'est opérationnel, et je vois les modification dans la base de donnée.

Alors, mon but est de faire fonctionner ce code mais d'une manière cyclique (chaque 10min par exemple) au lieu de déclencher l’évènement par Bouton !? est ce qu'il y a cette possibilité ?? j'ai vraiment besoin de cette fonctionnalité.

je vous remercie.

[loufab]

Bonjour,

Dans les formulaires il y a une propriété Timer. Fait F1 dessus pour avoir le détail de son fonctionnement.

Cordialement,

[black-metale]

s'il vous plait, de quel formulaire vous parler ??
j'ai cherché dans le HELP mais j'ai rien trouver !
pour l'information, je travail sur le "Vijeo Look" et non pas le VB comme IDE, sauf que le "Vijeo Look" accepte le VBScript !
quelqu'un peut il m'aider ?

[black-metale]

juste pour vous donner une idée sur mon problème !

je tente à établir une liaison "Vijeo Look" / Access afin d'enregistrer certaines valeur dans une base de donnée via VBA.

je cherche pour que l'enregistrement dans la base de donnée soit d'une manière cyclique (chaque 10 min), donc pour bien éclairer ma question, comment utiliser des Timers dans VBA !

j'ai trouver quelque chose concernant Excel/VBA fonction (OnTime, ....) mais je ne sais pas toujours comment y procéder ??

merci d’avance.

[robyseb]

Bonjour ! Si u lis l'anglais va voir ce lien qui explique en détail avec image comment insérer un timer dans ton programme "Vijeo look"

Le Lien ICI

Dans ce document Word rend toi à la page 44 et jusqu'à la page 49 environ ils t'explque comment insérer un timer et dans VB tu y insère ton code.

[natsu1993]

Voilà j'ai le même probleme, je veux faire la liaison Vijeo Look avec la base de donnée Microsoft Access, et ceux avec un programme ecrit en language VB !
Pouvez-vous m'aider svp !!

[Robert1957]

Bonjour black-metale,
Je ne suis pas certain que ça fonctionne avec "Vijeo Look", mais c'est peut-être une piste pour toi. http://access.developpez.com/telecha...ans-formulaire

Bonne journée

[ffdream62]

Si tu veux utiliser Access pour déclencher ton code :
- créé un formulaire
- dans les propriétés événementielles, mets ton code dans "on timer" (ou "sur minuterie")
- toujours dans les propriétés événementielles, choisi ton intervalle de minuterie (en millisecondes) dans le champ correspondant.

Pour qu'il tourne en continue, laisse la base Access ouverte avec ce formulaire à l'écran.

Si tu souhaites faire l'inverse... désolé pour ce post inutile !