读写SQL脚本进行创建表、视图和存储过程

最新推荐文章于 2022-11-02 19:35:07 发布

weixin_30466421

最新推荐文章于 2022-11-02 19:35:07 发布

阅读量351

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/qi123/p/6305867.html

版权

一、按照先创建表、视图、存储过程的顺序创建；

二、导出脚本的时候注意：保存为ANSI文本，选项中：if not exists为true，防止覆盖；包含说明性标头为false;use database为false，防止在原数据库操作；编写扩展属性脚本为false，防止生成对应的函数；

三、脚本中不能带有“--”的注释符号和/**/

代码：

tablefile := ExtractFilePath(Application.ExeName)+'DBUpdateFiles\table.sql'  ;
  AssignFile(sqlfile, tablefile);
  FileMode := 0;
  Reset(sqlfile);
  query := TADOQuery.Create(nil);
  try
      query.ConnectionString :=vgs_connstr;
      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;
        query.Close;
        query.SQL.Clear;
        query.SQL.Add(sqltext);
        query.ExecSQL;
      end;
      CloseFile(sqlfile);
      query.Close;
      freeandnil(query);
  except
        MessageBox(0,PChar(sqltext),'22',MB_OK);
    query.Close;
    freeandnil(query);
  end;