引用Microsoft DTSPackage Object,用LoadFromSQLServer调用包。
需要发布那些文件?
需要发布那些文件?
解决方案 »
- 问个超简单的问题,高手来抢分!~
- 各位大哥来帮忙看看一个添加的问题
- FTP下载过程中的问题
- Rav报表的数据显示问题,请出招!
- 在线焦急等待,但是它是一个很简单的问题,如何判断Edit匡里输入的数字?也就是说判断数字的函数是什么?
- 界面中有一些dbedit控件,我移到第10条记录,将dbedit10控件text设一值为100,然后我只想把这第二条记录的dbedit10对应的字段10ed值改为1
- 添加字段
- //////////***********一个通常问题!************////////////
- 高分!!怎样让进程不被杀死?比如有些进程在windows2000下就不能被任务管理器关闭,提示拒绝访问,如何实现?
- 应该挺简单的,可惜我还是不会
- 高亮显示的问题
- 在三层架构中,若是客户端数目达到1500个应该使用哪种方案?
oConnection,oPackage,oStep,oTask,oCustomTask:olevariant;
begin
try
oPackage:=Createoleobject('DTS.Package');
oPackage.FailOnError := True;
oConnection:=oPackage.Connections.New('SQLOLEDB');
oStep :=oPackage.Steps.New;
oTask := oPackage.Tasks.New('DTSBulkInsertTask'); oCustomTask := oTask.CustomTask; oConnection.Catalog := 'test';
oConnection.DataSource := 'wgf';
oConnection.UserID := 'sa_01';
oConnection.Password := '';
oConnection.ID := 1;
oConnection.Reusable := True;
oConnection.ConnectImmediate := False;
oConnection.UseTrustedConnection := False; oPackage.Connections.Add(oConnection);
oConnection:=NUll; oStep.Name := 'GenericPkgStep';
oStep.ExecuteInMainThread := True;
oCustomTask.Name := 'GenericPkgTask';
oCustomTask.DataFile := 'E:\book1.txt';
oCustomTask.ConnectionID := 1 ;
oCustomTask.DestinationTableName := 'wgf..Book1';
oCustomTask.FieldTerminator :=#9;
oCustomTask.RowTerminator := #13#10; oStep.TaskName := oCustomTask.Name; oPackage.Steps.Add(oStep);
oPackage.Tasks.Add(oTask);
oPackage.FailOnError := True; oPackage.Execute;
finally
oConnection:=null;
oCustomTask:=null;
oTask:=null;
oStep:=null;
oPackage:=null;
end;