打开access数据库,发现数据还没有被加入,是缓存的事,还是要再执行什么语句呢? 单步执行到 query1.sql.add('insert into sms .........); query1.execsql;后, 马上打开access数据库,发现数据还没有被加入,是缓存的事,还是要再执行什么语句呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 试一下下面的with datafrom.ADOQuery1 do begin close; sql.clear; sql.Add('select * from 入库表'); prepared; open; append; order:=order+1; fieldbyname('拼音').asstring:=trim(edit1.text); fieldbyname('货号').asstring:=trim(edit2.text); fieldbyname('品名').AsString:=trim(edit3.text); fieldbyname('规格').asstring:=trim(edit4.text); fieldbyname('单位').asstring:=trim(edit5.text); fieldbyname('产地').asstring:=trim(edit6.text); fieldbyname('类别').asstring:=trim(edit7.text); fieldbyname('价格').asstring:=trim(edit8.text); fieldbyname('数量').asstring:=trim(edit9.text); fieldbyname('加入顺序').asstring:=inttostr(order); fieldbyname('入库日期').asstring:=datetostr(form4.DateTimePicker1.date); fieldbyname('入库单据号').asstring:=trim(form4.ComboBox1.Text); post;end; 我給字段賦值了.insert和execsql都正常执行,只有结束正在调试的应用程序,再打开access,数据才显示 的。 OH , My dear, you can call query.close to save it.:)And check you ADO cursor type, maybe you can work it soon. close;open;or refresh! 不知道这个能否实现?(关于DBgridEh打印问题)急! 通过Http的Post方式传递参数,接受方需要怎样获取?(急) 没事玩,大家玩过XP的讲述人么? 有没有人做过安装盘?数据库别名怎么弄? 控件安装包怎么制作啊? 奇怪!我的DELPHI里面没有RAVE这个组件,现在用什么办法把它装上去? 高分请教两个query关联的问题。 如何控制一个real型数据小数点后面的位数? 我要如何打开编辑这个文件呀 delphi 5.0 发现有大bug啦!!请大家来捉虫啦?????? 我最近要做一个运维管理系统,这是我走上社会要做的第一个程序,请问 pchar定义错误
with datafrom.ADOQuery1 do
begin
close;
sql.clear;
sql.Add('select * from 入库表');
prepared;
open;
append;
order:=order+1;
fieldbyname('拼音').asstring:=trim(edit1.text);
fieldbyname('货号').asstring:=trim(edit2.text);
fieldbyname('品名').AsString:=trim(edit3.text);
fieldbyname('规格').asstring:=trim(edit4.text);
fieldbyname('单位').asstring:=trim(edit5.text);
fieldbyname('产地').asstring:=trim(edit6.text);
fieldbyname('类别').asstring:=trim(edit7.text);
fieldbyname('价格').asstring:=trim(edit8.text);
fieldbyname('数量').asstring:=trim(edit9.text);
fieldbyname('加入顺序').asstring:=inttostr(order);
fieldbyname('入库日期').asstring:=datetostr(form4.DateTimePicker1.date);
fieldbyname('入库单据号').asstring:=trim(form4.ComboBox1.Text);
post;
end;
And check you ADO cursor type, maybe you can work it soon.
open;
or refresh!