如何在SQL—Server建立表

[jizehao]

如题。非常简单的表就成，给段代码瞧瞧，非常感谢。

当然有代码说明，或其它的相关文章更棒了，就非常非常非常 GOOD 了。

[SoHo_Andy]

Dim cn As New ADODB.Connection
Dim strSQL As String

strSQL = "create table table1(id numeric(10,0) not null, name char(16), age integer, sex bit,primary key(id))"
cn.Execute strSQL

[rainstormmaster]

http://www.vb-helper.com/howto_adox_create_database.html

[SoHo_Andy]

或者使用ADOX,你在ADO的帮助中搜索ADOX就可以了，很多创建数据库对象的例子
我就不贴了

[ketao_78]

sql statement

[dzb1997]

是在里面吗？用企业管理器

[lk_cool]

引用ado
dim conn as new connection
Dim Compublishers As New ADODB.Command

Set Conn = New Connection
With Conn
.Provider = "sqloledb"
.ConnectionString = "User ID=sa;Password=" & Trim(Strpassword) & ";data source=" & Trim(Strservername) & ";initial catalog=OLTest"
.Open
End With


With Compublishers
.ActiveConnection = Conn
.CommandText = "create table temp (mc char(20),km char(20),sj datetime,jgl float(8),bmrs float(8),ksrs float(8),zgf float(8),zdf float(8))"
.Execute
End With