100分求教如何用ADO创建新的数据库？

Question

我想在程序中动态用ADO创建新的数据库,请问如何实现？

Answer 1

http://community.csdn.net/Expert/topic/4121/4121226.xml?temp=.888241

Answer 2

Private Sub Command1_Click()
 On Error GoTo DealError
    Dim objCon As Connection, strCn As String, strSQL As String
    Set objCon = New Connection
    '
    strCn = "Provider=SQLOLEDB.1;User ID=sa;Data Source=(local)"
    objCon.ConnectionString = strCn
    objCon.open
    '
    strSQL = "CREATE DATABASE 实例2库"
    objCon.Execute strSQL
    MsgBox "成功创建数据库"
    objCon.Close
    '
    strCn = "Provider=SQLOLEDB.1;User ID=sa;" & "Data Source=(local);Intial Catalog=实例2库"
    objCon.ConnectionString = strCn
    objCon.open
    '
    strSQL = "CREATE TABLE 测试表(" & _
            "用户名 varchar(13) not null primary key," & _
            "口令 char(6) not null)"
    objCon.Execute strSQL
    MsgBox "成功创建数据库表"
    
    strSQL = "INSERT 测试表(用户名,口令)" & _
        "VALUES('Administrator',123456)"
    objCon.Execute strSQL
    strSQL = "INSERT 测试表(用户名,口令)" & _
        "VALUES('Admin',13578)"
    objCon.Execute strSQL
    strSQL = "INSERT 测试表(用户名,口令)" & _
        "VALUES('叮当',123321)"
    objCon.Execute strSQL
    MsgBox "成功为表添加了三条记录"
    '
    objCon.Close
    Set objCon = Nothing
    '
    Command2.Enabled = True
DealError:
    '
    MsgBox "数据库创建过程出错" & Err.DescriptionEnd Sub

Answer 3

如果是MSSQL库，可以Create DataBase语句来建数据库，用Create Table语句来创建表
如果是Access库，可以用ADOX来创建新库和表
在VB程序中用ADO对象动态创建数据库和表：http://safebbs.it168.com/redirect.php?fid=34&tid=1605&goto=nextnewset

Answer 4

dim dbconn as adodb.connectiondbconn.execute 任意SQL语句