关于数据库

meng___xuan 2002-05-31 07:12:29
现在有一个*.TXT文件,里面的全是“编号@名称#价格”这样的记录。现在怎样通过把这个文件导入ACCESS,自动生成一个一个的记录。谢谢
...全文
34 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
meng___xuan 2002-06-02
  • 打赏
  • 举报
回复
谢谢,我调试一下,非常感谢你的帮助。
ihihonline 2002-05-31
  • 打赏
  • 举报
回复
呵呵
procedure TMainForm.btnReadCapitalsClick(Sender: TObject);
var
{$H +}
F: TextFile;
Bh: String[20];
Mc: String[20];
Jg :String[20];
begin
DrQuery.Open;
if Opendialog1.Execute
AssignFile(F, Opendialog1.FileName);
Reset(F);
try
while not Eof(F) do
begin
Readln(F, Bh,Mc,Jg);
with DrQuery do
begin
Insert;
FieldByName('Bh').AsString := Bh;
FieldByName('Mc').AsString := Mc;
FieldByName('Jg').AsString := Jg;
Post;
end;
end;
finally
CloseFile(F); // Close the file when finished.
end;
end;
先说明啊,没有调试,是在这儿随便写的,如果用不成了,就当是灌水:)
ihihonline 2002-05-31
  • 打赏
  • 举报
回复
好说好说,做过,不过的点麻烦,你就当是我在灌水吧

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧