关于写入数据库异常的问题....(200分)

dfoversky · 2008-05-12

循环往一个表写入数据(sqlserver数据库)，用程序侦测的时候，不想出现写入失败的提示（主键重复提示）。出现其它异常的时候出提示，程序该怎么写呢？delphi6里有相应的设置吗？ 目前程序是这样的： try   <写入数据库> except   continue; end;

onyliu · 2008-05-13

不知道你要的是什么意思， 你这个主键冲突了肯定是插入失败的 难道你要出错不告诉用户出错了？ 再说主键冲突问题完全是程序本身问题

李翔鹏 · 2008-05-13

if 当前插入的值在数据库中不存在 then     <写入数据库>   else      ShowMessage('数据库中已经存在这个值');

轻舞肥羊 · 2008-05-13

不同的数据库错误有不同的错误号,可以在Adoconnection.errors集合中取到 记住主键冲突的错误号,排除它就可以了

dfoversky · 2008-05-13

to onyliu:因为有大量的数据要导入，用程序侦测的时候，一条记录如果主键重复了，就写入数据库失败了，但是这是属于正常的异常，属于重复导入数据。但是用程序侦测可就麻烦了，写入一条出个提示对话框，我现在就是想怎么能设置一下，不出这种异常的错误提示。

dfoversky · 2008-05-13

to 轻舞肥羊你好： 有具体的例子吗？我从来没写过这样的程序，谢谢。 怎么能查到主键冲突的错误号,怎么才能排除呢？

轻舞肥羊 · 2008-05-13

用以下代码测试,其中acm为adocommand,acn为adoconnection,mem为TMemo var   i : Integer; begin   acm.CommandText :=  'set IDENTITY_INSERT tx on; insert into tx (id, dt, ip, bw) values (1000000, ''2000-1-1'', '''', '''')';   try     acm.execute;   except     for i :=  0 to acn.Errors.Count - 1 do     begin       mem.Lines.Add(acn.Errors.SQLState);       mem.Lines.Add(acn.Errors.Source);       mem.Lines.Add(acn.Errors.Description);     end;   end; end; 如果ID为主键并插入重复值,memo中会有这样的字样: 23000 Microsoft OLE DB Provider for SQL Server 违反了 PRIMARY KEY 约束 'PK_tx'。不能在对象 'dbo.tx' 中插入重复键。 01000 Microsoft OLE DB Provider for SQL Server 语句已终止。 记住主键冲突的代码23000,你要做的是:如果errors集合中存在这个代码则跳过这个错误,否则raise抛出来

dfoversky · 2008-05-14

如果errors集合中存在这个代码则跳过这个错误,否则raise抛出来: 这样写吗？ try 写入数据库； excpet        if acn.Errors[acn.Errors.Count - 2].SQLState = '23000' then                 acn.RollbackTrans()               else                 raise; end;

dfoversky · 2008-05-14

代码里写好像不行啊。

HJ.Yao · 2008-05-14

在插入目标表里建一个主键字段且自动递增，源表中的主键字段不去管它，等全部插完后，再来处理

轻舞肥羊 · 2008-05-14

try     ...   except     for i :=  0 to acn.Errors.Count - 1 do       if acn.Errors.SQLState = '23000' then       begin         exit;//把插入数据的过程写成一个procedure         break;       end;     raise Exception.Create(acn.Errors[0].Description);   end;

dfoversky · 2008-05-15

还是不行的，主键一重复就出那个对话框，只能在delphi里 Tools->Debugger->Language Exceptions 里添加不提示的异常类： EOleException 和 EDataBaseError 这样虽然不出：违反了 PRIMARY KEY 约束的对话框了，但是如果过程里有别的SQL语句错误或数据库操作错误。就侦测不出来了。 -_-!!

dfoversky · 2008-05-16

结帖。。。。

dfoversky · 2008-05-16

多人接受答案了。

关于写入数据库异常的问题....(200分)

dfoversky

Unregistered / Unconfirmed

onyliu

Unregistered / Unconfirmed

李翔鹏

Unregistered / Unconfirmed

轻舞肥羊

Unregistered / Unconfirmed

dfoversky

Unregistered / Unconfirmed

dfoversky

Unregistered / Unconfirmed

轻舞肥羊

Unregistered / Unconfirmed

dfoversky

Unregistered / Unconfirmed

dfoversky

Unregistered / Unconfirmed

HJ.Yao

Unregistered / Unconfirmed

轻舞肥羊

Unregistered / Unconfirmed

dfoversky

Unregistered / Unconfirmed

dfoversky

Unregistered / Unconfirmed

dfoversky

Unregistered / Unconfirmed

Similar threads