应用ADOCommand更新、删除、添加数据

2013-09-04

使用ADOCommand更新、删除、添加数据使用ADOCommand更新、删除、添加数据时，怎样判断是否增、删、改操作成功。怎

使用ADOCommand更新、删除、添加数据
使用ADOCommand更新、删除、添加数据时，怎样判断是否增、删、改操作成功。
怎么接收 ADOCommand.Execute;的返回值判断
[解决办法]



function ExecSQL(ConStr: string; eSQL: string): string; //执行无返回值SQL
var
  conADO: TADOConnection;
  cmdADO: TADOCommand;
begin
  Result := '';
  conADO := TADOConnection.Create(nil);
  cmdADO := TADOCommand.Create(nil);
  try
    conADO.ConnectionString := ConStr;
    conADO.CommandTimeout := 300;
    conADO.LoginPrompt := False;
    try
      conADO.Open;
    except on e: Exception do
      begin
        SaveToLog('执行SQL数据库连接错误: ' + e.Message);
        Exit;
      end;
    end;
    try
      with cmdADO do
      begin
        Connection := conADO;
        CommandTimeout := 300;
        CommandText := eSQL;
        SaveToLog('执行SQL: ' + Trim(eSQL));
        Execute;
        Result := 'S'; //执行成功返回 S
      end;
    except on e: Exception do
      begin
        Result := e.Message; //执行失败返回 消息
        SaveToLog('执行SQL错误: ' + e.Message);
      end;
    end;
  finally
    FreeAndNil(conADO);
    FreeAndNil(cmdADO);
  end;
end;

[解决办法]
1：try
   更新、删除、添加数据
except on e: Exception do
   Begin
     MessageBox(0, Pchar(E.Message), 'error', 16);
   End;
end;

2：
Var
  Recordset: _Recordset;
Begin
  Recordset := ADOConnection1.Execute('');

热点排行

.NET

应用ADOCommand更新、删除、添加数据