为什么我的没有问题。你看是不是把ADOQuery1还ADOConnectiong正确的连接了?还有,这两个表之间有没有外键约束
解决方案 »
- TCP通信时,发送缓冲区用结构体表示,结构体中定义的变量能否不固定大小.
- 怎样把 FastReport 的报表导入到Excel?
- ■■■如何用VBS脚本随时从外部扩充或修改程序功能和实现有限的自动执行(宏)?
- 请高手指点!!!
- 请问如何将这个delphi代码转换成bcb代码,delphi我不懂,请高手帮忙
- 菜鸟问题:各位大哥帮帮我:)
- 如何将一个文件分成几块拷贝,然后用ProgressBar1 显示拷贝过程?
- 在delphi中如何获得摄像头捕捉的图象
- 请教:WORD文档如何解密?是OFFICE97的?
- 那位大仙帮我转换一下代码
- 窗体大小固定不了吗?
- 用TDBISAMTable控件做数据库程序,如何使用其中的SQL语句?
我要回复 | 我感兴趣 | 打印贴子 | 推荐给朋友 | 关闭窗口
主 题:ADO 出错了! 看了!
作 者:liming_zh
所属论坛:Delphi
问题点数:39
回复次数:4
发表时间:2001-4-6 18:15:00
我用 ADO 连接 SQL SERVER 7,利用ADOConnection 事务执行实现下面的功能:
同时在几个表中插入数据, 1、
当把“表1”放在首部时,执行后,表1无插入记录,表2插入成功。
反之,表2无插入记录,表1插入成功。
2,
事务取掉,无论怎样执行成功。
3,
每个表刚插入,执行插入后,查看所插入的记录--存在。看下面代码
begin
ADOConnection1.BeginTrans;
with ADOQuery1 do
begin// 表1 Close;
sql.clear;
sql.add('insert into jinhuo_pz_sj (jinh_no, kehu_no,cangk_dm,jinh_rq )'+
'values (''donot know'', ''123'', ''123'', ''2001-03-05'') ');
execsql; 表2
close;
sql.clear;
sql.add('insert into jinhuo_mx_sj (jinh_no, peij_no)
Values(''donot know'',''123'') ' );
ExecSQL;end;
adoconnection1.CommitTrans