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.