adoconnection 和adoqry 都在datamodule 里。
form1 的buttonedit click ,生成form2, 在form2里更改adoqry的内容。
form2都是用dbedit组件显示adoqry的数据。
如果添加新记录buttonappend click,生成form2是没有问题的,但是点击buttonedit,
修改时就出错。提示missing adoconnection or missing connection string,
不明白这么回事,请帮忙解释一下。
buttonedit事件:
dm.adoqry.Edit;
form2:=tform2.Create(self);
form2.dtp_rcrq.Date:=dm.adoqryrcrq.Value;//给datetimepicker 赋对应于adoqry的值
form2.dtp_jyrq.Date:=dm.adoqryJYRQ.Value;
form2.dtp_sqrq.Date:=dm.adoqrySQRQ.Value;
try form2.ShowModal;
except form2.Free;
end;
buttonappend事件:
dm.adoqry.append;
form2:=tform2.Create(self);
try form2.ShowModal;
except form2.Free;
form1 的buttonedit click ,生成form2, 在form2里更改adoqry的内容。
form2都是用dbedit组件显示adoqry的数据。
如果添加新记录buttonappend click,生成form2是没有问题的,但是点击buttonedit,
修改时就出错。提示missing adoconnection or missing connection string,
不明白这么回事,请帮忙解释一下。
buttonedit事件:
dm.adoqry.Edit;
form2:=tform2.Create(self);
form2.dtp_rcrq.Date:=dm.adoqryrcrq.Value;//给datetimepicker 赋对应于adoqry的值
form2.dtp_jyrq.Date:=dm.adoqryJYRQ.Value;
form2.dtp_sqrq.Date:=dm.adoqrySQRQ.Value;
try form2.ShowModal;
except form2.Free;
end;
buttonappend事件:
dm.adoqry.append;
form2:=tform2.Create(self);
try form2.ShowModal;
except form2.Free;
另外建议写成try....finally..end;形式的
不管用adoconnection或connectionstring ,你要确保连上数据库了才行
sql也有的。
to:Tensionli:虚心请教try....finally ....end; 与 try ...except ...end;有什么区别?
try ...except ...end:只有try里面出错了,才会执行except 里面代码
请教高手指点啊!3x!
dm.adoqrySQRQ,adoqryrcrq等这些可能有联结有问题
和你运行时的SQL语句咯。拿来看看咯
form2.dtp_jyrq.Date:=dm.adoqryJYRQ.Value;
form2.dtp_sqrq.Date:=dm.adoqrySQRQ.Value;这里出错了..
哪有这样去字段值的呀???
form2.dtp_rcrq.Date:=dm.adoqryrcrq.fieldValues['字段名'];