能否使用ado生成sql7.0的表和字段.txt

VB技巧问答10000例,是一个教程

其实是 T-SQL 语法问题,可参阅 Transact-SQL Help 
     "Create Table..." "ALTER TABLE ..." 
    也可以引用 Microsoft ADO Extensions for DDL and Security (ADOX) 
     Dim adoConnection As New ADODB.Connection 
     adoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=ServerName" 
     '建库 
     '可参阅《使用ADO接口管理 SQL Server 数据库及其设备》 
     ' (http://www.computerworld.com.cn/98/skill/98/980810_05.html ) 
     ' 及 Transact-SQL Help 
     adoConnection.Execute "CREATE DATABASE MyTestDB ON ( NAME =MyTestDB_dat, FILENAME = 'c:\mssql7" \data\MyTestDB.mdf',SIZE =4,MAXSIZE = 10,FILEGROWTH = 1 )" 
     
     '连库 
     adoConnection.DefaultDatabase = "MyTestDB" 
     
     '建表及字段 
     adoConnection.Execute "CREATE TABLE FirstTable (FirstName TEXT, LastName TEXT)" 
     
     '改表结构 
     adoConnection.Execute "ALTER TABLE FirstTable ADD NewCol INT" 
     
     '引用 ADOX 
     Dim CatalogX As New ADOX.Catalog 
     Dim TblX As New ADOX.Table 
     
    <b> 'ADOX 不能建 Ms SQL Server 7.0 库,能建表及字段等</b> 
     
     Set CatalogX.ActiveConnection = adoConnection 
     
     TblX.Name = "Tbl1" '建表对象 
     TblX.Columns.Append "fld1", adInteger 
     
     CatalogX.Tables.Append TblX '为数据库加新表 
    可使用Microsoft ADO Extensions for DDL and Security (ADOX) 来完成创建表、修改字段等要求。该功能包括在最新的MDAC 2.1或以后的版本中。 
<END>    
在VB项目中建立对Microsoft ADOExt.2.1 for DDL and Security(文件名为MSADOX.Dll)的引用后，下列代码演示在SQL Server 7.0的Pubs数据库中增加一个名为Test，包含一个名为Column1，类型为varChar，大小为50列的表。 
    例子代码： 
     Dim objPubs As New Connection 
     Dim objCatalog As New ADOX.Catalog 
     Dim objTable As New ADOX.Table 
     
     objPubs.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=(local)" 
     objPubs.Open 
     
     Set objCatalog.ActiveConnection = objPubs 
     objTable.Name = "Test" 
     objTable.Columns.Append "Column1", adVarChar, 50 
     
     Call objCatalog.Tables.Append(objTable) 
    更详细的信息，请参阅ado帮助（当前文件名为ado210.chm） 
<END>