Import des fichiers text dans BD Sql Serveur 2k à partir de VB

Question

Bonjour!
Je voudrais savoir comment faire(coder) pour importer des fichiers text dans une base de données SQL SERVER 2K à partir de VB?
Merci!

Don B · Answer

Alors celle la...c'est de la bombe !

En fait il faut telecommander un lot DTS
(Data transform Services ?)

* Il faut referencer le DTSPackage Object Library
(Dtspkg.dll) et peut etre d'autres aussi...

* fileName = "C:\data\bd\access\XXX\DTS_RAD.dts"

est un lot DTS préenregistré
(c'est le chemin sur ton SERVEUR)

si ça galére, mailez moi.

Don B
The AllMighty

-------------------

'Import fichier Csv dans K_Temp par lot DTS
 
Dim objPackage      As DTS.Package2
Dim objStep         As DTS.Step
Dim objTask         As DTS.Task
Dim objExecPkg      As DTS.ExecutePackageTask

'On Error GoTo PackageError
Set objPackage = New DTS.Package
Set mobjPkgEvents = objPackage
objPackage.FailOnError = True

'Create the step and task. Specify the package to be run, and link the step to the task.
Set objStep = objPackage.Steps.New
Set objTask = objPackage.Tasks.New("dtsExecutePackageTask")
Set objExecPkg = objTask.CustomTask
With objExecPkg
    .PackagePassword = ""
    .FileName = "C:\data\bd\access\XXX\DTS_RAD.dts"
    .Name = "ExecPkgTask"
End With
With objStep
    .TaskName = objExecPkg.Name
    .Name = "ExecPkgStep"
    .ExecuteInMainThread = True
End With
objPackage.Steps.Add objStep
objPackage.Tasks.Add objTask

'Run the package and release references.
objPackage.Execute

Set objExecPkg = Nothing
Set objTask = Nothing
Set objStep = Nothing
Set mobjPkgEvents = Nothing

cs_mike64 · Answer

Salut,
Je viens de voir ce messa ge que tu as déposé.
K'ai un pb à ce niveau.
Je dois exécuté à partir de VB un lot DTS (SQL Server 2000).
Comment fais tu?
Comment référencer le DTSPackage etc...
Merci d'avance
Mike.

 :question)

Import des fichiers text dans BD Sql Serveur 2k à partir de VB

2 réponses

Discussions similaires