怎样用ado建立表？（使用sqlsever)

Question

联接上后用createtable()这个sql语句

Answer 1

Public Sub CreatSQLSeverTB()
' 在SQL Server中生成表    Dim strDBName As String
    Dim strSQL As String
    Dim strCnn As String
    Dim cnn As New ADODB.Connection
    
    strDBName = "pubs"  ' 指定数据库
    ' 打开指定数据连接
    strCnn = "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=" & strDBName
    cnn.Open strCnn
    
    ' 用SQL语句生成表Emps
    strSQL = "Create Table Emps (cEmpID char(4), vEmpName varchar(20))"
    cnn.Execute strSQL
    
    ' 关闭连接
    cnn.Close
    Set cnn = Nothing
    
End Sub如果使用Access，则可将strCnn = ...行改为
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb"
用Biblio.mdb做试验当然生成的表可通过同样方法用SQL语名Drop Table 进行删除

Answer 2

sql语句
create table 数据表名称(字段名称1 数据类型1(数据长度1)，字段名称2 数据类型1(数据长度2)，.。。)

Answer 3

给你一个例子，我做的，实现了
Imports System.Data
Imports System.Data.SqlClientSqlString = "Create Table WjhTemp (Name nchar(10),Zip nchar(11))"
        Response.Write(SqlString)        NewTableConnection = New SqlConnection("server=(local)\NetSDK;database=pubs;Trusted_Connection=yes")
        NewTableCommand = New SqlCommand(SqlString, NewTableConnection)
        NewTableCommand.Connection.Open()
        Try
            NewTableCommand.ExecuteNonQuery()
            Response.Write("Success")
        Catch Exp As SqlException
            Response.Write(Exp.Message.ToString)
        End Try
        NewTableCommand.Connection.Close()