高手求教！在VB中如何调用MS-SQL中的数据导入导出工具DTS？！！！！！！！

[cjw1881]

在VB中如何用代码调用MS-SQL中的数据导入导出工具DTS？

[ysxian]

使用 sqldmo 中的对象 好像是 obackup

[ysxian]

'以下是我以前写的一个从文本文件倒入的代码

Dim oBulkcopy As SQLDMO.BulkCopy
Set oBulkcopy = New SQLDMO.BulkCopy

oBulkcopy.DataFilePath = filename
'oBulkcopy.DataFileType = SQLDMODataFile_TabDelimitedChar
'oBulkcopy.ColumnDelimiter = "--列分隔符--"
'oBulkcopy.ErrorFilePath = Pathname & "表(" & Tablename + ")备份操作错误日志" & Format(Now, "yyyy年MM月DD日HH点MM分") & "）.Err"
'oBulkcopy.LogFilePath = Pathname & "表(" & Tablename + ")备份操作错误日志" & Format(Now, "yyyy年MM月DD日HH点MM分") & "）.Log"
oBulkcopy.MaximumErrorsBeforeAbort = 10
'oBulkcopy.LastRow = 10


Dim oTable As SQLDMO.Table
Set oTable = New SQLDMO.Table

Set oTable = ModDMO.goSQLServer.Databases(DatabaseName).Tables(Tablename)

oTable.ImportData oBulkcopy

Set oBulkcopy = Nothing
Set oTable = Nothing

MsgBox "文件" & filename & "成功输入到表" & DatabaseName & ":" & Tablename & "!", vbInformation

Exit Sub

err_handle:
MsgBox "Err:" & err.Description

[zyf23]

ting