怎样用vb生成表？

[smalllove]

是这样的，我用sql查询器写好了建库建表的的语句，现在我想在vb里单击button就运行我的sql语句生成库和表。
谢谢！

[smalllove]

我忘记说了，sql语句保存在一个.sql的文件里，
还有就是库已经建好了，现就想建表怎样。

[seehill]

那就从那个.sql文件里先把语句读出来,保存到strsql里
然后
adoconn.excute strsql

[beandog]

DB.Execute ""& text1.text &""

[viena]

CONN.EXECUTE SQL语句

[cnhgj]

楼上都说了！

[PDK]

dim cn as new connection
dim strsql as string
strsql="................"
cn.connectionstring ="provider=sqloledb.1;server=srv;database=db;uid=sa;pwd="
cn.open
cn.execute strsql

[lxqlogo0]

'首先引用Microsoft Activex Data Objects 2.x Library
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
'在button的click事件里写如下:
'sqlserver
objcon.Open "Provider=sqloledb.1;user id=sa;password=密码;Initial Catalog=数据库名;Data Source="
objrs.Open "你写好的语句", objcon, 3, 1



'access
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=basic;Data Source=" & App.Path & "\infoTable.mdb"
objrs.Open "你写好的语句", objcon, 3, 1

[lihonggen0]

工程--->引用--->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.Open

strsql = "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