通过bcp快速导入、导出sqlserver数据

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uBCP, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    btnExport: TButton;
    btnImport: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnExportClick(Sender: TObject);
    procedure btnImportClick(Sender: TObject);
  private
    Bcp: IBcp;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnExportClick(Sender: TObject);
begin
  Bcp.DataFormat := fmtChar;
  Bcp.Database := '财贸双全V11';

  if Bcp.DataOut('T_GBL_VoucherType', 'd:\Test.txt') then
    Memo1.Lines.Add('导出成功，导出行数为' + IntToStr(Bcp.RowsProcessed) + '行.');
 
  Memo1.Lines.Add(Bcp.ErrorMsg);
end;

procedure TForm1.btnImportClick(Sender: TObject);
begin
  Bcp.DataFormat := fmtChar;
  Bcp.Database := 'master';
  if Bcp.DataIn('财贸双全V11.dbo.T_GBL_VoucherType', 'd:\Test.txt') then
    Memo1.Lines.Add('导入成功，导入行数为' + IntToStr(Bcp.RowsProcessed) + '行.');
 
  Memo1.Lines.Add(Bcp.ErrorMsg);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bcp := TiBcp.Create;
  with Bcp do
  begin
    DataFormat := fmtChar;  //默认为fmtNative
    BatchSize := 2000;      //默认为1000
    Server := '192.168.0.141';
    User := 'sa';
    Password := '111111';
    Database := '财贸双全V11';   //默认为master
    if Connect then
    begin
      ShowMessage('ok');
    end
    else
    begin
      ShowMessage('连接数据库失败');
    end;
  end;
end;

end.