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 )
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18