ADO Command 命令的执行

ADO Command 命令的执行

下面的函数实现 Ado Command 命令的执行。

// --------------------------------------------------------------------------------

// 参数：

// pAdoCmd: TADOCOMMAND; AdoCommand 组件

// pcExec : string; 命令字符串

// Var pcErrMsg:String ; 变参。命令执行无误时，返回空串。否则保存返回错误信息。

// 返回：

// true - 命令被正确执行

// false - 命令执行错误

// 前提：

// 为 pAdoCmd 指定连接，并正确连接

// --------------------------------------------------------------------------------

Function ADO_COMMAND_EXEC( pAdoCmd: TADOCOMMAND; pcExec : string; Var pcErrMsg:String ) : boolean ; overload;

var Save_Cursor:TCursor;

begin

pcErrMsg := '';

Save_Cursor := Screen.Cursor;

Screen.Cursor := crSQLWait;

if trim( pcExec ) = '' then

begin

Result := False ;

pcErrMsg:='命令串为空';Exit;

end;

pAdoCmd.CommandText := pcExec ;

try

pAdoCmd.Execute ;

Result := True ;

except

on E: Exception do

begin

pcErrMsg := E.Message ;

Result := False ;

end;

end;

Screen.Cursor := Save_Cursor ;

end;

举例：

cCmd := 'Select Top 1 From Computer';

if not ADO_COMMAND_EXEC( AdoCmd, cCmd, cError ) then

begin

... // 显示错误信息：cError 和 cCmd 语句

end;

( by ForestK )