如何在程序中建立数据库和数据表？（急需）(100分)

请教各位高手：
如何在程序中建立数据库和数据表？
D5+SQL7用程序的方法动态建立数据库和数据表。

临时的，还是永久的？
查一下以前的文章，建议你下离线档!

create table yourtable
(name varchar(10))
or
create table yourtable
as select * from yourtable
or
create table #temptable

TTable.CreateTable

是永久的。

create or drop 语句可以动态的建立表或删除表，你要永久的可以手工做啊，程序比较难

建立一个存储过程

你应该会用 TQuery 控件执行“Select ...”语句吧，是一样的啊：
Query1.SQL.Add('Create Database XXX ...');
Query1.ExecSQL;
Query1.SQL.Add('Create Table XXX ...');
Query1.ExecSQL;
具体的 SQL 语法随数据库引擎的不同而异，看看文档就知道了。

我写过的：

1。通过BDE动态连接
-------------------------
// 动态连接数据库 (SQL from DBE)
// 参数描述: DyncData:连接的数据库的对象
// sComputer:服务器名称 ,sUser:连接用户名
// sPassword:连接用密码,
// sDataBaseName:别名要指定的 DyncData.Databasename

function DynConnectDatabase(var DyncData: TDataBase;
sComputer,sUser,sPassword,sDataBase,sDataBaseName: String): Boolean;
var
ServerName:String;
mDatabase:String;
muser,mPassWord:String;
begin
DyncData.Close;
ServerName:='SERVER NAME='+sComputer;
mDataBase:='DATABASE NAME='+sDataBase;
mUser:='USER NAME='+sUser;
mPassWord:='PASSWORD='+'';
with Dyncdata.Params do
begin
Clear;
Add(ServerName);
Add(mDatabase);
Add(mUser);
Add('OPEN MODE=READ/WRITE');
Add('SCHEMA CACHE SIZE=8');
Add('BLOB EDIT LOGGING=');
Add('LANGDRIVER=');
Add('SQLQRYMODE=');
Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
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=FALSE');
Add('SCHEMA CACHE DIR=');
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');
Add(mPassWord);
end;
With DyncData do
begin
LoginPrompt:=False;
DataBaseName:=sDataBaseName;
DriverName:='MSSQL';
try
Application.ProcessMessages;
Open;
Result:=True;
except
Application.MessageBox('无法连接到数据库服务器！','系统提示',
MB_OK +MB_ICONSTOP+MB_DEFBUTTON1);
Result:=False;
end;
end;
end;
2。创建数据库
--------------------------------------------------------------------
//生成数据库
//里面包含判断SQL是否存在同名数据库的问题(这里不详细描述)
//Function SQLCreate(const sName:String):string; 生成数据库的SQL
//Function CreateDatabase(const sname:string;ntype:integer):Boolean; 生成数据库

function SQLCreate(const sName: String): string;
var
mSQL:String;
begin
mSQL:='CREATE DATABASE ['+sName+']'+#13
+' ON PRIMARY (NAME = N'''+sName+'_Data'','+#13
+' FILENAME = N'''+'C:/'+sname+'_Data.MDF'','+#13
+' SIZE = 1, FILEGROWTH = 10%)'+#13
+' LOG ON (NAME = N'''+sname+'_Log'','+#13
+' FILENAME = N'''+'C:/'+sname+'_Log.LDF'','+#13
+' SIZE = 1,'+#13
+' FILEGROWTH = 10%);'+#13;

mSQL:=mSQL+#13+
'exec sp_helpreplicationdboption ;'+#13;

mSQL:=mSQL+#13+
'exec sp_MSdbuseraccess N''perm'' , N'''+sname+''';'+#13;

mSQL:=mSQL+#13+
'exec sp_MSdbuseraccess N''db'', N'''+sname+''';'+#13;
mSQL:=mSQL+#13+
'exec sp_MSdbuseraccess N''db'', N''%'';'+#13;
mSQL:=mSQL+#13+
'select name, DATABASEPROPERTY(name, N''IsDetached''), '+
'DATABASEPROPERTY(name, N''IsShutdown''),'+
' DATABASEPROPERTY(name, N''IsSuspect''),'+
' DATABASEPROPERTY(name, N''IsOffline''),'+
'DATABASEPROPERTY(name, N''IsInLoad''), ' +
'DATABASEPROPERTY(name, N''IsInRecovery''),'+
' DATABASEPROPERTY(name, N''IsNotRecovered''),'+
' DATABASEPROPERTY(name, N''IsEmergencyMode''),'+
' DATABASEPROPERTY(name, N''IsInStandBy''),'+
' status, category, status2 from master..sysdatabases;'+#13;

Result:=MSQL;
end;

function Tfrm_DataBaseini.CreateDatabase(const sname: string;ntype:integer): Boolean;
begin

with Query1 do //这里的query的DATABASENAME要指定由动态连接产生的连接
begin
Close;
SQL.Text:=SQLCreate(sname);
try
ExecSQL;
if CreateTable(sname,ntype) then
Result:=True
else
begin
Query1.Close;
Query1.SQL.Text:='Drop database ['+sname+']';
Query1.ExecSQL;
end;
except
result:=False;
end;
end;
end;

-----------------------------------------------------------
朋友该给分了吧！要详细的资料和讨论和我联系

接受答案了.