Question

求高手用delphi7写一个.txt导入到SQL数据库

.txt文件里面的内容为
卡号,密码,面值,人民币,0
卡号,密码,面值,人民币,0
卡号,密码,面值,人民币,0

数据库表名为D_dianka 字段分别对应上面的D_kahao,D_mima,D_mianzhi,D_rmb,D_sf

ADOConnection和ADOQuery我已经连接完成
写好后请发到QQ904935780@qq.com 谢谢

Answer 1

Unit Unit1;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;

Type
TForm1 = Class(TForm)
Button1: TButton;
ADOConnection1: TADOConnection;
Procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
End;

Var
Form1: TForm1;

Implementation

{$R *.dfm}

//SQL应该有文本数据的导入和导出，那是最好的方法，你可以先看看。

//自定义数据文件的导入：
//成功的关键在于文本的数据格式是否和数据库字段匹配

Procedure TForm1.Button1Click(Sender: TObject);
Var
alist, blist: TStringList;
Begin
alist := TStringList.Create;
blist := TStringList.Create;

Try
//自定义格式的数据文件，加载前要判断文件是否存在
alist.LoadFromFile('D:\DB.txt');
If alist.Count = 0 Then
Begin
Exit;
End;

With TADOQuery.Create(Nil) Do
Begin
Try
Close;
SQL.Clear;
Connection := ADOConnection1;
LockType := ltBatchOptimistic; //ADO批量提交方法比较快
SQL.Add('Select A, B, C, D, E FROM AAA Where (1=0)');
Open;
While alist.Count > 0 Do
Begin
//文本中是以","分割的 so CommaText ，
//如果文本中有空格或者分割符号不是","，需修改读取方法。

blist.CommaText := alist[0];
alist.Delete(0);

//这里要判断 字段数量是否统一 如：
//if blist.Count <> 5 Then
//Begin
//
//End;

Append;
FieldByName('A').AsString := blist[0];
FieldByName('B').AsString := blist[1];
FieldByName('C').AsString := blist[2];
FieldByName('D').AsString := blist[3];
FieldByName('E').AsString := blist[4];
Post;

End;
UpdateBatch(); //提交
Application.MessageBox('OK', 'MSG', 64);
Close;
Finally
Free;
End;
End;

Finally
blist.Clear;
blist.Free;
alist.Clear;
alist.Free;
End;
End;

End.

Answer 2

这个你可以去看看关于bcp的运用。