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

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

二、导出脚本的时候注意：保存为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;