如何在代码中用ADO创建SQLSERVER数据库，并在新生成的数据库中创建表？

Question

我看了一些FAQ和原来的的帖子，说得不太详细，我也不太懂，有那位朋友热心相告，分不够可以在加100

Answer 1

他们写的只是针对ACCESS的，还有就是一些CREATE DATABASE 的语句

Answer 2

我是想知道在代码中应该调用什么函数，类，路径等对于SQLSERVER和ACCESS不同的

Answer 3

创建Test数据库：
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
'    On Error GoTo err
    Dim cn As New ADODB.Connection
'    连接到master 数据库，借助master数据库来建立新的数据库
'    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=master;Data Source=服务器别名/IP"
    cn.CursorLocation = adUseClient '设置客户端游标
    cn.Open
    cn.Execute ("use master create database Test")'创建Test数据库    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 4

Dim cn As ADODB.Connection
    Dim strCn As String
    Dim strSQL As String
    
    Set cn = New ADODB.Connection
    '1.创建数据库newDB
    strCn = "Provider = SQLOLEDB.1;Persist Security Info = False;" & _
        "User ID = sa;Password = MOFZaCW3Ob;Data Source = 192.168.0.179;" & _
        "Initial Catalog =master"
    cn.ConnectionString = strCn
    cn.Open
    
    strSQL = "CREATE DATABASE newDB"
    cn.Execute strSQL
    MsgBox "成功创建数据库"
    cn.Close
    
    '2.连接到新数据库newDB创建表
    strCn = "Provider = SQLOLEDB.1;Persist Security Info = False;" & _
        "User ID = sa;Password = MOFZaCW3Ob;Data Source = 192.168.0.179;" & _
        "Initial Catalog =newDB"
    cn.ConnectionString = strCn
    cn.Open
    '创建表名为tb的表
    strSQL = "CREATE TABLE tb(" & _
            "username varchar(20) not null primary key," & _
            "pass char(10) not null)"
    cn.Execute strSQL
    MsgBox "成功创建数据库表tb"
    cn.Close
    Set cn = Nothing

Answer 5

创建指定数据文件和事务日志文件的数据库
－－－－－－－－－－－－－－－－－－－－－－－
cn.Execute ("USE master CREATE DATABASE Sales " & _
                "ON( NAME = Sales_dat, " & _
                "FILENAME = 'c:\program files\microsoft sql server\mssql\data\saledat.mdf'," & _
                "SIZE = 10,MAXSIZE = 50,FILEGROWTH = 5 ) " & _
                "LOG ON( NAME = 'Sales_log'," & _
                "FILENAME = 'c:\program files\microsoft sql server\mssql\data\salelog.ldf'," & _
                "SIZE = 5MB,MAXSIZE = 25MB,FILEGROWTH = 5MB )")

Answer 6

在Test数据库上建立testTable表：
------------------------------------
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
'    连接到Test数据库
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=Test;Data Source=服务器别名/IP"
    cn.CursorLocation = adUseClient '设置客户端游标
    cn.Open
    cn.Execute ("create table testTable " & _
                "[colTime] [datetime] NULL ," & _
                "[colFlt] [float] NULL ," & _
                "[myImg] [image] NULL ," & _
                "[myInt] [int] NULL ," & _
                "[myNText] [ntext] COLLATE Chinese_PRC_CI_AS NULL ,")
End Sub

Answer 7

非常感谢faysky2(),vbman2003两位的热心帮助，谢谢你们