Delphi 7 在程序中直接执行SQL脚本文件
2004-10-27 20:11
639 查看
在处理MSDE一些操作中。需要执行一些SQL脚本。有的是从
SQLServer 2000中生成的SQL为后缀的脚本。在MSDE中没有企业管理器，
操作都是在程序中完成的。所以用以下函数来执行SQL脚本。
//执行一个SQL角本文件，文件只能是ANSI编码的。
//如果文件是UNICODE编码的话，则会乱码。
var
s:string;
sqltext : string;
sqlfile : TextFile;
begin
if OpenDialog1.Execute then
begin
AssignFile(sqlfile, OpenDialog1.FileName);
FileMode := 0;
Reset(sqlfile);
try
ADOConnection1.BeginTrans;
while not eof(sqlfile) do
begin
Readln(sqlfile, s);
sqltext:=s;
while (not eof(sqlfile)) and
(uppercase(trim(s))<>'GO') do
begin
Readln(sqlfile, s);
if (uppercase(trim(s))<>'GO') then
sqltext:=sqltext+' '+s;
end;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sqltext);
adoquery1.ExecSQL;
end;
CloseFile(sqlfile);
ADOConnection1.CommitTrans;
application.MessageBox('SQL角本完成！',
'提示',MB_OK+MB_ICONINFORMATION);
except
raise exception.Create('SQL角本执行失败!');
ADOConnection1.RollbackTrans;
end;
end;
end;
其中：ADOConnection1,adoquery1,OpenDialog1都是窗口中放置的控件。可以将之设为局部变量，在本函数内创建和消毁。
20:03:52
SQLServer 2000中生成的SQL为后缀的脚本。在MSDE中没有企业管理器，
操作都是在程序中完成的。所以用以下函数来执行SQL脚本。
//执行一个SQL角本文件，文件只能是ANSI编码的。
//如果文件是UNICODE编码的话，则会乱码。
var
s:string;
sqltext : string;
sqlfile : TextFile;
begin
if OpenDialog1.Execute then
begin
AssignFile(sqlfile, OpenDialog1.FileName);
FileMode := 0;
Reset(sqlfile);
try
ADOConnection1.BeginTrans;
while not eof(sqlfile) do
begin
Readln(sqlfile, s);
sqltext:=s;
while (not eof(sqlfile)) and
(uppercase(trim(s))<>'GO') do
begin
Readln(sqlfile, s);
if (uppercase(trim(s))<>'GO') then
sqltext:=sqltext+' '+s;
end;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sqltext);
adoquery1.ExecSQL;
end;
CloseFile(sqlfile);
ADOConnection1.CommitTrans;
application.MessageBox('SQL角本完成！',
'提示',MB_OK+MB_ICONINFORMATION);
except
raise exception.Create('SQL角本执行失败!');
ADOConnection1.RollbackTrans;
end;
end;
end;
其中：ADOConnection1,adoquery1,OpenDialog1都是窗口中放置的控件。可以将之设为局部变量，在本函数内创建和消毁。
20:03:52
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- Delphi 7 在程序中直接执行SQL脚本文件
- 给朋友写了一个从脚本文件逐行加载执行SQL语句的程序，现在分享给将来需要的朋友们参考
- 如何在C#中用程序执行指定的SQL脚本文件，实现自动安装创建数据库.txt
- java程序执行SQL脚本文件
- 给朋友写了一个从脚本文件逐行加载执行SQL语句的程序，现在分享给将来需要的朋友们参考
- sql脚本直接能执行但是以sql文件不能执行
- 如何用C#程序直接执行.sql文件里的SQL语句
- 如何在C#中用程序执行指定的SQL脚本文件，实现自动安装创建数据库
- 给朋友写了一个从脚本文件逐行加载执行SQL语句的程序，现在分享给将来需要的朋友们参考
- java程序执行SQL脚本文件
- 给朋友写了一个从脚本文件逐行加载执行SQL语句的程序，现在分享给将来需要的朋友们参考
- java程序执行SQL脚本文件
- 直接附加数据库的批处理文件 和 执行sql 脚本的批处理文件的写法
- java程序执行SQL脚本文件
- c# vs2013+sql2008r2 直接执行.sql脚本文件
- java调用sqlplus执行批量脚本获得输出结果和调用.bat文件
- SQL 执行脚本文件
- C#执行SQL脚本文件
- PL/SQL Developer 下执行oracle的脚本文件
- Java 执行 SQL 脚本文件