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的值改造,怎么做,请写的具体点,小弟愚钝。
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的值改造,怎么做,请写的具体点,小弟愚钝。
解决方案 »
- 读取Memo内容的问题
- 求个取字符串函数
- 做了个ie工具条,弹出式菜单不能弹出的问题
- 通过控制面板对系统进行的配置,能不能通过调用对应cpl文件中的函数来等价实现?
- 我想在Access的查询中增加自动排名字段该怎样........
- 我想做一个视频采集程序,但不想用各种视频控件,哪里有Delphi开发Dshow的资料,各位帮帮忙??
- 想送礼物给女孩子,请问兄弟们送什么好呢?
- 我用quickreport时遇到了这样的问题,那位大虾可以为我解惑?
- delphi6中Tidpop3控件怎么取得带附件的邮件中的正文呀?
- delphi的OCX能调用 asp.net的web服务吗?
- sos~
- 请教为什么用delphi编译后生成的exe文件总是提示有病毒
Exec('Create Database'+ edit1.Text+ ' on ......')不好有急事,走先! 晚上再来
这样也可以
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的安装目录函数