Modules dts import / export / erreurs
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"
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
- Modules dts import / export / erreurs
- Automatiser import excel vers access - Forum Visual Basic
- Export csv php ✓ - Forum PHP
- Import excel vers access ✓ - Forum Visual Basic 6
- Importer automatiquement cellule excel vers champs de table access - Forum Visual Basic
- C# import dll ✓ - Forum C# / .NET
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.