我用ADOQuery的insert的方法插入数据,第一可以成功的插入,但第二次却提不有一数据项找不到,是什么原因呀?
解决方案 »
- 瑞星抵制Delphi6将Delphi认为成为病毒!!大家来支持啊!!!
- 各位好!有空来帮帮忙!
- 谁有delphi7.0的补丁?
- 有在Win2000下得到Bios序列号的代码否?不要Dll!
- 如何在程序中得到打印机当前设置的dpi?
- 怎么在多线程中使用定时器啊?
- 如何在Win98没有安装拨号服务器的情况下编程实现拨号服务器提供的功能,接受远程Modem拨入?
- 如何加入mts data module远程数据模块?
- 请问如何用postmessage发click消息给一个button?
- 在Dbgrid的单元格中设置下拉框的问题!
- 请问,如何判断excel的一个单元格有没有数据?
- 求助怎么利用Delphi开发类似网页的应有程序?
begin
close;
open;
insert;
fieldvalues['...']:=ComboBox5.Text;
...............
fieldvalues['..]:=FormatFloat(',.000',a);
post;
end; with ADOQuery do//此为刷新数据的
begin
close;
with sql do
begin
clear;
Add(....);
end;
execsql;
open;
end;
begin
close;
with sql do
begin
clear;
Add(....);
end;
execsql; //如果是Insert、Update、Delete用exesql
open; //如果是select用open
end;
begin
close;
//可能需要在这里恢复初始的SQL语句
open;
insert;
fieldvalues['...']:=ComboBox5.Text;
...............
fieldvalues['..]:=FormatFloat(',.000',a);
post;
end;with ADOQuery do//此为刷新数据的
begin
close;
with sql do
begin
clear;
Add(....);//第二次点的时候,ADOQuery的Sql已经变为这个了。
end;
execsql; //如果是Insert、Update、Delete用exesql
open; //如果是select用open
end;
有个版本的DELPHI就是这样的
with ADOQuery1 do
begin
close;
open;
insert;
fieldvalues['字段1']:=ComboBox5.Text;
//...............
fieldvalues['字段n]:=FormatFloat(',.000',a);//原来的这里少了个'号吧
fieldvalues['字段n']:=FormatFloat(',.000',a);//这句才对 post;
end;注意:若'字段1'是建立了唯一索引的字段,在执行一次以后,就要改变combobox5.text的值,
否则第二次点击就不能插入成功;没有后面这一段也可以的;
with ADOQuery1 do//此为刷新数据的
begin
close;
with sql do
begin
clear;
Add(select * from 原表);
end;
execsql;
open;
end;