Z
zqssoft
Unregistered / Unconfirmed
GUEST, unregistred user!
如何导出DBGrid的某一指定列,如标题为 ABC 的列,为文本文件呢.
或者,导入指定这列内容到Memo控件中也行.谢谢.
或者,导入指定这列内容到Memo控件中也行.谢谢.
S
sedwen
Unregistered / Unconfirmed
GUEST, unregistred user!
你的DbGrid有DataSource吧，直接循环取不就得了。
代码:
Memo.Clear;
With AdoQ1 Do
Begin
first;
While Not Eof do
begin
Memo.Lines.Add(Fieldbyname('ABC').AsString);
Next;
End;
END;
Z
zqssoft
Unregistered / Unconfirmed
GUEST, unregistred user!
那我的DBGRid中显示的是查询出来的结果,只想导出这些结果的某一列,不是全部啊.
况且,用这样的循环,60万条数据,慢得让人要命.我的数据库是Acess.
况且,用这样的循环,60万条数据,慢得让人要命.我的数据库是Acess.
S
sedwen
Unregistered / Unconfirmed
GUEST, unregistred user!
如果你觉得这样很慢的话，还有一种办法，就是直接用连接将ACCESS数据提取到TXT。
ADOConnection.Execute('Select [ABC] Into [Text;Database=c:/temp].File.txt From AAAA');
说明：
[ABC] 为你想导出的字段(也可以用*)。
c:/temp 可以改为你将要存储的路径。
File.txt 改为你将要存储的文件名。
AAAA 改为你在ACCESS中要操作的表名。
例如要导出Bingo表中的NAME字段到D:/TEMP/Info.txt中。
ADOConnection.Execute('Select NAME Into [Text;Database=D:/TEMP].Info.txt From Bingo');
这种方法是最快的了，如果还不行，呵呵[
]
ADOConnection.Execute('Select [ABC] Into [Text;Database=c:/temp].File.txt From AAAA');
说明：
[ABC] 为你想导出的字段(也可以用*)。
c:/temp 可以改为你将要存储的路径。
File.txt 改为你将要存储的文件名。
AAAA 改为你在ACCESS中要操作的表名。
例如要导出Bingo表中的NAME字段到D:/TEMP/Info.txt中。
ADOConnection.Execute('Select NAME Into [Text;Database=D:/TEMP].Info.txt From Bingo');
这种方法是最快的了，如果还不行，呵呵[
]