Delphi有没有执行SQL脚本的控件？

Question

我用AdoQuery执行一个创建SQL Server数据库的脚本，它就提示我语法错，实际上
只要SQL语句载两行以上就不能执行了，用Adoconnecton.execute也同样
又没有什么办法执行一个很长的T-SQL脚本？

Answer 1

WinExec('osql -Usa -P -SServer -dDatabase -i"1.sql"');

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    winexec('osql /U sa /P /i c:\data2.sql',sw_hide);
  except
    showmessage('数据库建立失败！');
  end;
  application.MessageBox('数据库建立完毕','提示',MB_ICONINFORMATION);
end;