如何在程序中执行sql脚本

[WEIWEILI]

如何在程序中执行sql脚本

[WEIWEILI]

to newsofter
通过Tstringlist读取文件
取上来的string是乱码

[ghtghtmalone]

我看用ADOQUERY也可以啊，
WITH ADOQUERY1 DO
TRY
CLOSE；
SQL.CLEAR;
SQL.ADD('……………………………………');
SQL.ADD('……………………………………');
SQL.ADD('……………………………………');
SQL.ADD('……………………………………');
SQL.ADD('……………………………………');
SQL.ADD('……………………………………');
…………………………
PREPARED;
EXECSQL;
MESSAGEBOX('OK');

EXCEPT
MESSAGEBOX('FALSE');
END；

[angle097113]

通过Tstringlist读取文件
mystrings :Tstringlist;
Mystrings :=Tstringlist.create;
Mystrings.loadfromfile(filename)
filename可以通过opendialog来获取
for i:=0 to mystrings.count-1 do
if lowercase(mystrings[i])='go' then

[WEIWEILI]

bcp是什么啊 请教了
另外
djhai(不胜寒)请解释一下

[WEIWEILI]

ShellExecute(Handle,'open','osql.exe ',pchar('-Usa -P -d test -i'+sqlpath),'',SW_hide);
是可以的
但是要指定osql.exe的绝对路径，否则第一次运行的时候就不会执行。

[djhai]

抄一下SQL Server联机帮助的解释：（哈哈哈~~~)
bcp 实用工具
bcp 实用工具在 Microsoft® SQL Server™ 2000 实例和数据文件之间以用户指定的格式复制数据。
语法
bcp {[[database_name.][owner].]{table_name | view_name} | "query"}
{in | out | queryout | format} data_file
[-m max_errors] [-f format_file] [-e err_file]
[-F first_row] [-L last_row] [-b batch_size]
[-n] [-c] [-w] [-N] [-V (60 | 65 | 70)] [-6]
[-q] [-C code_page] [-t field_term] [-r row_term]
[-i input_file] [-o output_file] [-a packet_size]
[-S server_name[\instance_name]] [-U login_id] [-P password]
[-T] [-v] [-R] [-k] [-E] [-h "hint [,...n]"]

[djhai]

WEIWEILI() ( ) 叫我解释啥？？？

[WEIWEILI]

bcp 可以象ShellExecute(Handle,'open','osql.exe ',pchar('-Usa -P -d test -i'+sqlpath),'',SW_hide); 这种方式执行吗
还有假如我在一台电脑上第一次运行软件，不起作用，必须在cmd下执行一次osql -Usa -P -d test -i'+sqlpathname
那么以后运行软件就可以了
有办法可以解决吗
bcp 有类似情况吗

[WEIWEILI]

为什么执行软件是第一次不起作用啊

[qianguob]

我想你最好还是用
SHELLEXECUTE 这种方法。
至于路径，你可以使用一些取路径的函数啊。
可以现在查找这个文件啊。

[WEIWEILI]

ShellExecute(Handle,'open','C:\Program Files\Microsoft SQL Server\80\Tools\Binn\osql.exe ',pchar('-Usa -P -d test -i'+sqlpath),'',SW_hide);
osql.exe我指定了本机的路径，可是第一次如果没有在windows上运行osql的话，那么软件里运行就不起作用。或者有什么别的办法也好啊。help me !

[WEIWEILI]

没有人给点意见吗？
明天结贴，来者有分，
谢谢大家帮忙

[WEIWEILI]

结贴了 散份了

[topcn]

呵呵，好像应该是这样：
with ADOQuery1 do
begin
Close;
SQL.clear;
SQL.LoadFromFile(ExtractFilePah(Application.ExeName)+'xx.sql');
Open; //Execsql;
end;

[WEIWEILI]

待我试来
若可以定有重谢

[khzide]

需下载一个专说控件，就是做这个用。在讲dbExpress的一本好书最后讲到。我用过。不过需要回家查一下。如果需要[e-mail]

[WEIWEILI]

不行啊
执行是报错（''第一行错误）
你确信没问题吗？

[WEIWEILI]

谢谢能给我一个吗
[e-mail]
或[e-mail]

[深宇]

procedure ExecSql(const SQLText: WideString);
var
i:integer;
str:tstringlist;
begin
str:=tstringlist.Create;
try
str.Text:=sqltext;
ADOConnection1.BeginTrans;
with adoquery1 do
begin
close;
sql.Clear;
for i:=0 to str.Count-1 do
begin
if ((copy(trim(str.Strings[i]),1,2)<>'/*') and
(copy(trim(str.Strings[i]),1,2)<>'--') and
(uppercase(copy(trim(str.Strings[i]),1,2))<>'GO')) then
SQL.Add(Str.Strings[i]);

if uppercase(copy(trim(str.Strings[i]),1,2))='GO' then
begin
try
ExecSQL;
except
begin
adoconnection1.RollbackTrans;
raise;
end;
end;
end;
end;
end;
ADOConnection1.CommitTrans;
finally
str.Free;
end;
end;


调用示例
procedure tform1.button1click(Sender: TObject);
var
sqltext:tstringlist;
begin
sqltext:=tstringlist.Create;
try
sqltext.Add('delete from Comm_LinkMan where Genre_ID='+LinkMan_Genre.fieldbyname('Genre_ID').AsString );
sqltext.Add('go');
sqltext.Add('delete from Comm_LinkMan_Genre where Genre_ID='+LinkMan_Genre.fieldbyname('Genre_ID').AsString );
sqltext.Add('go');
ClientDMForm.appserver.ExecSql(sqltext.Text);
LinkMan_Genre.Refresh;
LinkMan.Refresh;
CreateTree;
finally
sqltext.Free;
end;
end;

[深宇]

有点漏洞
改为
if uppercase(copy(trim(str.Strings[i]),1,2))='GO' then
begin
try
ExecSQL;
sql.clear;
except
begin
adoconnection1.RollbackTrans;
raise;
end;
end;
end;