procedure CreateNewDB(dbname, filename, logfilename: string; query: TADOQuery);
begin
query.Close;
with query.sql do
begin
clear;
add('create database ' + dbname);
add('on ');
add('primary(name=library_data, ');
add('filename= "' + filename + '", ');
add('size=10, ');
add('maxsize=15, ');
add('filegrowth=20%) ');
add('log on ');
add('(name=library_log, ');
add('filename= "' + logfilename + '", ');
add('size=3, ');
add('maxsize=5, ');
add('filegrowth=1) ');
end;
try
query.ExecSQL;
except
MessageDlg('数据库建立出错! ', mtInformation, [mbOk], 0);
exit;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
Connection1: TADOConnection;
Query1: TADOQuery;
Server: string;
Username: string;
Password: string;
const
connectionstring =
'Provider=SQLOLEDB.1;Password=%s;Persist Security Info=True;User ID=%s;Data Source=%s';
begin
Server := '(local)'; // 服务器地址
Username := 'sa'; // sqlserver用户名
Password := '861861'; // sqlserver密码 Connection1 := TADOConnection.Create(nil); // 创建连接组件
Query1 := TADOQuery.Create(nil); // 创建数据集组件
try
Connection1.LoginPrompt := false; // Connection不提示登录
Connection1.connectionstring := format(connectionstring,
[Password, Username, Server]); // 连接串定义,用于连接sqlserver
Query1.Connection := Connection1; // 指定连接Connection1给数据集Query1
CreateNewDB('xxx', 'd:\sqldata\xdat.mdf', 'd:\sqldata\xlog.ldf', Query1); // 调用函数,创建数据库
finally
Connection1.Free;
Query1.Free;
end;
end;
解决方案 »
- cxgrid怎样显示行号且能打印、导出行号?
- 回复:足让你打吃大惊一小段奇异的代码
- 请问大家DELPHI里怎样申明这个函数?
- 能否在delphi中调用excel,将excel中的编辑栏去掉
- 李维是个骗子吗?borland是个骗子吗?
- 在ADO中,如何使用嵌套事务?谢谢!
- 远程访问sql server 问题。。。。困惑中,等待中。
- 把clientdataset传入dll后,不能访问fields[i]的displayformat
- 在进行程序自适应分辨率的时候,窗体控件的属性怎样去设置呢?
- 请教远程连接数据库的问题
- 有关于delphi文件查找的问题..请各位大大帮下忙.
- DELPHI动态创建数据库时,如何显示进度条?
建表 create table t(id int)