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

Question

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

Answer 1

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

Answer 2

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

Answer 3

好久没见。我还不错。刚才先学现卖，看着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;