Modules dts import / export / erreurs

Soyez le premier à donner votre avis sur cette source.

Vue 9 571 fois - Téléchargée 993 fois

Description

Modules d'import / export utilisant le DTS de SQL Serveur

Testé avec du SQL Server 7

' = Module mod_DTS_Import =
' [Description] : Module pour l'Import utilisant le Data Transformation Service
' [Fonctions] : - Public Function DTS_DataImport(strDb As String, strTable As String, strSrcFile As String) As String
' : - Private Function DTS_Import(strTable As String, strSrc_File As String, iNbCol As Integer, strTextQualifier As String, strBlob As String) As String
' [Historique] : - SPe - 21.02.2005 - Création - v1.0.0

' === Fonction DTS_DataImport ===
' [Description] : Fonction Interface pour l'Import utilisant le Data Transformation Service
' Recupère le nombre de colonnes et le type de chaque colonne (numerique ou chaine)
' [Entrée] : - strDb : String = nom de la base de donnée
' - strTable : String = nom de la table destination
' - strSrcFile : String = path du fichier source
' [Sortie] : null
' [Retour] : - DTS_DataImport : String = "Succès" ou "Echec : Raison"
' [Utilisation] : strRes = DTS_DataImport("MaBse", "MaTable", "C:\import.csv")
' [Historique] : - SPe - 21.02.2005 - Création - v1.0.0

' = Module mod_DTS_Export =
' [Description] : Module pour l'Export utilisant le Data Transformation Service
' [Fonctions] : - Public Function DTS_DataExport(strDb As String, strTable As String, strQuery As String, strDestFile As String) As String
' : - Private Function DTS_Export(strQuery As String, strDest_File As String, iNbCol As Integer, strTextQualifier As String, strBlob As String) As String
' [Historique] : - SPe - 21.02.2005 - Création - v1.0.0

' === Fonction DTS_DataExport ===
' [Description] : Fonction Interface pour l'Export utilisant le Data Transformation Service
' Recupère le nombre de colonnes et le type de chaque colonne (numerique ou chaine)
' [Entrée] : - strDb : String = nom de la base de donnée
' - strTable : String = nom de la table a exporter
' - strQuery : String = requete pour le filtrage des données
' - strDestFile : String = path du fichier de destination
' [Sortie] : null
' [Retour] : - DTS_DataExport : String = "Succès" ou "Echec : Raison"
' [Utilisation] : strRes = DTS_DataExport("MaBase", "MaTable", "SELECT * FROM MaBase..MaTable", "C:\Export.csv")
' [Historique] : - SPe - 21.02.2005 - Création - v1.0.0

NB : Le serveur est codé en dur dans les fonctions DTS_Import et DTS_Export. De meme elles utilisent le Login windows. Pour passer à un login SQL Server, il faut mettre la ligne

oConnection.UseTrustedConnection = True à oConnection.UseTrustedConnection = False

et decommenter les lignes suivantes, et mettre le bon login qui va bien :

oConnection.UserID = "MonLogin"
oConnection.Password = "MonPassword"

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
6
Date d'inscription
jeudi 30 novembre 2000
Statut
Membre
Dernière intervention
12 novembre 2008

Salut Roserose5000,

Heu .. j'espere que tu as trouvé .. parcequ'honnetement, je ne me souviens pu tres bien : J'ai la memoire qui flanche.

As-tu essayé en mettant le nom d'une source ODBC dans le parametre strDB ? ou un chaine de connexion sinon ?

A+,
ZbooNet
Messages postés
17
Date d'inscription
samedi 11 février 2006
Statut
Membre
Dernière intervention
5 novembre 2008

Je viens de testé ce module, mais il me dit, ce sql serveur n'exite pas
vous dites dans votre message que le serveur est donné en dure mais je ne trouve aucune commande de ce genre
pouvez vous me dire ou?

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.