delphi 执行sql文件
来源:互联网 发布:人工智能技术的难点 编辑:程序博客网 时间:2024/06/05 05:02
Procedure ExecuteSQLByDelphi(const FileName:String;ADOCommand:TADOCommand);
var
SourceSQLScript:TStringList;
SQLScriptCanExecute:TStringList;
i:Integer;
tmpString:String;
begin
SourceSQLScript:=TStringList.Create;
try
SQLScriptCanExecute:=TStringList.Create;
try
SourceSQLScript.LoadFromFile(FileName);
//中间这里只须按"GO"拆分成不同的段即可,其它可以直接传递给ADOCommand.CommandText执行。
for i:=0 to SourceSQLScript.Count-1 do
Begin
tmpString:=SourceSQLScript.Strings[i];
if UpperCase(Trim(tmpString))='GO' then
Begin
ADOCommand.CommandText:=SQLScriptCanExecute.Text;
ADOCommand.Execute;
SQLScriptCanExecute.Clear;
Continue;
End;
SQLScriptCanExecute.Add(tmpString);
End;
if SQLScriptCanExecute.Count>0 then
Begin
ADOCommand.CommandText:=SQLScriptCanExecute.Text;
ADOCommand.Execute;
End;
finally
SQLScriptCanExecute.Free;
end;
finally
SourceSQLScript.Free;
end;
end;
var
SourceSQLScript:TStringList;
SQLScriptCanExecute:TStringList;
i:Integer;
tmpString:String;
begin
SourceSQLScript:=TStringList.Create;
try
SQLScriptCanExecute:=TStringList.Create;
try
SourceSQLScript.LoadFromFile(FileName);
//中间这里只须按"GO"拆分成不同的段即可,其它可以直接传递给ADOCommand.CommandText执行。
for i:=0 to SourceSQLScript.Count-1 do
Begin
tmpString:=SourceSQLScript.Strings[i];
if UpperCase(Trim(tmpString))='GO' then
Begin
ADOCommand.CommandText:=SQLScriptCanExecute.Text;
ADOCommand.Execute;
SQLScriptCanExecute.Clear;
Continue;
End;
SQLScriptCanExecute.Add(tmpString);
End;
if SQLScriptCanExecute.Count>0 then
Begin
ADOCommand.CommandText:=SQLScriptCanExecute.Text;
ADOCommand.Execute;
End;
finally
SQLScriptCanExecute.Free;
end;
finally
SourceSQLScript.Free;
end;
end;
0 0
- delphi 执行sql文件
- Delphi执行SQL脚本
- Delphi 7 在程序中直接执行SQL脚本文件
- SQL 执行SQL文件
- 批处理执行.SQL文件
- java 执行sql文件
- 执行.sql文件
- Mysql 执行Sql 文件
- 批量执行SQL文件
- sqlplus 执行*.sql文件
- DB2 执行SQL文件
- mysql执行sql文件
- Navicat执行.sql文件
- Oracle执行sql文件
- 批量执行SQL文件
- mysql 执行SQL文件
- oracle执行sql文件
- java 执行Sql文件
- 新手请教网页flash游戏的技术
- ASP.NET初了解---Html控件和Web控件
- 算法入门(0)
- mysql日期函数From_unixtime及UNIX_TIMESTAMP及DATE_FORMAT(后者只能格式化标准日期格式,时间戳的不行)
- <曾仕强论三国智慧-妄言害自己>观后感
- delphi 执行sql文件
- cvConvertImage函数
- 删除一个字符串中相同字符
- 使用phpQuery轻松采集网页内容
- 解决Eclipse导入Maven项目无法引入 Maven Dependencies Libraries 问题
- 计算机操作系统——进程管理(5)
- JVM崩溃的原因及解决方法
- 九度OJ 1067: n的阶乘
- 静默年华,许下春暖花开的心愿