如何在DELPHI 中新建一个数据库? 用一个QUERY执行Create Table命令即可在程序中动态创建!在程序外创建可以通过Database Desktop来创建。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure CreateNewDB(dbname,filename,logfilename:string;query:Tquery);begin if query.Active then 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 dm_junyao.H_QR_temp.ExecSQL; except MessageDlg('数据库建立出错!', mtInformation,[mbOk], 0); exit; end;end; 对不起,是:query.ExecSQL; 看你建立那种类型的数据库了,是大型的数据库还是桌面数据库,大型的数据要调用数据的API,如果是桌面的数据库,用BDE中的API就可以了。不知道你要那种类型? 这么多表如何判断其中有些有有数据的? 急求一个MS SQLSERVER存储过程!急!!! 为了提高查询速度,这些字段都要建立索引吗?? 怎么样用sql2005活动监视器 看死锁 请教增加删除字段的SQL. 求“历史上的今天”数据库 如何得到存储过程里面的存储过程的返回值? 求解,字符串如何取字段最大值再加1,返回值是字符串 问个数据问题请高手来看下 sql server 7.0中,用sql怎么给字段改名? 请教如何提高多表联合汇总查询的效率?继续给分! 喜好数据库的朋友们近来登记一下qq,以后好方便交流。欢迎高手不吝赐号,THANKS!
begin
if query.Active then 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
dm_junyao.H_QR_temp.ExecSQL;
except
MessageDlg('数据库建立出错!', mtInformation,[mbOk], 0);
exit;
end;
end;
query.ExecSQL;