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

Question

使用 sqldmo 中的对象 好像是 obackup

Answer 1

'以下是我以前写的一个从文本文件倒入的代码Dim oBulkcopy As SQLDMO.BulkCopy
Set oBulkcopy = New SQLDMO.BulkCopyoBulkcopy.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.TableSet oTable = ModDMO.goSQLServer.Databases(DatabaseName).Tables(Tablename)oTable.ImportData oBulkcopySet oBulkcopy = Nothing
Set oTable = NothingMsgBox "文件" & filename & "成功输入到表" & DatabaseName & ":" & Tablename & "!", vbInformationExit Suberr_handle:
  MsgBox "Err:" & err.Description