create database可不可用在delphi中

[wishyoulikenet]

在delphi数据库中可不可以用 query1.sql.add('create database f_name');
怎么用啊,
我用的时候老是出错!!!!!!!!!!

[jin_zai]

with query1 do
begin
close;
sql.clear;
sql.add('create table 表名');
sql.add('(字段名1 类型，字段名2 类型，……）');
execsql;
end;

[jin_zai]

例如：
with query1 do
begin
close;
sql.clear;
sql.add('create table table1');
sql.add('(field1 int null，field2 char(20) null,field3 numeric(8,2) null,……)');
execsql;
end;

[idilent]

这样好象不行，connection连接怎么设置呢？

[huojiehai]

可以的，开始时query先连接系统库(如master)，只要你连接的用户有权限就可以了

[jin_zai]

不好意思，刚看错了
database1.close;
database1.LoginPrompt:=false;
database1.DriverName:='mssql';
with database1.Params do
begin
clear;
add('database name=master');//一定要在master上
add('server name=' + edit1.text);//服务器名
add('user name=' + edit2.text);//用户名
add('password=' + edit3.text);//口令
add('OPEN MODE=READ/WRITE');
add('SCHEMA CACHE SIZE=8');
add('BLOB EDIT LOGGING=');
add('LANGDRIVER=');
add('SQLQRYMODE=');
add('SQLPASSTHRU MODE=SHARED NOAUTOCOMMIT');
add('DATE MODE=0');
add('SCHEMA CACHE TIME=-1');
add('MAX QUERY TIME=300');
add('MAX ROWS=-1');
add('BATCH COUNT=200');
add('ENABLE SCHEMA CACHE=true');
add('SCHEMA CACHE DIR=c:\');
add('HOST NAME=');
add('APPLICATION NAME=');
add('NATIONAL LANG NAME=');
add('ENABLE BCD=FALSE');
add('TDS PACKET SIZE=4096');
add('BLOBS TO CACHE=64');
add('BLOB SIZE=32');
end;
database1.open;
with query1 do
begin
close;
sql.clear;
sql.add('CREATE DATABASE '+edit4.text);//要建立的数据库名用edit4.text
sql.add('ON ');//edit5.text是数据库的路径
sql.add('( NAME = '+edit4.text+'_dat,');
sql.add('FILENAME = '''+edit5.text+edit4.text+'_data.mdf'',');
sql.add('SIZE = '+edit6.text+'MB)');//edit6.text是数据库的大小
execsql;
close;
end;
application.messagebox('数据库创建完毕','提示',64);