Script sql depuis un vbs

Version imprimable

06/06/2017, 17h48
PeterMac62

Script sql depuis un vbs

Bonjour à tous,

je m'occupe d'un utilitaire qui me permet de faire des requêtes sur deux bases de données mysql.

Pour faire une mise à jour de celle-ci, je suis passé par des vbs pour ajouter des champs en fin de chaque ligne de fichiers de plus de 350 000 lignes ( en mode batch,cela prenait 15 minutes pour un fichier, en vbs 15 secondes lol ).

Aujourd'hui, mon utilitaire lance différent script mysql, mais il y a un affichage dans une fenêtre ms-dos de plus de 300 000 lignes ce qui génèrent une lenteur, car dans query browser, je fais un script en 1 minute, face à 10 minutes au moins pour ce même batch.

J'ai cherché en vain comment lancer un script.sql depuis un vbs mais je n'ai pas réussi....Et surtout ensuite, comment être sure que mon script est finit avant de faire autre chose.

D'avance, merci à tous.

Bonjour,
Personnellement, j'exécute les requêtes SQL directement depuis mon VBS.
Ceci dit, j'ai un pgm qui exécute un .bat qui lance une procédure (exe). Tu peux peut-être t'en inspirer.
Cordialement.

Code:

1
2
3
4
5
6
7
8
9
10
                '--- Mise à jour de FMFI par lancement de l'exécution d'un pgm.bat
                        If TRAIT Then
                                Dim objShell
                                Set objShell = CreateObject("Wscript.Shell")
                                objShell.run "Maj_FMFI.bat", 0, True
                                If Err.Number<>0 Then
                                        Call Fnc_Err("TRAIT","Exec MAJ FMFI Impossible",Err.Number)
                                        ERREUR = True
                                        TRAIT = False
                                Else

Le .bat : Il exécute un pg en java avec passage de paramètres.

Citation:

@echo off
pushd \\dematfac2\Itesoft\fmsrv\slfi\database
SET FMFI_BATCH_EXEC=SILENCE
wscript.exe UpdateBusinessData.js //E:Jscript //B
popd

09/06/2017, 12h02
PeterMac62

Bonjour, je tenais à te remercier de la réponse....mais je ne peux lancer des .Exe facilement.Ils doivent être déclarés à l'avance, et ce, pour plusieurs centaines de clients, donc difficiles à mettre en place.

je pensais que mon gentil vbs serait faire nativement un launch monscript.sql..... .... l'espoir faire vivre.

Si vous avez une idée.......
10/06/2017, 18h58
tsuji

Pour avoir des idées un peu plus claires, quel genre de sql s'agit-il ?

Voici mon script, dont j'ai juste changé quelques noms ....... pour le déposer ici

Code:

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
DROP TABLE IF EXISTS `tmp`;
 
CREATE TABLE `tmp` (
   `valeur1` varchar(255) NOT NULL,
   `valeur2` varchar(255) NOT NULL,
   `valeur3` varchar(255) NOT NULL,
   `valeur4` varchar(45) NOT NULL,
   `valeur5` varchar(255) NOT NULL,
   `valeur7` varchar(255) NOT NULL,
 
   PRIMARY KEY (`valeur1`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;
 
LOAD DATA INFILE 'C:\\TEMP\\HOTLINE2\\valeur17_valeur113_ANSI.txt' INTO TABLE tmp FIELDS TERMINATED BY ';';
 
insert into tablet_info (tblt_cd,tblt_nm,tblt_barcode,tblt_type,use_atm_yn,tblt_barcode_list)
select valeur5,valeur2,valeur5,valeur3,'N',valeur1 from tmp where valeur5 not in (select tblt_cd from tablet_info);
 
delete from tmp where valeur5 in( select tblt_cd from tablet_info);
 
update tablet_info,tmp set tblt_nm=valeur2,tblt_type=valeur3,tblt_barcode_list=valeur1 where tblt_cd=valeur5;
 
DROP TABLE `tmp`;
 
update tablet_info set tblt_barcode=tblt_cd;

Il me semble que tous les sql's contient les mots clés de commande au côté serveur - c'est plutôt un bon signe, on peut les réécrire dans le script vbs explicitement dans une approche à premier lieu comme ça.

Code:

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
46
47
dim asql, ssql, sdb, suser, spwd, shost, sconn, oconn, ocmd, i
asql=array("drop table if exists tmp;" _
    , _
    "create table tmp (" & vbcrlf & vbtab & _
    "valeur1 varchar(255) NOT NULL," & vbcrlf & vbtab & _
    "valeur2 varchar(255) NOT NULL," & vbcrlf & vbtab & _
    "valeur3 varchar(255) NOT NULL," & vbcrlf & vbtab & _
    "valeur4 varchar(45) NOT NULL," & vbcrlf & vbtab & _
    "valeur5 varchar(255) NOT NULL," & vbcrlf & vbtab & _
    "valeur7 varchar(255) NOT NULL," & vbcrlf & vbtab & _
    "PRIMARY KEY (valeur1)" & vbcrlf & _
    ") ENGINE=InnoDB DEFAULT CHARSET=utf8;" _
    , _
    "LOAD DATA INFILE 'C:/TEMP/HOTLINE2/valeur17_valeur113_ANSI.txt' INTO TABLE tmp FIELDS TERMINATED BY ';';" _
    , _
    "insert into tablet_info (tblt_cd,tblt_nm,tblt_barcode,tblt_type,use_atm_yn,tblt_barcode_list)" & vbcrlf & vbtab & _
    "select valeur5,valeur2,valeur5,valeur3,'N',valeur1 from tmp where valeur5 not in (select tblt_cd from tablet_info);" _
    , _
    "delete from tmp where valeur5 in (select tblt_cd from tablet_info);" _
    , _
    "update tablet_info,tmp set tblt_nm=valeur2,tblt_type=valeur3,tblt_barcode_list=valeur1 where tblt_cd=valeur5;" _
    , _
    "DROP TABLE tmp;" _
    , _
    "update tablet_info set tblt_barcode=tblt_cd;" _
)
 
'sconn connection-string pour mysql, je ne donne qu'une version possible et il vous faut s'adapter
sdb="databasename"
suser="username"
spwd="xxxxxx"
shost="localhost"    'ou autre
sconn="Driver={MySQL ODBC 5.3 Unicode Driver};Server=" & shost & ";Database=" & sdb & ";UID=" & suser & ";PWD=" & spwd & ";"
set oconn=createobject("adodb.connection")
oconn.open sconn
set ocmd=createobject("adodb.command")
set ocmd.activeconnection=oconn
ocmd.commandtype=1	'adCmdText=1
 
for i=0 to ubound(asql)
    ssql=asql(i)
    ocmd.commandtext=ssql
    ocmd.execute
next
 
set ocmd=nothing
set oconn=nothing

Si on pouvait employer là la commande dit "source", ce serait parfait parce qu'on peut profiter le fichier des sql's directement; mais, malheureusement, source est une commande côté client et c'est pour ça la construction des commandes sql en forme de tableau semble laborieuse ! et on n'y peut rien ou très peu sinon d'en faire des trucs même beaucoup plus laborieux.

13/06/2017, 14h12
PeterMac62

Merci beaucoup de ta proposition.

Il y a un problème, il va être trop compliqué de faire la configuration ODBC à chaque fois sur les poste distants, et apparemment, sans cela, pas de driver mysql, et le script vbs est pas content......

En tout cas, merci ; je considère le sujet résolu mais difficile à mettre en place.