Bonjour,
je souhaite exporter les données d'une table sqlserver (en local) avec un script vbs. J'ai récupéré un script mais j'ai toujours la meme erreur (object required à la ligne exportdata).
Voila le code (pourtant tres simple), si vous avez une idée?? :
Dim oServer
Dim oDatabase
Dim oBCP
Dim nRows
dim table
dim oTable
dim sResults
on error resume next
if WScript.Arguments(0) = "" then
WScript.Echo "Vous n'avez pas spécifié de base de données à laquelle se connecter."
WScript.Quit
end if
Set oServer = CreateObject("SQLDMO.SQLServer" )
oServer.LoginSecure = True
Set oBCP = CreateObject("SQLDMO.BulkCopy" )
oServer.EnableBcp = True
oServer.Connect "." ', "sa"
Set oDatabase = oServer.Databases(Wscript.Arguments(0))
msgbox oDatabase.SpaceAvailableInMB
For Each oDatabase In oServer.Databases
For Each oTable In oDatabase.Tables
if oTable.systemobject = false then
sResults = sResults & oTable.Name & Chr(13) & Chr(10)
end if
Next
msgbox sResults
Next
oBCP.ColumnDelimiter = vbComma
oBCP.DataFileType = SQLDMODataFile_CommaDelimitedChar
oBCP.ImportRowsPerBatch = 1000
oBCP.MaximumErrorsBeforeAbort = 1
BCP.RowDelimiter = vbCrLf
oBCP.ServerBCPDataFileType = SQLDMOBCPDataFile_Char
oBCP.UseExistingconnection = True
if wscript.Arguments(1) = "" then
for each table in oDatabase.tables
' pas une table systeme
if table.systemobject = false then
oBCP.DataFilePath = table.name & ".csv"
nRows = table.ExportData(oBCP)
wscript.Echo nRows & " lignes exportées à partir de " & table.name
end if
next
else
oBCP.DataFilePath = wscript.Arguments(1) & ".csv"
nRows = oDatabase.Tables(wscript.arguments(1)).ExportData(oBCP)
wscript.Echo nRows & " lignes exportées à partir de " & wscript.arguments(1)
end if
merci pour votre aide 
