请教DELPHI下如何运行SQL脚本啊，动态创建存储过程或修改存储过程？

Question

请教如何用DELPHI创建或修改存储过程，有没有实际可正确运行的例子啊！？？procedure TForm1.Button1Click(Sender: TObject);var
  SqlStr,Tmp:string;
  F:TextFile;
begin
  assignfile(F,'e:\update.sql');
  reset(f);
  Repeat
    Readln(F,tmp);
    if tmp='GO' then
      begin
      adoconnection1.Execute(sqlstr);
      sqlstr:='';
      tmp:='';      end;
    sqlstr:=sqlstr+tmp+chr(13)+chr(10);
  Until eof(F);
  closefile(F);
end;运行时候老提示错误？

Answer 1

TForm1.Button1Click(Sender: TObject);var
  SqlStr,Tmp:string;
  F:TextFile;
begin
  assignfile(F,'e:\update.sql');
  reset(f);
  Repeat
    Readln(F,tmp);
    if tmp='GO' then
      begin
      adoconnection1.Execute(sqlstr);
      sqlstr:='';
      tmp:='';      end;
    sqlstr:=sqlstr+tmp+chr(13)+chr(10);
  Until eof(F);
  closefile(F);
end;运行时候老提示错误？提示为“file not found"，文件是E盘下的UPDATE.SQL文件
我把文件名改为”UPDATE“没有报错，但没有任何操作，发现什么动没做？？请教高手给我个例子好吗？？？？很急？

Answer 2

http://search.csdn.net/Expert/topic/1602/1602669.xml?temp=.1792719
看一下吧

Answer 3

1:你这样执行一个文件脚本也行,你将你的脚本文件的扩展名该为.txt试一试
2:你也可以不用一行行读出来,你可以用命令执行一个脚本文件的所有脚本.你可以参考osql.exe的帮助
或在论坛中搜索一下关于osql 的贴子:
我给你提供一个http://search.csdn.net/Expert/topic/1425/1425127.xml?temp=7.490176E-02

Answer 4

用一个opendialog  来打开文件试试,是你文件处理那里出的错~~~