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 )
