如何将Access中的数据解析成.ini文件!求助! ( 积分: 100 )

  • 主题发起人 主题发起人 Willson_Z
  • 开始时间 开始时间
W

Willson_Z

Unregistered / Unconfirmed
GUEST, unregistred user!
刚接触Delphi和Access,新任务不知何解,望赐教!
数据库中有如下表:
ID Name
0 a
1 b
2-3 c
如何将上表转换成.ini中如下格式:
ID Name
0 = a
1 = b
2 = c
3 = c
不知是否说清意思,请明示。谢谢!
 
这其实是一个数据库转换的问题,你可以在DFW上SEARCH以前的帖子,应该有很多类似的问题,那里有很详细的讨论和解决方案
 
procedure TForm1.Button4Click(Sender: TObject);
var
f:TextFile;
ts:string;
i:integer;
begin

try
try
Assignfile(f,'command.txt');
Rewrite(f);
Append(f);
Writeln(f,'@echo off');
DM.ADOQuery1.Close;
DM.ADOQuery1.SQL.Clear;
DM.ADOQuery1.SQL.Add('select * from ta');
DM.ADOQuery1.Open;
FOR I:=0 TO dm.ADOQuery1.RecordCount do
begin
ts:=dm.ADOQuery1.FieldByName('command').AsString;
Writeln(f,ts);
dm.ADOQuery1.Next;
end;
showmessage('文件创建成功');
finally
DM.ADOQuery1.Close;
CloseFile(f);
showmessage('文件关闭');
end;
except
showmessage('出错!');
end;

end;

参考一下下吧
 
谢谢师兄们留墨!
不过,cnsyj能不能把原理稍微阐明一下!
还有,如果数据库的数据量比较大,又有什么效率更高的方法呢?
 
请不要用RecordCount
对于数据库的循环这样比较好:
with ADOQuery1 do
begin
DisableControls;
First;
While not eof do
begin
.......do some thing..
Next;
end;
EnableControls;
end;
 
简单的已经实现了。没有人在参与了,那就算了吧!
接受了。
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
911
SUNSTONE的Delphi笔记
S
后退
顶部