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

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;