在Delphi中，如何实现用控件执行SQL脚本更新存储过程？(200分)

  • 主题发起人 主题发起人 xlzps
  • 开始时间 开始时间
X

xlzps

Unregistered / Unconfirmed
GUEST, unregistred user!
我的更新存储过程的SQL脚本（该脚本可能包括了多个存储过程的更新）是从SQL Server 中
导出的，想用Delphi控件执行SQL脚本，达到更新存储过程的目的，现发现有两个问题：
1、SQL脚本中的GO语言，Delphi不支持，运行出错（这个可以解决）。
2、因为SQL脚本是先将存储过程删除，再建立的，即CREATE PROCEDURE前面肯定还有别的语
句，而Delphi的提示是“CREATE PROCEDURE在查询中必须是第一条语句”，一直解决不了！
请问有好的解决办法吗?
 
难道真的只能找到一个GO，就取出其前面的SQL语言执行后，再往下找直到最后？[?]
 
我是用ADO连接数据库的，对于执行SQl脚本有两个心得：
1、用ADOQuery1.open，一次只能执行一条SQL语句。若有多条语句的脚本要逐条分别执行。
若你是这样执行，你的第二点在Delphi中是很好解决的。
2、用ShellExec()调用isqlw。你的问题也应该能解决的。
 
ShellExec()调用isqlw？具体怎么使用，望指点！它需要引用到什么单元？[?]
 
我只用过winexec，但，如果程序运行的机器没有安装SQL Server客户端的话，能激活服务
器的isqlw.exe吗？
 
噢，是ShellExecute吧？
 
我也觉得直接用ShellExecute把你的SQL传给ISQLW.EXE来得最简单
如果客户端没有安装的话，你就写个C/S程序，在客户端把SQL传到你的服务程序
服务程序再调用服务器上的ISQLW.EXE来执行。
用法: ISQLW.EXE
[-S <[server]>]
[-d <database>]
[-E] 受信任连接
[-U <[login id]>]
[-P <[password]>]
[-f <file list to load>]
[-i <input filename>
-o <output filename>]
[-1] 单个实例模式
[-T <template directory>]
[-D <script directory>]
[-C <configuration file>]
[-F <U | A | O>] 文件格式 (Unicode | ANSI | OEM)
 
如果你要更新存储过程只需要要SQL语句中：
CREATE OR REPLACE PROCEDURE ...
就行了，而不用先执行一句DROP PROCEDURE再来CREATE PROCEDURE，这不就变成一句了吗？
在SQL Server下不行？……那我就又找到一项Oracle比SQL Server好用的地方了，这样的话，
你就分两次来执行SQL语句嘛。
 
刚才看了一个ISQLW的帮助，发现这东东真好用，感谢xianjun和子弹，我很有收获。

下面是摘自它的帮助：

本例连接到 MyServer（pubs 数据库)，并执行 input_file 中的 SQL 语句，执行结果存储在 output_file 中。
isqlw -S MyServer -d pubs -U sa -P -i input_file -o output_file


 
我怎么只是把*.sql文件装载进来了，而且查询分析器显示出来了，它不运行，下面代码有什么问题：

ShellExecute(Application.Handle, 'open', 'C:/Program Files/Microsoft SQL Server/80/Tools/Binn/isqlw.exe',
'isqlw /U sa /P /S lzx /d chss /q /f d:/CreateSp.sql', nil, SW_HIDE);

isqlw和/q有无都一样
 
你的参数出错了，应该是这样：
ShellExecute(Application.Handle, 'open', 'C:/Program Files/Microsoft SQL Server/80/Tools/Binn/isqlw.exe',
' /U sa /P /S lzx /d chss /q /i d:/CreateSp.sql /o d:/R.txt', nil, SW_HIDE);
注意/i与/o是要成对出现，另不是用/f。
 
我好象还发现个问题，就是ADO的一个控件好象不支持标签，而TDataBase控件可以，象下面的代码(只是试验用的）：
if 1 < 2
goto tt
commit tran
tt:
return

在ADO下运行出错，而TDataBase里可以通过！

xianjun
谢谢，按你的写法可以解决！
我用的WinExec(PChar('isqlw -Usa -P -Slzx -dchss -i"d:/CreateSp.sql" -o"d:/eee.txt" -b'), SW_Hide);
也解决了，现在还有个问题，就是对错误的监测，看帮助说返回值小于31（32），就说明出错了，但好象不太正确，
许多情况下不管执行成功与否，winexec返回值都是33。
另外，有没有可能判断isqlw执行出错否（可能得到它的错误Id吗？），我只能想到去查找输出的的文件内容，找到
“服务器: 消息 ” ，说明执行出错了，有更好的办法吗？
 
i := WinExec(PChar('isqlw -Usa -P -Slzx -dchss -i"d:/CreateSp.sql" -o"d:/eee.txt" '), SW_Hide);
if i > 31 then
begin
if FindStr('d:/eee.txt', '服务器: 消息 ') then
showmessage('Sql执行出错!');
(FindStr是我自己写的查找字符的函数)
我想通过这种方式判断sql是否执行成功，但有个问题，WinExec执行输出的eee.txt文件总是滞后，如果一开始
没这个文件，在FindStr执行时它还没有被创建，如果有，内容也还是上次的，没有刷新，怎么解决这个问题？
winexec到底是时候产生输出文件的？

如果winexec后要中止isqlw程序又该怎么实现，用CreateProcess代替它行吗？

对API不熟悉，真是烦人，望大家能帮忙！
 
你可以等它执行完成后再调用你的FindStr
function CreateProcessAndWait(const AppPath, AppParams: String;
Visibility: word): DWord;
var
SI: TStartupInfo;
PI: TProcessInformation;
Proc: THandle;
begin
FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);
SI.wShowWindow := Visibility;
if not CreateProcess(PChar(AppPath), PChar(AppParams), Nil, Nil, False,
Normal_Priority_Class, Nil, Nil, SI, PI) then
raise EExecuteError.CreateFmt('Failed to execute program. Error Code %d',
[GetLastError]);
Proc := PI.hProcess;
CloseHandle(PI.hThread);
if WaitForSingleObject(Proc, Infinite) <> Wait_Failed then
GetExitCodeProcess(Proc, Result);
CloseHandle(Proc);
end;
命令行执行完成后ISQLW不退出吗？ 如果不退出可能给它发一个WM_CLOSE消息
或者直接用TerminateProcess(PI.hProcess)强制退出
 
xianjun
太谢谢了，你的方法我试了可行！
还有个小问题，就是CreateProcessCreateProcess(PChar(AppPath), PChar(AppParams), Nil, Nil, False,
Normal_Priority_Class, Nil, Nil, SI, PI)；
因为它的第一个参数要求是执行文件的绝对路径，这样要得去查找isqlw.exe在哪，挺麻烦的，
我想给它传nil，而在第二个参数中包含它，比如这样使用：
CreateProcess(nil, PChar('isqlw -Slzx -dchss -Usa -P -i"d:/CreateSp.sql" -o"d:/eee.txt"'),
nil, nil, False, Normal_Priority_Class, nil, nil, SI, PI)
想通过这种方法来避免查找isqlw路径，在本机上运行能通过。
但确定不了这样保险不（在保证运行程序的机器安装了isqlw的前提下），望指点！
 
另外，是不是CreateProcess执行成功，就说明isqlw肯定执行过？我把该函数改了一下：
function CreateProcessAndWait(const AppParams: String; Visibility: word;
var d: DWord): Boolean;
var
SI: TStartupInfo;
PI: TProcessInformation;
Proc: THandle;
begin
FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);
SI.wShowWindow := Visibility;
result := true;
if not CreateProcess(nil, PChar(AppParams), Nil, Nil, False,
Normal_Priority_Class, Nil, Nil, SI, PI) then
begin
result := false;
raise Exception.CreateFmt('Failed to execute program. Error Code %d',
[GetLastError]);
end;
Proc := PI.hProcess;
CloseHandle(PI.hThread);
if WaitForSingleObject(Proc, Infinite) <> Wait_Failed then
GetExitCodeProcess(Proc, d);
CloseHandle(Proc);
end;
调用代码：
if CreateProcessAndWait('isqlw -Slzx -dchss_lzx -Usa -P -i"d:/CreateuSp.sql" -o"d:/eee.txt"',SW_HIDE, d);
begin
if FindStr('d:/eee.txt', '服务器: 消息') then
showmessage('sql执行出错！');
end;

上面的代码可行吗？我只在本机调试通过了。
 
在保证运行程序的机器安装了isqlw的前提下，这样执行应该是没有问题的
有问题的话
raise Exception.CreateFmt('Failed to execute program. Error Code %d', [GetLastError]);
也会告诉你出错了。

代码应该没什么问题，但是你可以看看那d有什么作用，它是isqlw执行后的返回值
 
谢谢大家的帮忙！

特别感谢xianjun的热心帮忙！！！
 
您必须登录或注册才可回复。

Similar threads

S
[教程]使用 ZValueWatch 在主线程中监测值变化
回复
0
查看
476
swish
S
X
kbmmw 中实现客户端自动更新 - xalion
回复
0
查看
775
xalion
X
S
[教程]本用 System.Zip 从流中获取解压数据
回复
0
查看
885
swish
S
X
如何在unidac 中执行一次查询获得多个数据集？ - xalion
回复
0
查看
944
xalion
X
不
关于在Delphi中链接VC的obj文件（XE2以上版本） - 不得闲
回复
0
查看
926
不得闲
不
后退
顶部