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

silkworm 2005-08-10 11:31:22
我要用delphi创建一个作业用来定时备份数据库，sql语句写好了，但是delphi每次执行都会提示“至少一个参数没有被指定值”和“不正常的定义参数对象，提供了不一致或不完整的信息”，但是我把每一次要执行的sql语句拷贝到查询分析器里执行都没有任何问题，不知道什么缘故，请大家不吝赐教。
...全文
159 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的内容
六月福师计算机应用基础在线作业,201206福师《计算机应用基础》在线作业二【附答案】.doc...
这篇内容提供了福师《计算机应用基础》在线作业二的题目及答案，涵盖了计算机基础知识、Windows操作系统、Word操作、网络协议等方面的问题。包括ASCII码的存储、回收站功能、控制器的作用、文件保存方式、TCP/IP协议、磁盘扫描用途、Excel数字输入技巧、单元格错误显示、电子邮件编码问题、输入设备识别、IP地址格式、日期计算、计算机病毒定义、进制转换、网络分类、应用软件识别、打印机设置、复制文本快捷键、硬件系统组成、页面布局设置、菜单命令含义、Web服务器安全措施以及多文档窗口排列等知识点。
程序员办公笔记本电脑推荐（2025年2月初）
本文为程序员提供了2025年初的办公笔记本电脑推荐。作者结合自身经验，分析了MacBook和Windows类笔记本的优缺点，并针对不同开发场景和用户需求，给出了具体型号的选购建议。特别强调了内存的重要性，并建议学生和特定开发场景下优先考虑Windows笔记本。
02｜以正合以奇胜：好文章都有哪些标志？
本文围绕如何判断好文章展开。指出好文章有行文节奏简单、文字表述准确、主题刻画鲜明突出三个标志，并举例说明。还提出写作可借鉴“以正合，以奇胜”思想，用熟悉方式讲主题，以独特观察创新解释。最后布置分析好文章的作业。
一班洽谈框架细化_细化结构图让文章结构更清晰 邱晓风
本文探讨了如何通过引导学生从整体到部分再到整体解读《猫》一文，通过细化结构图让学生掌握文章结构、写作手法和特点。课堂上通过实例分析，强调了层次分明的结构图的重要性，并展示了学生对文章理解的层次差异。重点讲解了如何通过仿写练习深化对老舍写作技巧的理解。
CSAPP:shlab
本文记录了一次在CMU课程中的Shell编程实验室经历，详细介绍了实现Eval、builtin_cmd、do_bgfg、waitfg和信号处理函数的过程，分享了调试过程中遇到的问题及解决方案。
MS-SQL Server

34,875

社区成员

254,639

社区内容

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

加载中

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

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

+ 用AI写文章