如何将*.txt的内容输入到数据库中 (100分)

请问用query可以查询*.txt文件吗？如何将*.txt的内容输入到数据库中？
文本文件是这样的：要求每列为一个字段。
张三 男 20
李四 男 18
: : :
王五 女 19
谢谢！

刚回答过这个问题，就给你拷个来了，呵呵，试试。
用StringList可以解决你的问题：
private
IQFile:TStringList;
var
FrmIQ: TFrmIQ;
filepath:string;
implementation

uses selfile;

{$R *.DFM}

procedure TFrmIQ.FormCreate(Sender: TObject);
begin
try
IQFile:=TStringList.Create;
Except
IQFile.Free;
end;
BtnInData.Enabled:=false;
end;

procedure TFrmIQ.BtnInDataClick(Sender: TObject);//导入文本数据
var
i:Longint;
Content:String;
begin
With IQFile,Q Do
Begin
IQFile.LoadFromFile(filepath);//文本文件所在目录
Try
DB.StartTransaction;
DisableControls;
application.MessageBox(pchar('要导入的记录为：　'+inttostr(count)+' 条'),'提示信息',mb_ok or mb_iconinformation);
For i:=0 To Count -1 Do
Begin
Content:=strings;
........//sql语句
execsql;
End;
DB.Commit;
Close;
EnableControls;
application.MessageBox('导入文件成功！','提示信息',mb_ok or mb_iconinformation);
btnInData.Enabled:=false;
Except
DB.Rollback;
Application.MessageBox('导入数据错误，请退出再试！','提示信息',MB_OK or mb_iconwarning);
End;
End;
end;

procedure TFrmIQ.FormDestroy(Sender: TObject);
begin
Try
IQFile.Free;
Except
end;
end;
end.

先stream1:=TFileStream.create(your.txt);
table.edit
try
stream2:=TBlobStream.Create(BlobField,bmWrite);
stream2.CopyFrom(stream1);
finally
stream2.free;
stream1.free;
end;

var
strint:TStringlist;
begin
if Opendialog1.Execute then
begin
StrInt:=TStringList.Create;
StrInt.LoadFromFile(Opendialog1.FileName);
Memo1.Text:=StrInt.Text;
ADODataSet1.Open;
ADODataset1.Edit;
ADODataSet1.FIeldByname('asdf').asstring:=Memo1.text;
ADODataset1.post;
StrInt.Free;
showmessage('Ok');
end;
end;

procedure TForm1.N7Click(Sender: TObject);
var
filestr:Textfile;
recoStr:string;
begin
OpenDialog1.Filter:='ASCII Files(*.TXT)|*.txt';
try
if OpenDialog1.Execute then
begin
Screen.Cursor:=crHourGlass;
assignfile(filestr,opendialog1.filename);
Reset(filestr);
Readln(filestr,recostr);//读出一行字符串。
RegulateStr(recostr,'|',true);
while not eof(filestr) do
begin
Query1.Insert;
Readln(filestr,recostr);
RegulateStr(recostr,'|',false);//循环取出所有子符串。
Query1.Next;
//读下一行。
end;
end;
except
ShowMessage('产生错误。可能是该文件已被其他程序打开,或系统错误。');
closefile(filestr);
END;
Screen.Cursor:=crdefault;
Application.MessageBox('操作在没有警告的情况下正常结束！','完成',mb_ok+mb_iconinformation);
closefile(filestr);
end;
//前提：要求先建立一个与TXT文件记录字段相同的数据库。

请问用query可以查询*.txt文件吗？
如何将*.txt的内容输入到数据库中？
第二个问题
MyList:TStringList;
MyList:=TStringList.Create;
MyList.LoadFromFile('文件名');
数据表.FieldByName('字段名').AsString:=MyList.Text;
MyList.Free;
导入数据库以后，使用SQL语句可以实现查询

关注

用流存成Blob好些。
查询根据什么？不会用所有文件内容吧！ hehe

建议，用ADO方式吧，真是太简单了。

touyd
您好，您能给出例子吗？谢谢！

ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:/TEMP/;Extended Properties=text';
ADOQuery1.SQL.text:='select * from db.txt';
ADOQuery1.Open;

有几点注意：
1、默认情况下,文本文件应以","作为分隔符，且第一行为列名。如果有其他格式，可以参照 OLE Jet 的帮助文件配置相关设置文件。
2、ADO的连接字符串要注意Data Source 为文本文件所在目录，不是文本文件本身，且必须设Extended Properties=text；
3、在SQL语句里把文本文件作为表名即可,用ADOTable也可以。
4、OLE JET 还能驱动其他数据库如EXCEL之类的，很好用，更多请参照相关帮助文件。

[^]

[]

Up: puyd

只要你在导出数据到文本文件时按自定义一定格式进行存储，导入的时候同样可以按整个
格式读取对应的数据就可以了。。。

用batchmove 控件很方便

touyd
我正要找这些资料
你在哪里找到的
我看过delphi 的帮助好象没有

touyd
ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:/TEMP/;Extended Properties=text';
好象不完整吧
我试过 提示 找不到可安装的isam
哪个成功测试的 说说吧

在我们日常工作中，常会碰到这样一个难题：一大堆
收集好的纯文本格式，比较规整的资料怎样才能将它们分
离，转到自己已经建好的数据库中进行管理呢？
　　例如，有一段人事档案资料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(Var S:String;Index,Count:Integer);
//从一个字符串中去除子串
　　利用Delphi提供的已有函数和过程基础上编制自己的
三个函数，实现了纯文本格式资料转入数据库功能。只要
Delphi支持的数据库都可以支持。
　　archive．txt中每行数据为一个字符串，字符串中每
个被分割的数据为一个字段，分割每个字段的字符为分割
符，这里是空格，也可以是，、；、＃等符号。具体思想
是：先将字符串进行调整，然后把串中每个字符同分割符
比较，将不是分割符的字符追加到MyStr串中，最后得到
一个字段的内容。通过一个循环，就可以将一个字符串分
成几个字段。

　　Function Regulate(aString,Sepchar:string):string
//去掉多余的分割符，规范字符串
　　Function GetSubStr(var sString:string;SepChar:String):String;
//得到字符串中一个子串
　　 //因要改变参数aString的值，所以将它用var定义.
　　Function GetSubStrNum(aString,SepChar:String):Integer;
//计算一个字符串要被分割成几个字段.
　　参数：aString是所需分割的一个字符串，
　　SepChar是分割符。
　　Function RegulateStr(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 Numdo
　　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;
　　Function GetSubStr(var aString: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;
　　Function Tforml．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．分别加入以下程序：
　　ConstSpace=''
　　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,Space);
　for j:=1 to NumToken(MyLIne,Space) do
　 begin
　　Append;
　　fileds[j-1].aString:=GetSubSrt(MyLine,Space))；
　post;
　　end;
　　end;
　　end;
　　end;
　　然后就可以进行编译，运行了。此程序在win95／Delphi2．0
下调试通过。

呵呵
不用这样长吧
有没有人看到我上面的问题啊
to meijun :
你能不能通过PUYD的方法啊！我想知怎样做啊