用VB能实现sql文件创建表吗

Question

请教：我要在VB下面根据SQL生成的脚本文件（.sql）来创建表，我该怎么做呢！

Answer 1

用文本方式打文件(.sql),
复制到一个足够长的STRING型变量,
用ADO中的CONNECT对象的EXECUTE方法执行它.
OK
注意:文件(.SQL)中不能包含'GO'

Answer 2

'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"    CN.Openstrsql = "CREATE TABLE [DownClass] ([id] [int] IDENTITY (1, 1) NOT NULL ," & _
       "[classname] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ," & _
       "CONSTRAINT [PK_DownClass] PRIMARY KEY  CLUSTERED" & _
       "( [id] )  ON [PRIMARY] ) ON [PRIMARY]"    '执行建表语句
    cn.execute strsql