超难问题，数据库脚本(maindb.sql)用delphi代码怎么样才能生成数据库？
超难问题，数据库脚本(maindb.sql)用delphi代码怎么样才能生成数据库？ 问题点数：0、回复次数：8Top
1 楼Ephesus（艾菲索斯）回复于 2005-04-04 15:55:53 得分 0
做好数据库连接后，用ADOQuery，它的SQL属性是TStrings类型，这样，我们就能通过它的LoadFromFile这个方法把文件中的SQL语句添加到SQL属性中，在运行ADOQuery就行了Top
2 楼lghzl（）回复于 2005-04-04 16:03:41 得分 0
数据库脚本中的内容应该是sql语句，使用delphi调用sql语句执行就应该可以Top
3 楼fhuibo（永远深爱一个叫“莎”的好女孩儿）回复于 2005-04-04 16:16:46 得分 0
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.LoadFromFile('d:\wq.sql');
try
ExecSQL;
showmessage('成功');
except
showmessage('错误');
end;
end;Top
4 楼jinjazz（近身剪）回复于 2005-04-04 16:21:20 得分 0
用isql命令吧，如果有go语句adoquery是不行的Top
5 楼malamala（还真是笨）回复于 2005-04-04 17:05:20 得分 0
先要连接到master数据库上，用CREATE DATABASE 的语句创建数据库，然后切换连接到新建的数据库上，load sql脚本创建表及其他的东东。Top
6 楼oupj（）回复于 2005-04-04 17:58:43 得分 0
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.LoadFromFile('maindb.sql');
try
ExecSQL;
showmessage('成功');
except
showmessage('错误');
end;
end;
Top
7 楼web700（*FS*的小狗腿子）回复于 2005-04-04 18:20:41 得分 0
同意 jinjazz(Top
8 楼getit911（Windows转Linux中）回复于 2005-04-04 18:29:00 得分 0
检测脚本中GO出现的位置，用
ADOQuery1.ExecSQL代替执行
var
ts:tstringlist;
...
ts.loadfromfile('maindb.sql');
for i:=0 to ts.Count-1 do
begin
if ts[i]<>'GO' then
ADOQuery1.SQL.Add(ts[i])
else
begin
ADOQuery1.ExecSQL;
adoquery1.SQL.Clear;
end;
end;
Top
