能不能用ADOQUERY执行SQL文件中的所有SQL语句？

[骑牛上铂金]

能不能用ADOQUERY执行SQL文件中的所有SQL语句？请给个解决思路1

[chenzhuo]

这个没必要吧,用命令去执行就行了!

[喝口水]

做成存储过程

[hongqi162]

用TFileStream读文件中的sql语句 然后转换成TStringStream,用adocommand执行TStringStream的datastring

[dxtaxlyh]

没有必要,要不直接用MSSQL查询分析器去做

[骑牛上铂金]

我要在程序中动态生成一个SQL文件。再在其他地方执行。

[lupao520]

你写进xml文件中 ，一条语句做成一子结点，然后加载进来 不就可以了

[liangpei2008]

有些SQL语句必须是在批首执行的，如Create View等，所以按照楼上的做法仅仅将SQL文本中的GO去掉是不行的~

[骑牛上铂金]

有其他好的解决办法吗，等ING................

[仙侣步惊云]

TADOQuery本身就具备执行多条sql语句的能力。
你把sql语句写进一个sql文件中，然后逐行读入TADOQuery的sql属性中，sql本身就是一个TStringList类型。
应该把一系列执行的sql语句放在一个事务中。
//执行一个SQL脚本文件，文件只能是ANSI编码的。
//如果文件是UNICODE编码的话，则会乱码。
var
s:string;
sqltext : string;
sqlfile : TextFile;
begin
if OpenDialog1.Execute then
begin
AssignFile(sqlfile, OpenDialog1.FileName);
FileMode := 0;
Reset(sqlfile);
try
ADOConnection1.BeginTrans;
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;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sqltext);
adoquery1.ExecSQL;
end;
CloseFile(sqlfile);
ADOConnection1.CommitTrans;
application.MessageBox('SQL角本完成！',
'提示',MB_OK+MB_ICONINFORMATION);
except
raise exception.Create('SQL角本执行失败!');
ADOConnection1.RollbackTrans;
end;
end;
end;

其中：ADOConnection1,adoquery1,OpenDialog1都是窗口中放置的控件。可以将之设为局部变量，在本函数内创建和消毁。

[lupao520]

照楼上的讲 ，用动态数组 或Tstrings 不就完了 不用绕圈子