创建作业的问题（十分古怪），泣求答案，大把散分

silkworm 2005-08-10 11:31:22
我要用delphi创建一个作业用来定时备份数据库，sql语句写好了，但是delphi每次执行都会提示“至少一个参数没有被指定值”和“不正常的定义参数对象，提供了不一致或不完整的信息”，但是我把每一次要执行的sql语句拷贝到查询分析器里执行都没有任何问题，不知道什么缘故，请大家不吝赐教。
...全文
116 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
zjcxc 元老 2005-08-10
  • 打赏
  • 举报
 回复
测试楼主的sql代码没有问题.

检查一下:
1. CommandText 的结果是否被截断
2. 简化脚本,分步调试
创建作业的脚本是由几段组成的,先执行一段,如果无错误,再把后面的加上去,直到找出是那段有问题.
silkworm 2005-08-10
  • 打赏
  • 举报
 回复
代码比较长，不好意思
silkworm 2005-08-10
  • 打赏
  • 举报
 回复
adocmd_backup.CommandText := // 2005-8-10/9:46 上生成的脚本
// 由: sa
// 服务器: 192.168.10.2
' 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''xwl_backupplan'')'+
' IF (@JobID IS NOT NULL)'+
' BEGIN'+
// 检查此作业是否为多重服务器作业
' IF (EXISTS (SELECT *'+
' FROM msdb.dbo.sysjobservers'+
' WHERE (job_id = @JobID) AND (server_id <> 0)))'+
' BEGIN'+
// 已经存在，因而终止脚本
' RAISERROR (N''无法导入作业“xwl_backupplan”，'+
' 因为已经有相同名称的多重服务器作业。'', 16, 1)'+
' GOTO QuitWithRollback'+
' END'+
' ELSE'+
// 删除［本地］作业
' EXECUTE msdb.dbo.sp_delete_job @job_name = N''xwl_backupplan'''+
' SELECT @JobID = NULL'+
' END'+

' BEGIN'+

// 添加作业
' EXECUTE @ReturnCode = msdb.dbo.sp_add_job'+
' @job_id = @JobID OUTPUT ,'+
' @job_name = N''xwl_backupplan'','+
' @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''USE master'+
' EXEC sp_addumpdevice ''''disk'''', ''''JSP_BACKUPPLAN'''','+
' '''''+edit1.Text+combobox2.Text+'_20050810.dat'''''+
' BACKUP DATABASE JSP TO JSP_BACKUPPLAN'','+
' @database_name = N''jsp'', @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 = 20050808,'+
' @active_start_time = 0,@freq_interval = 1,'+
' @freq_subday_type = 1,@freq_subday_interval = 0,'+
' @freq_relative_interval = 0,@freq_recurrence_factor = 0,'+
' @active_end_date = 99991231, @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:';
//test
Filename := ExtractFilePath(Application.Exename)+'path.ini';
pathini := Tinifile.Create(filename);
pathini.WriteString('test','test',adocmd_backup.CommandText);
pathini.Destroy;
//test
adocmd_backup.Connection := adoconnection;
try
adocmd_backup.Execute;
except
on e:exception do showmessage(e.Message);
end;
soaringsouth 2005-08-10
  • 打赏
  • 举报
 回复
没有代码怎么给你看 啊
klan 2005-08-10
  • 打赏
  • 举报
 回复
贴出代码来
silkworm 2005-08-10
  • 打赏
  • 举报
 回复
找到问题了，在delphi中不能执行sql语句中的begintrans语句，goto好像也有问题，我把他们都屏蔽掉了，统统放到异常中处理，调试通过，我把代码贴出来，各位看看有没有意见批评指正
adoconnection.BeginTrans;
adocmd_backup.CommandText := // 2005-8-10/9:46 上生成的脚本
// 由: sa
// 服务器: 192.168.10.2
//' 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''xwl_backupplan'')'+
' IF (@JobID IS NOT NULL)'+
' BEGIN'+
// 检查此作业是否为多重服务器作业
' IF (EXISTS (SELECT *'+
' FROM msdb.dbo.sysjobservers'+
' WHERE (job_id = @JobID) AND (server_id <> 0)))'+
' BEGIN'+
// 已经存在，因而终止脚本
' RAISERROR (N''无法导入作业“xwl_backupplan”，'+
' 因为已经有相同名称的多重服务器作业。'', 16, 1)'+
//' GOTO QuitWithRollback'+
' END'+
' ELSE'+
// 删除［本地］作业
' EXECUTE msdb.dbo.sp_delete_job @job_name = N''xwl_backupplan'''+
' SELECT @JobID = NULL'+
' END'+

' BEGIN'+

// 添加作业
' EXECUTE @ReturnCode = msdb.dbo.sp_add_job'+
' @job_id = @JobID OUTPUT ,'+
' @job_name = N''xwl_backupplan'','+
' @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''USE master'+
' EXEC sp_addumpdevice ''''disk'''', ''''JSP_BACKUPPLAN'''','+
' '''''+edit1.Text+combobox2.Text+'_20050810.dat'''''+
' BACKUP DATABASE JSP TO JSP_BACKUPPLAN'','+
' @database_name = N''jsp'', @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 = 20050808,'+
' @active_start_time = 0,@freq_interval = 1,'+
' @freq_subday_type = 1,@freq_subday_interval = 0,'+
' @freq_relative_interval = 0,@freq_recurrence_factor = 0,'+
' @active_end_date = 99991231, @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:';}
//test
Filename := ExtractFilePath(Application.Exename)+'path.ini';
pathini := Tinifile.Create(filename);
pathini.WriteString('test','test',adocmd_backup.CommandText);
pathini.Destroy;
//test
adocmd_backup.Connection := adoconnection;
try
adocmd_backup.Execute;
adoconnection.CommitTrans;
statusbar2.Panels[2].Text := '备份计划已经成功建立!';
except
on e:exception do
begin
adoconnection.RollbackTrans;
showmessage('错误：'+e.Message);
statusbar2.Panels[2].Text := '错误：'+e.Message;
end;
end;
klan 2005-08-10
  • 打赏
  • 举报
 回复
分布调试以上的sql语句；再次确认一下CommandText的内容
Android+SQlite《学生信息管理系统》（增删改查）源代码
有对android一些基本控件的应用： 比如：1.使用listview 控件来显示SQlite 数据库中的记录，并添加其上的长按时间响应（增删改） 2.使用下拉框控件 spinner进行按条件的查询 Android+SQlite 简单的《学生信息...
稀奇古怪的问题汇总
开篇：一般稀奇古怪问题，大部分是jar包冲突 （比如boot整合hbase）；工具 maven-shade-plugin提供了两大基本功能： 将依赖的jar包打包到当前jar包（常规打包是不会将所依赖jar包打进来的）； 对依赖的jar包进行...
C语言嵌入式Linux编程第5期：C标准及GNU C扩展
本课程是《C语言嵌入式Linux编程》第5期主要内容包括：Linux内核、驱动程序中，GNU C对标准C扩展的大量的... 能够看懂这些“稀奇古怪”的语法，学会用这些扩展的语法知识去分析复杂的开源软件、Linux内核及驱动代码。
大学计算机作业互评评语简短,同学作业互评评语
同学作业互评评语评语是包含一些鼓励的话语，以下是小编收集的同学作业互评评语，欢迎查看！1、你稳重大方，为人坦诚;班级管理中显露出你非凡的潜力和艺术，是同学和老师信任的班长;你热爱学习，勤于思考，学习主动...
15道刁钻古怪的谷歌面试题及答案
解析：通过这道题，谷歌希望测试出求职者是否有能力判断出解决问题的关键。 网友的答案：我想，一辆标准大小的校车约有8英尺宽、6英尺高、20英尺长——我能知道这些数字完全是因为我曾经无数次被堵在校车后面。 ...
MS-SQL Server

34,594

社区成员

254,589

社区内容

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章