如何把edit1.text的值作为sql server的数据库名字用create database语句建立，请细心指教。
server sql建立数据库语句
create database databasename
on
(name=databasename_dat,
filename='f:\mssql7\data\databasenamedat.mdf',
size=5,
maxsize=20,
filegrowth=1
)
好想存储过程不能用create database语句，create database语句好象也不能带参数。
请问要把上面这几句用edit1.text的值改造，怎么做，请写的具体点，小弟愚钝。
问题点数：50、回复次数：4Top
1 楼sdhp（小毅）回复于 2003-02-02 12:41:14 得分 5
Server SQL?? SQL Server ??
如果是SQL Server 那么：用
Exec('Create Database'+ edit1.Text+ ' on ......')
不好有急事，走先！ 晚上再来Top
2 楼cailiantao（蔡练涛）回复于 2003-02-02 21:15:19 得分 5
Exec('Create Database ['+ Trim(edit1.Text)+ '] on ......')
这样也可以Top
3 楼larruping（久有凌云志）回复于 2003-02-03 01:41:15 得分 40
procedure TMainFrm.peCreateSQLScript;
var
sTempStr,sTempStr2,sSavePath,sTempStr3,sTempStr4: string;
begin
sTempStr := fnGetMSSQLSERVERPath + '\Data\' + Edit3.Text + '_dat.mdf';
sTempStr2 := fnGetMSSQLSERVERPath + '\Data\' + Edit3.Text + '_log.ldf';
sSavePath := GetCurrentDir + '\DataSource\CreateDB.sql';
sTempStr3 := Edit3.Text + '_dat';
sTempStr4 := Edit3.Text + '_log';
Memo1.Clear;
with Memo1.Lines do
begin
Add('CREATE DATABASE '+Edit3.Text+' ');
Add('ON');
Add('( NAME = '+sTempStr3+',');
Add(' FILENAME = '''+sTempStr+''',');
Add(' SIZE = 2MB,');
Add(' MAXSIZE = 500MB,');
Add(' FILEGROWTH = 3MB )');
Add('LOG ON');
Add('( NAME = '+sTempStr4+',');
Add(' FILENAME = '''+sTempStr2+''',');
Add(' SIZE = 2MB,');
Add(' MAXSIZE = 500MB,');
Add(' FILEGROWTH = 3MB )');
SaveToFile(sSavePath); {存为文件}
end;
end;
然后用winexec执行该脚本文件就行了^_^
注:fnGetMSSQLSERVERPath是取得MSSQL的安装目录函数Top
4 楼ilikeff8（迷茫）回复于 2003-02-03 03:05:26 得分 0
用ADOX直接建Top
相关问题
- --SQL SERVER语句问题：
- ----SQL SERVER语句问题：
- 求一条简单的 SQL 查询语句([ODBC;Driver=SQL Server;Server=perry;Uid=sa;pwd=;Database=ServeMicroStar])
- SQL server的SQL语句问题（和case语句有关）
- MS SQL SERVER 语句 转化为 PL*SQL语句 的问题，急！！！！！
- SQL SERVER中的SQL语句用法?
- 请教！Sql Server的sql语句问题？？
- 急用，寻求oracle语句转换为sql server语句，语句如下：
- access里的sql语句转换为sql server的sql语句的问题
- 问一句 UPDATE 语句. [sql server]
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
