我想取SQL数据库中一个表的‘no’字段的最后一个值放入edit1中,但是程序运行后,却取不到值,edit1依旧为空,没有任何的东西,主要的代码如下:
begin
with adoquery1 do
begin
last;
edit1.text:=fieldbyname('no').asstring;
end;
end;
本人百思不得其解,请那一位大哥帮一帮手,在线等待;急!!!
begin
with adoquery1 do
begin
last;
edit1.text:=fieldbyname('no').asstring;
end;
end;
本人百思不得其解,请那一位大哥帮一帮手,在线等待;急!!!
解决方案 »
- 语法解释
- Delphi 如何删除安装好的组件?
- 关于listview中onclick事件的问题
- 同事生了个胖小子点名让我给提供几个有创意的名字,不忍心让她失望
- 求教FastReport的"band分栏+newpage()"出现错位的解决方法?
- 这算不算BUG,还是我自己没搞明白?关于DBMemo
- 请问如何修改系统鼠标指针呢?我现在有一个ico图标文件,想修改成系统鼠标指针,如何做?
- 这个TAliasEditor,TdxDBGrid分别是哪控件的?
- 请问D7中的TCPClientSocket,TCPServerSocket如何使用
- 在用DELPHI6连接SQL2000时,为何不能连接?
- 怎么做数据批处理,急急急
- 如何控制扫描仪
如果连接了ADOConnection1,要把ADOConnection1的Connected高为True.
with adoquery1 do
begin
last;
edit1.text:=fieldbyname('no').asstring;
end;
end;
这段代码外有try语句没有?如果有的话,最好判断下adoquery1.eof、adoquery1.isempty
edit1.text:=fieldbyname('no').value;
with adoquery1 do
begin
last;
PORIOR;
edit1.text:=fieldbyname('no').asstring;
end;
end;这样试试看.
procedure Tmainpagefrm.Edit1Click(Sender: TObject);
var
a:string;
i:integer;
begin
mindatamodule.adoqrycustlist.Open;
i:=mindatamodule.adolog.RecordCount+1;
a:=inttostr(i);
edit1.Text:=a;
mindatamodule.adoqrycustlist.Close;
end;
end.
在此谢谢大家的回复,
with adoquery1 do
begin
if recordcount>0 then
begin
last;
edit1.text:=fieldbyname('no').asstring;
end;
end;