如何在SQL—Server建立表

Question

如题。非常简单的表就成，给段代码瞧瞧，非常感谢。当然有代码说明，或其它的相关文章更棒了，就非常非常非常 GOOD 了。

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

引用ado
dim conn as new connection
Dim Compublishers As New ADODB.CommandSet 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