Delphi ADO txt内文本数据的导入

[姜姜大人]

Delphi 中
ADO txt 内的文本格式如下：
01-00004592-00015-20120411141731--0000050000-0000162000-00013-150--A5AF0F7A3C-CRC..OK
001-00004593-00025-20120411141733--0000050000-0000162000-00013-150--4B51E194D2-CRC..OK
001-00004588-00015-20120411141735--0000050000-0000172000-00013-150--979C3C790F-CRC..OK
001-00004591-00015-20120411141737--0000050000-0000162000-00013-150--4A41E194D2-CRC..OK
001-00004590-00016-20120411141739--0000050000-0000174000-00013-150--1F04B4A187-CRC..OK
001-00004584-00018-20120411155848--0000040000-0000244000-00004-150--B5AE7F9B2D-CRC..OK
001-00004590-00017-20120411155850--0000200000-0000374000-00014-150--3D26F7C3A5-CRC..OK
我现在要把这些数据通过ADO，主要控件有ADOConnection 导入QUery中，怎么导入?

不要随便的复制粘贴过来，我要代码实现，几句话的不给分

[22222bbb]

你的分能当钱使还是当饭吃?

[姜姜大人]

回答问题，又不是什么

[kaikai_kk]

[Quote=引用 1 楼 的回复:]
你的分能当钱使还是当饭吃?
[/Quote]

＋1

[早安您好]

[Quote=引用 1 楼 的回复:]

你的分能当钱使还是当饭吃?
[/Quote]


+1

[痴心灬妄想]

[Quote=引用 1 楼 的回复:]

你的分能当钱使还是当饭吃?
[/Quote]

+1

[funxu]

[Quote=引用 1 楼 的回复:]
你的分能当钱使还是当饭吃?
[/Quote]
+1

[都先生]

自己写吧，体力活而已

[w84271765]

ACCESS 插入文本文件

ph:= GetAbsolutePath(Path,'Customer.txt');
ContactList.SaveToFile(ph);
Close;
SQL.Clear;
SQL.Add('Insert INTO ContactData Select * FROM [Text;DATABASE='+Path+'].Customer.txt');
ExecSQL;
DeleteFile(ph);//删除Customertxt文件

这个是插入方法，至于你的数据要怎弄，你得先从ACCESS里导出来看看格式是什么，按格式来。

[姜姜大人]

雖然不是我想要的答案，不過我之前已經自己寫出來了。非常感謝回答問題的同志哈，3QU 。哇哈哈！