delphi逐个读取access中的数据


本文整理自网络,侵删。

 if ADOQuery1.Recordset.RecordCount>0 then begin 
for i:=0 to ADOQuery1.Recordset.RecordCount-1 do
begin

string:=ADOQuery1.FieldByName('name').AsString;

adoquery1.Next;
end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

if ADOQuery1.Recordset.RecordCount>0 then
begin
for i:=0 to ADOQuery1.Recordset.RecordCount-1 do
begin

str1:=ADOQuery1.FieldByName('dizhic').AsString;

adotable4.Append ;
adotable4.FieldValues['wenzhang']:=str1;
adotable4.Post;

adoquery1.Next;
end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
adotable1.Append;
adotable1.FieldValues['gjz']:=memo1.Lines.Strings[i];
adotable1.Post;
adotable1.Next;

end;
adotable1.Active:=false;
adotable1.Active:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
s:string;
begin
adoquery1.Active:=false;
adoquery1.Active:=true;

for i:=0 to adoquery1.Recordset.RecordCount-1 do
begin
s:=ADOQuery1.FieldByName('gjz').asstring;
memo2.Lines.Add(s);
adoquery1.Next;
end;
end;


adoquery1的 sql语句:select * from gjz

相关阅读 >>

Delphi 禁用本地网络连接/启用本地网络连接

Delphi 用idhttp获取utf-8编码的网页

Delphi simple resource api replacement

Delphi twebbrowser打开paypal出错

Delphi 工程判断内存溢出reportmemoryleaksonshutdown := true;

Delphi下载指定网址(url)的文件,带进度条显示

Delphi vcl 在trichedit控件中设置wordwrap属性后无法自动换行的问题

Delphi10.3.1安卓照相

Delphi setformfullscreen()窗体全屏显示

Delphi xe6 �c使用android的zlib

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...