高分紧急求救：怎样在Delphi里执行这样一大段SQL语句？提示“Too many actual paramenters”(太多的实际参数)

Question

紧急求救：怎样在Delphi里执行这样一大段SQL语句？我想用程序实现SQLServer2000的自动备份功能。我找到了一段SQL语句，并且在查询分析器里可以正确运行。但是我在Query1里执行的时候提示“Too many actual paramenters”(太多的实际参数)请教该怎么去执行，请仙人指路。不胜感谢！BEGIN TRANSACTION DECLARE @JobID BINARY(16) DECLARE @ReturnCode INT SELECT @ReturnCode = 0 IF (SELECT COUNT(*) FROM msdb.dbo.syscategories WHERE name = N'[Uncategorized (Local)]') < 1 EXECUTE msdb.dbo.sp_add_category @name = N'[Uncategorized (Local)]' SELECT @JobID = job_id FROM msdb.dbo.sysjobs WHERE (name = N'SRJYS 备份') IF (@JobID IS NOT NULL) BEGIN IF (EXISTS (SELECT * FROM msdb.dbo.sysjobservers WHERE (job_id = @JobID) AND (server_id <> 0))) BEGIN RAISERROR (N'无法导入作业“SRJYS 备份”，因为已经有相同名称的多重服务器作业。', 16, 1) GOTO QuitWithRollback END ELSE EXECUTE msdb.dbo.sp_delete_job @job_name = N'SRJYS 备份' SELECT @JobID = NULL END BEGIN EXECUTE @ReturnCode = msdb.dbo.sp_add_job @job_id = @JobID OUTPUT , @job_name = N'SRJYS 备份', @owner_login_name = N'sa', @description = N'没有可用的描述。', @category_name = N'[Uncategorized (Local)]', @enabled = 1, @notify_level_email = 0, @notify_level_page = 0, @notify_level_netsend = 0, @notify_level_eventlog = 2, @delete_level= 0 IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback EXECUTE @ReturnCode = msdb.dbo.sp_add_jobstep @job_id = @JobID, @step_id = 1, @step_name = N'第 1 步', @command = N'BACKUP DATABASE [SRJYS] TO DISK = N''D:\backup\20040122.bak'' WITH INIT , NOUNLOAD , NAME = N''SRJYS 备份'', NOSKIP , STATS = 10, NOFORMAT ', @database_name = N'master', @server = N'', @database_user_name = N'', @subsystem = N'TSQL', @cmdexec_success_code = 0, @flags = 0, @retry_attempts = 0, @retry_interval = 0, @output_file_name = N'', @on_success_step_id = 0, @on_success_action = 1, @on_fail_step_id = 0, @on_fail_action = 2 IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback EXECUTE @ReturnCode = msdb.dbo.sp_update_job @job_id = @JobID, @start_step_id = 1 IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback EXECUTE @ReturnCode = msdb.dbo.sp_add_jobschedule @job_id = @JobID, @name = N'第 1 调度', @enabled = 1, @freq_type = 4, @active_start_date = 20000101, @active_start_time = 120000, @freq_interval = 1, @freq_subday_type = 8, @freq_subday_interval = 24, @freq_relative_interval = 0, @freq_recurrence_factor = 1, @active_end_date = 20050121, @active_end_time = 235959 IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback EXECUTE @ReturnCode = msdb.dbo.sp_add_jobserver @job_id = @JobID, @server_name = N'(local)' IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback END COMMIT TRANSACTION GOTO EndSave QuitWithRollback: IF (@@TRANCOUNT > 0) ROLLBACK TRANSACTION EndSave:

Answer 1

我想主要还是引号的问题！！！
用.SQL.Text:= QuotedStr(...)试试！另外，你的代码太乱！

Answer 2

你這種語句, 只能調用 sqlserver 帶的 osql 之類來執行, 不能在一個query 中直接操作看看相關的幫助

Answer 3

把它按一定的格式写在一个文本文件中,然后用adoquery.loadfromfile()再试试

Answer 4

我快看晕死了，
  从来没写过这么长的SQL语句

Answer 5

这么长做成storedprocedure吧·！

Answer 6

我有一个问题,关于系统函数 fn_listextendedproperty,它执行时好像必须用两个冒号的，"::fn_listextendedproperty"，
如
SELECT   *
FROM   ::fn_listextendedproperty (NULL, 'user', 'dbo', 'table', 'T1', 'column', default)
這一句如果放在TADOQuery裡執行？

Answer 7

觉得这种SQL在查询分析器里调试吧，不用多问，自己排好版慢慢调，他会告诉你哪行错了。