[VBA/SQL] Passer des instructions SQL (et pkunzip) en VBA
Passer des instructions SQL (et pkunzip) en VBA [VBA/SQL] - VB/VBA/VBS - Programmation
MarshPosté le 07-04-2006 à 09:58:28
Bonjour,
sous VBA j'aimerais passer une instructuction pkunzip et des instructions SQL. Comment faire ?
En gros j'ai une boucle comme ça :
Dim fle As Scripting.File
' Créer une instance du FSO Set fso = New Scripting.FileSystemObject
' Créer une instance d'un répertoire/dossier Set fld = fso.GetFolder("J:\semaine01" )
' Dézippe et charge dans la base tous les fichiers du répertoire For Each fle In fld.Files PKUNZIP fichier_zippé fichier_dezippé LOAD DATA INFILE fichier_dezippé INTO TABLE semaine (chaine)
Next
et je voudrais savoir comment écrire en bon VBA ce qui est en gras
Ainsi que l'instruction CREATE TABLE pour créer la table SQL de mes semaines.
Marsh Posté le 07-04-2006 à 09:58:28
Bonjour,
sous VBA j'aimerais passer une instructuction pkunzip et des instructions SQL. Comment faire ?
En gros j'ai une boucle comme ça :
Dim fle As Scripting.File
' Créer une instance du FSO
Set fso = New Scripting.FileSystemObject
' Créer une instance d'un répertoire/dossier
Set fld = fso.GetFolder("J:\semaine01" )
' Dézippe et charge dans la base tous les fichiers du répertoire
For Each fle In fld.Files
PKUNZIP fichier_zippé fichier_dezippé
LOAD DATA INFILE fichier_dezippé INTO TABLE semaine (chaine)
Next
et je voudrais savoir comment écrire en bon VBA ce qui est en gras
Ainsi que l'instruction CREATE TABLE pour créer la table SQL de mes semaines.
merci
a+