Bonjour a tous developpeur(ze)s,
Je suis actuellement débutant de mon état en Vbscript , pour tout vous dire c'est même mon premier script !!
Bien évidemment j'apprends pas à pas comment ça fonctionne, et je viens de tomber sur une erreur qui a priori est minime mais je suis incapable de la résoudre et d'ailleurs je ne vois pas en quoi c'est une erreur...
Si quelqu'un peut m'aider voici le script
====>
PS : Le problème est que j'ai une fenêtre qui s'affiche à l'exe avec marqué : " fin d'instruction inattendue" , qui concerne la ligne où j'ai déclarer le booléen , si quelqu'un peut m'help...
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 Private Sub access_url () Dim check as Boolean Dim db as Database Public sql as String Dim enregistrements as Recordset Set db = OpenDatabase(App.Path & "\ma base.mdb") Set enregistrements = db.OpenRecordset(sql, dbOpenSnapshot) sql="Create trigger A-url After insert ON settings_current For each Row Begin Alter table settings_current (ADD access_url int(10) unsigned); commit; end; " End Private Sub access_url_changeable() Set db = OpenDatabase(App.Path & "\ma base.mdb") Set enregistrements = db.OpenRecordset(sql, dbOpenSnapshot) sql="Create trigger A-url After insert ON settings_current For each Row Begin Alter table settings_current (ADD access_url_changeable int(10) unsigned); commit; end; " End
Merci d'avance a tout le monde![]()
Partager