我的代码如下:
the first procedure:
with myquery do
begin
if not active then
begin
//其中KeyCode是关键字,种子,逐一递增一
Parameters.ParamByName('KeyCode').Value := 0; //取出0条记录
Open;
end;
Append;
Post;
end
the second procedure:
with myquery do
begin
myKeyCode := FieldByName('KeyCode').AsInteger;
end
我想取出第一个procedure生成的新纪录的KeyWord值,但每次都是读出的
是0值,不知是不是和参数值设为1有关,哪位大侠能解毒这段代码的问题
后来我用dbgrid显示下myquery的内存记录,发现KeyWord没有存任何值,而
其他字段显示正常,游说能解答问题
the first procedure:
with myquery do
begin
if not active then
begin
//其中KeyCode是关键字,种子,逐一递增一
Parameters.ParamByName('KeyCode').Value := 0; //取出0条记录
Open;
end;
Append;
Post;
end
the second procedure:
with myquery do
begin
myKeyCode := FieldByName('KeyCode').AsInteger;
end
我想取出第一个procedure生成的新纪录的KeyWord值,但每次都是读出的
是0值,不知是不是和参数值设为1有关,哪位大侠能解毒这段代码的问题
后来我用dbgrid显示下myquery的内存记录,发现KeyWord没有存任何值,而
其他字段显示正常,游说能解答问题
解决方案 »
- [致命错误] Unit10.pas(6): Unit RpSystem was compiled with a different version of RpF
- 大家知不知道有没有类似于知识库的这种软件
- 水晶报表问题,急,在线等!
- @@@@@@@@@@@@@@@@@@一个简单的问题◎◎◎◎◎◎◎◎◎◎◎
- 请问如何将字符串‘2003年8月5日’转换成日期型呢?我用strtodatetime出错!
- 急!!!屏蔽ctrl+alt+del还有问题请教各位高手!(nt下)
- 怎样实现像IE浏览器里的“脱机工作”?完全要与IE的一样!
- delphi 7 程序设置不了断点了,SOS;
- 帮帮忙!!装不了DELPHI
- 打开工程文件时出错(Error Reading Form)
- 一个使用FastReport的frPrintGrid的疑问,很简单!
- 关于用filter进行查询的问题
select * from myTable where KeyCode = :KeyCode
根据这条语句,将取出 KeyCode=0 的所有记录,如果表中没有符合这个条件的记录,则返回一个空集。
这时你要插入新记录可以啊:
Append;
FieldByName('KeyCode').AsInteger:=YourKeyCode;
Post; 如果这是一个 AutoInc 字段,则不能这样写,你要刷新 myquery 才能取得其值
发现KeyWord的字段值为空,用FieldByName取KeyCode的值都是0,而其它字段填写均正常,这是为什么,有谁碰到这种情况.