zoukankan      html  css  js  c++  java
  • Delphi 7 在程序中直接执行SQL脚本文件

    Delphi 7 在程序中直接执行SQL脚本文件

    在处理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都是窗口中放置的控件。可以将之设为局部变量,在本函数内创建和消毁。

  • 相关阅读:
    异常介绍
    docker 命令
    acm
    Openfiler能把标准x86/64架构的系统变成一个强大的NAS、SAN存储和IP存储网关
    docker 图解学习
    基于Docker的TensorFlow机器学习框架搭建和实例源码解读
    菜鸟打印控件
    Oracle 12c on Solaris 10 安装文档
    内存对齐小解
    安装oracle 11gr2 rac on solaris
  • 原文地址:https://www.cnblogs.com/tc310/p/5197701.html
Copyright © 2011-2022 走看看