高手请进，急求：delphi中动态创建sql数据库时，如何通过Edit组件来指定数据库名

Question

create database testDB  
on primary
(
name = testdataa, 
filename='D:\testdataa.mdf',
size = 4,
 maxsize=10,
filegrowth=10%
)
log on
(
 name = testlogfile,
filename='D:\testlogfile.ldf',
size=1,
maxsize=4,
filegrowth=10%
)其中的testDB是数据库名，如果要在程序运行的时候，通过在　edit　中输入数据库名来指定呢？？

Answer 1

var
s1 : string;
sql : string;
begins1 := edit1.text;sql := 'create database ' + s1 + '...';
// ... 就是
on primary
(
name = testdataa, 
filename='D:\testdataa.mdf',
size = 4,
 maxsize=10,
filegrowth=10%
)
log on
(
 name = testlogfile,
filename='D:\testlogfile.ldf',
size=1,
maxsize=4,
filegrowth=10%
)
end;

Answer 2

不好意思，题目没说清楚还有一点是：我的这些SQL语句是保存在一个文本文件中我是通过　loadfromfile() 将该文件调进来的这样又怎么实现呢。

Answer 3

create database //loadfromfile后在第一行后面加上edit.text在执行SQL不就行了
on primary
(
name = testdataa, 
filename='D:\testdataa.mdf',
size = 4,
 maxsize=10,
filegrowth=10%
)
log on
(
 name = testlogfile,
filename='D:\testlogfile.ldf',
size=1,
maxsize=4,
filegrowth=10%
)

Answer 4

xixuemao(从哪里跌倒就要从哪里抬出去)　老大，怎么加呀？我这些代码都是作为一个整体导入ADOQuary中的sql属性中的你说　　//loadfromfile后在第一行后面加上edit.text在执行SQL不就行了你loadfromfile时，程序已在运行了你怎么再加进去呢？你通过 ADOQuary.sql.add()方法的话，是加在上面代码的后面呀加的位置不对撒请高手明示！！在线等呀

Answer 5

谁让你直接导入到query的sql里面去了，先放到一个stringlist里面，通过这个load过来，
然后通过字符串替换，将这个stringlist里面第一行的原来数据库名字替换为edit.text，然后在放到query里面即可

Answer 6

dabaicai(一直是菜鸟)非常感谢！！终于调试成功了。