怎样用将一个文本文件导入到Access的数据表中。（用SQL语句实现） (100分)

比如：有一个文本Hanzi.txt
现在想用一条SQL语句实现导入Access数据库表中。
比如文本中有1000行那么导到数据库中也有1000行记录。
不能用Access的向导导入。

With AdoTable1 do
begin
Append;
(FieldByName('TextFile') as TBlobField).LoadFromFile('c:/aaa/a1.txt');
post;
end;

上面看错了。这是答案。

sl:=TStringList.Create;
try
sl.LoadFromFile(Hanzi.txt');
adotable1.open;
for i:=0 to sl.Count-1 do
begin
adotable1.append;
adotable1.fieldbyname(aaa):=sl.strings;
adotable1.post;
end;
finally
adotable1.close;
sl.Free;
end;

楼上的做法也不一定正确，关键是要看你怎么定义这个*.txt文件，根据拟定一的
每个字段值之间的间隔进行读取例如一下是一个以#9间隔每个字段之间的值的读取方法
var
aF: TextFile;
Buffer: String;
FieldValue: String;
I: Integer;
begin
AssignFile(aF,'*.txt');
Reset(aF);
while not Eof do
begin
Readln(aF, Buffer);
AQuery1.Append;
for I :=0 to AQuery1.FieldCount -1 do
begin
FieldValue :=Copy(Buffer,1, Pos(#9, Buffer));
Delete(Buffer,1, Pos(#9, Buffer));
AQuery1.Fields.Value :=FieldValue;
end;
AQuery1.Edit;
AQuery1.Post;
end;
CloseFile(F);


end;

用Delphi实现将纯文本资料转入数据库
在我们日常工作中，常会碰到这样一个难题：一大堆
收集好的纯文本格式，比较规整的资料怎样才能将它们分
离，转到自己已经建好的数据库中进行管理呢？
例如，有一段人事档案资料archive．txt，内容如下：
小许男21工程师
小吴女23助理工程师
小蔡男22助理工程师
小牟女22工程师
要将它转入数据库archive．dbf中，archive．dbf结构如下：
姓名，性别，年龄，职称
怎么办呢？现在通过使用delphi编程，很好地解决了
这个难题。Delphi提供了许多功能强大，丰富的字符处理
函数和过程，常用的有：
（1）functionLength（S：String）：Integer
／／返回串的长度


（2）functionCopy（S：String；Index，Count：Integer）：String


／／给出一个字符串中串的拷贝


（3）functionPos（Substr：String；S：String）；Integer


／／查找子串在字符串中的位置


（4）ProcedureDelete（VarS：String；Index，Count：Inte?ger）；


／／从一个字符串中去除子串


利用Delphi提供的已有函数和过程基础上编制自己的三个函数，实现了纯文本格式资料转入数据库功能。只要Delphi支持的数据库都可以支持。


archive．txt中每行数据为一个字符串，字符串中每个被分割的数据为一个字段，分割每个字段的字符为分割符，这里是空格，也可以是，、；、＃等符号。具体思想是：先将字符串进行调整，然后把串中每个字符同分割符比较，将不是分割符的字符追加到MyStr串中，最后得到一个字段的内容。通过一个循环，就可以将一个字符串分成几个字段。


FunctionRegulate（aString，Sepchar：string）：string


／／去掉多余的分割符，规范字符串


FunctionGetSubStr（varsString：string；SepChar：String）：String；


／／得到字符串中一个子串


／／因要改变参数aString的值，所以将它用var定义


FunctionGetSubStrNum（aString，SepChar：String）：Integer；


／／计算一个字符串要被分割成几个字段。


参数：aString是所需分割的一个字符串，


SepChar是分割符。


FunctionRegulateStr（aString：String；Sepchar：String）：String；


var


i，Num：Integer；


Flag：Boolean；


MyStr，TempStr：String；


begin


Flag：=False；／／进行标志，去除多余的分割符


Num：=Length（aString）；／／计算aString串的长度


for i：=1 to Num do


begin


TempStr：=Copy（aString，i，1）；／／取aString串中的一字符


if TempStrΙΛ SepChar then


begin


MyStr：=MyStr＋TempDtr；


Flag：=True；


end


else


if（Flag=True）then


begin


Mystr：=Mystr＋TempSrt；


Flag：=False；


end；


end；


if MyStr［Length（MyStr）］ΙΛSepChar then


MyStr：=MyStr＋SepChar；


RegulateSrt：=MyStr；


end；


FunctionGetSubStr（varaString：String，SepChar：Strign）：String；


var


Mysrt：String；


StrLen：Integer；


SepCharPso：Integer；


begin


StrLen：=Length（aString）；


SepCharPos：=Pos（SepChar，aString）；

／／计算分割符在子串中的位置


MyStr：=Copy（aString，1，SepCharPos－1）；

／／将分割符前所有字符放到mystr串中


Delete（aString，1，SepCharPos）；

／／除去分割符和分割符前的子串


GetSubStr：ΚMyStr；／／返回一个字段


end；


FunctionTforml．GetSubStrNum（aString：String；SepChar：String）：Integer；


var


i：Integer；


StrLen：Integer；


Num：Integer；


begin


StrLen：=Length（aString）；


Num：=0；


for i：=1，to StrLen do


if Copy（aString，i，1）=SepChar then


Num：=Num＋1；


GetSubSrtNum：=Num；


end：


有了上面三个函数，现在介绍一下具体的应用：


1．首先建立一个窗体Forml，加入一个RichEditl（或Menol），一个按Buttonl和一个Tablel，设置Tablel的属性：


Tablell．DataBase=′c：ιArchivs′


Tablell．TableName=′Archive．dbf′


2．分别加入以下程序：


Const Space=′′


ProcedureTForml．FormCreate（Sender：Tobject）；


begin


RichRditl．Lines．LoadFromFile（′Archive．txt′）；


end；


ProcedureTForml．Button1Click（Sender：Tobject）；


var


i，j：Integer；


MyLine：String；


begin


with Tablel do


begin


Open；


for i：=0 to RichEditl．Lines．Count－1 do


begin


MyLine：=RegulateStr（Richeditl．Lines［i］，Space）；


for j：=1 to NumToken（MyLIne，Space）do


begin


Append；


fileds［j－1］．aString：ΚGetSubSrt（MyLine，Space））；


post；


end；


end；


end；


end；