Delphi技巧：导入Txt文档到数据库 (把TxT导入数据库Delphi)
在日常工作中，经常需要将Txt文档中的数据导入到数据库中进行数据分析和处理。而利用Delphi开发的程序，可以轻松实现该功能。
一、打开Txt文档
需要在程序界面上添加一个按钮，用于打开Txt文档。在OnClick事件中添加以下代码：
var
FileName: string;
MyFile: TextFile;
FileLine: string;
begin
if OpenDialog1.Execute then
begin
FileName := OpenDialog1.FileName;
AssignFile(MyFile, FileName);
Reset(MyFile);
while not Eof(MyFile) do
begin
ReadLn(MyFile, FileLine);
//处理每一行数据
end;
CloseFile(MyFile);
end;
end;
以上代码中，OpenDialog1为打开文件对话框，FileName为选中的文件名，MyFile为Txt文件，FileLine为Txt中的每一行数据。
二、连接数据库
在程序中需要连接数据库，以便将Txt中的数据导入数据库。在项目中加入DataModule并添加ADOConnection、ADOQuery组件，然后在按钮的OnClick事件中添加以下代码：
with DataModule1.ADOConnection1 do
begin
LoginPrompt := False;
Provider := ‘sqloledb’;
ConnectionString := ‘Data Source=’ + ServerName +
‘;Initial Catalog=’ + DataBaseName +
‘;User ID=’ + LoginUser + ‘;Password=’ + LoginPass;
Connected := True;
end;
以上代码中，ServerName为数据库服务器的名称，DataBaseName为数据库名称，LoginUser为用户登录数据库的用户名，LoginPass为该用户的密码。读者需要根据自己的数据库信息进行修改。
三、创建表以及导入数据
在数据库中创建需要存储数据的表，将Txt文档中的数据导入数据库中。在按钮的OnClick事件中添加以下代码：
with DataModule1.ADOQuery1 do
begin
SQL.Clear;
SQL.Add(‘CREATE TABLE ImportTable ( ‘);
SQL.Add(‘CustomerID VARCHAR(10),’);
SQL.Add(‘CustomerName VARCHAR(50),’);
SQL.Add(‘Address VARCHAR(100)’);
SQL.Add(‘)’);
ExecSQL;
end;
以上代码中，创建了一个名为ImportTable的表，该表包含三个字段：CustomerID、CustomerName、Address。创建表的SQL语句可以根据自己的需求进行修改。
接下来，需要将Txt中的每一行数据插入到创建的表中。在按钮的OnClick事件中添加以下代码：
with DataModule1.ADOQuery1 do
begin
SQL.Clear;
SQL.Add(‘INSERT INTO ImportTable (CustomerID, CustomerName, Address) VALUES (:CustomerID, :CustomerName, :Address)’);
Params.CreateParam(ftString, ‘CustomerID’, ptInput);
Params.CreateParam(ftString, ‘CustomerName’, ptInput);
Params.CreateParam(ftString, ‘Address’, ptInput);
Prepared := True;
while not Eof(MyFile) do
begin
ReadLn(MyFile, FileLine);
Params[0].AsString := Copy(FileLine, 1, 10);
Params[1].AsString := Copy(FileLine, 11, 50);
Params[2].AsString := Copy(FileLine, 61, 100);
ExecSQL;
end;
UnPrepare;
end;
以上代码中，先设置了SQL语句，并创建了三个参数用于存储导入数据。然后，将Txt文档中的每一行数据读取出来，依次填充参数并执行SQL语句将数据存入ImportTable表中。
四、
通过以上几步操作，Delphi程序就可以将Txt文档中的数据导入到数据库中进行数据处理。读者可以根据自己的需求修改代码，以实现更多功能。
