请问如何在VB中用SQL语句建立SQL数据库?

Question

请问如何在VB中用SQL语句建立SQL数据库包括里面的表,视图等?

Answer 1

Dim strSQL                      As String
    Dim cnnUser                     As New ADODB.Connection    cnnUser.open gstrConn
    strSQL="CREATE DATABASE 数据库名"
　　cnnUser.Execute strSQL

Answer 2

'数据库
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public ConDb As String
Public StrSql As StringStrSql = "select * from DataName"
Conn.Open ConDb
Rs.Open StrSql, Conn, adOpenDynamic, adLockOptimistic

Answer 3

Dim SQL As New ADODB.Connection
SQL.Open "连接字符"
SQL.Execute "CREATE DATABASE 数据库名"
SQL.Execute "CREATE TABLE 数据库名.表" & vbcrlf & _
"(" & vbcrlf & _
"键1 类型 [Primary Key]," & vbcrlf & _
"键2 类型 ," & vbcrlf & _
.
.
.
"键N 类型" & vbcrlf & _
");"