问一个问题关于用VB创建数据库的？

Question

cn.exec " create database ... "
cn.exec " create table ... "

Answer 1

在sql里比较简单，用create database，然后用create table，具体语法请看联机帮助，已经很详细了，要建mdb需要引用adox来实现，或者使用dao方法来创建。

Answer 2

执行下面的语句一定要把默认数据库设置为master
cnn.exec "create database 数据库名字 "
cnn.exec "create table 表名字 "

Answer 3

'*************************************************************************
'**函 数 名：s_Start_Server
'**功能描述：创建SQL数据库的函数,函数返回创建成功的数据库的连接对象
'**输    入： sDbName   要创建的数据库名
'**输    出： 成功，返回连接所创建数据库的adodb.connnection对象,不成功，返回Nothing
'**调用模块： Microsoft ActiveX Data Objects 2.X Library
'**作    者： 邹建
'**日    期： 2003年11月12日
'*************************************************************************
Public Function f_CreateDB(ByVal sDBName$) As ADODB.Connection
    Dim iDB As New ADODB.Connection
    Dim iConn$
    
    '数据库连接字符串
    iConn = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
        "User ID=用户名;Password=密码;Data Source=SQL服务器名"
    
    On Error GoTo lb_Err
    iDB.Open iConn
    iDB.Execute "create database [" & sDBName & "]"
    iDB.DefaultDatabase = sDBName
    Set f_CreateDB = iDB
lb_Err:
End Function

Answer 4

'创建ACCESS数据库,引用DAO对应就行了,比较简单'sFileName 是要创建的ACCESS数据库名
DBEngine.CreateDatabase sFileName, dbLangSpanish

Answer 5

sqlserver:'创建数据库及表例子
Sub test()   
    Dim iDb As ADODB.Connection
    Dim iConc As String    iConc = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
            "User ID=用户名;Password=密码;Data Source=SQL服务器名"
    
    Set iDb = New ADODB.Connection
    iDb.Open iConc    '创建数据库
    iDb.Execute "create database 数据库名"    '打开刚刚创建的数据库
    iDb.DefaultDatabase="数据库名"    '在刚创建的数据库中创建表
    iDb.Execute "create table 表名(字段名 int)"  
    
    '处理完成后关闭数据库
    iDb.Close
    Set iDb = Nothing
    
End Sub

Answer 6

access的：'用ADOX建立数据库与表
'引用Microsoft ADO Ext 2.5 for DDL and Security
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim con As ADODB.Connection    On Error GoTo 0    ' Create the new database.
    Set cat = New ADOX.Catalog
    cat.Create _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & DatabaseName & ";"    ' Create a new table.
    Set tbl = New ADOX.Table
    tbl.Name = "TestTable"
    tbl.Columns.Append "FirstName", adVarWChar, 40
    tbl.Columns.Append "LastName", adVarWChar, 40
    tbl.Columns.Append "Birthdate", adDate
    tbl.Columns.Append "Weight", adInteger
    cat.Tables.Append tbl 
   
    '设置列可以为NULL    
    tb1.columns("Weight").Attributes=AdColNullable
   '或者tb1.Columns("Weight").Properties("Jet OLEDB:Allow Zero Length") = True

    ' Connect to the database.
    Set con = cat.ActiveConnection    ' Insert records.
    con.Execute "INSERT INTO TestTable VALUES ('Andy', 'Able', '1 Jan 1980', '150')"
    con.Execute "INSERT INTO TestTable VALUES ('Betty', 'Baker', #2/22/1990#, 70)"    ' Close the database connection.
    con.Close
    Set con = Nothing
    Set tbl = Nothing
    Set cat = Nothing