如何用Delphi把文本文件中的数据写入到数据库中

读取文本文件中的字符串，可以使用 TStrings 及其派生的类（如 TStringList 等）：

procedure TForm1.Button1Click(Sender: TObject)

var txt: TStringList

begin

  //读取文本文件中的数据

  txt := TStringList.Create

  txt.LoadFromFile('e:\test.txt')

  //字段赋值，将数据写入数据库

  ADOTable1.Append

  ADOTable1.FieldByName('字段名').AsString := txt.Text

  ADOTable1.Post

  txt.Free

end

这个啊..这样吧..delphi往数据库写东西有些是用数据库控件的.

你可以在data

contral里面找到这些.

但要连数据库首先要建一个数据库连接.以ado为例.

你放一个控件adoconnection控件,然后配置他的connectionString让他与数据库相连

然后你需要一个

数据集

控件.比如TAdoQuery.然后把他的connect设置成adoconnection控件就行了.

我写一小段代码做示例

strSql

:=

'insert

into

t1(a,b)

values(:a,:b)'

adoquery.close

adoquery.SQL.Clear

adoquery.SQL.Add(strSql)

adoquery.Parameters.ParamByName('a').Value

:=

txtA.text//将录入的A数据当作参数的值传进去

adoquery.Parameters.ParamByName('b').Value

:=

txtB.text

adoquery.Excute

The

End

你可以用DB控件，直接连接数据库

例如DBedit

把它的DataSource属性设置成你所查询出来表的数据集把DataField属性设置成你要关联的字段

在放几个Button

一个写成添加，一个写修改，一个写删除，一个写保存

添加中写入

查询出来表的数据集的名字.append

修改中写入

查询出来表的数据集的名字.edit

删除中

查询出来表的数据集的名字.delete

保存中写入

查询出来表的数据集的名字.post

这样基本就可以了

---