在DELPHI程序中如何自动创建SQL SERVER 数据库表？

[dana]

我是这样写的但是创建不成功，这是为什么？
首判断XSZX不存在然后开始创建。
ADOQuery1.SQL.add('IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name <> ''xszx'') ');
ADOQuery1.sql.add('create database xszx');
ADOQuery1.sql.add('on primary (filename='''+filename+''')');
ADOQuery1.sql.add('for attach ');

[chechy]

如果是SQL Server，可以利用SQL Server提供的DMO接口来编程，这样功能就更强大。

[ken_henderson]

用Enterprisemanager建一个然后导出sql脚本用就行了

[dana]

chechy(我爱洁洁) :好久来见了，近来好吗？
能告诉我在程序中如何实现吗？

[chechy]

好久没见。我还不错。刚才先学现卖，看着MSDN，现做了一个。DMO的功能是很强大的，在SQL Enterprise中能作的，DMO都能做。

procedure TForm1.Button2Click(Sender: TObject);
var
SQL_DMO: _SQLServer;
SQL_Database: _Database;
SQL_Tables: Tables;
ACol: _Column;
begin
SQL_DMO := CoSQLServer.Create;
SQL_DMO.Connect('CHEN', 'sa', 'hello');
SQL_Database := SQL_DMO.Databases.Item('NorthWind', 'dbo');
SQL_Table := CoTable.Create;
ACol := CoColumn.Create;
ACol.Name := 'Hello';
ACol.Datatype := 'int';
SQL_Table.Columns.Add(ACol);
SQL_Table.Name := 'MyTable';
SQL_Database.Tables.Add(SQL_Table);
SQL_DMO.Close;
end;