需要这样一个记录本-9 Delphi使用TADOQuery时提示：不正常地定义参数对象。提供了一不致或不完整的信息。

最新推荐文章于 2016-02-23 11:04:36 发布

原创最新推荐文章于 2016-02-23 11:04:36 发布 · 878 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #tadoquery #exception #eoleexception

delphi学习随笔专栏收录该内容

5 篇文章

订阅专栏

本文介绍了解决TADOQuery对象执行复杂SQL时遇到的问题，包括如何正确处理带有特殊字符和关键字的SQL语句，并提供了一种有效的解决方案。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如题，问题截图

执行语句如下

function ExecQry(ACnt: TADOConnection; AQry: TADOQuery; ASql: string): Integer;
begin
  Result := 0;
  with AQry do
  begin
    Connection := ACnt;
    Close;
    SQL.Clear;
    SQL.Add(ASql);
    try
      ExecSQL;
      Result := 1;
    except
      on e: Exception do
      begin
//        gDebuger.DebugStr := Format(C_OperateDBError, [ASql, e.Message])
      end;
    end;
  end;
end;

代码中ASql内容见下表

<del>USE [msdb]
GO</del>
BEGIN TRANSACTION
DECLARE @ReturnCode INT
SELECT @ReturnCode = 0
IF NOT EXISTS (SELECT name FROM msdb.dbo.syscategories WHERE name=N'Database Maintenance' AND category_class=1)
BEGIN
EXEC @ReturnCode = msdb.dbo.sp_add_category @class=N'JOB', @type=N'LOCAL', @name=N'Database Maintenance'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) 
GOTO QuitWithRollback
END
DECLARE @jobId BINARY(16)
EXEC @ReturnCode =  msdb.dbo.sp_add_job @job_name=N'CTC_DBPlan', 
		@enabled=1, 
		@notify_level_eventlog=0, 
		@notify_level_email=0, 
		@notify_level_netsend=0, 
		@notify_level_page=0, 
		@delete_level=0, 
		@description=N'无描述。', 
		@category_name=N'Database Maintenance', 
		@owner_login_name=N'mcis', @job_id = @jobId OUTPUT
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_add_jobstep @job_id=@jobId, @step_name=N'AutoDelete_TableData', 
		@step_id=1, 
		@cmdexec_success_code=0, 
		@on_success_action=1, 
		@on_success_step_id=0, 
		@on_fail_action=2, 
		@on_fail_step_id=0, 
		@retry_attempts=0, 
		@retry_interval=0, 
		@os_run_priority=0, @subsystem=N'TSQL', 
		@command=N'Exec sp_delete_tabledata', 
		@database_name=N'%DBName%', 
		@flags=0
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_update_job @job_id = @jobId, @start_step_id = 1
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_add_jobschedule @job_id=@jobId, @name=N'AutoCheckTable', 
		@enabled=1, 
		@freq_type=4, 
		@freq_interval=1, 
		@freq_subday_type=1, 
		@freq_subday_interval=0, 
		@freq_relative_interval=0, 
		@freq_recurrence_factor=0, 
		@active_start_date=20141201, 
		@active_end_date=99991231, 
		@active_start_time=40000, 
		@active_end_time=235959
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_add_jobserver @job_id = @jobId, @server_name = N'(local)'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
COMMIT TRANSACTION
GOTO EndSave
QuitWithRollback:
    IF (@@TRANCOUNT > 0) ROLLBACK TRANSACTION
EndSave:

首先‘GO’不能单独执行，将‘GO’之前的语句单独为一条指令进行执行，整个语句内容被分成两部分执行，‘GO’不执行，记住语句中有‘GOTO’的存在，切记与‘GO’判断时发生混淆。按此方法进行发现问题仍然存在。

网上查找问题最终解决办法：由于TADOQuety对象把‘：’后的字符当作变量来使用，导致数据识别错误。只要把TADOQuery.ParamCheck设置为False即可。