VB中能创建数据库吗?

Question

'sqlserver
dim cn as adodb.connection
set cn = new adodb.connection
cn.open cnstr'连接字符串,连到一上sql -server上.
cn.execute "create database dbname "
cn.close
'Access 
先用Access 2000建个空库文件.
用进再copy一下就可以了.
********
别得不太清楚.

Answer 1

sure!
CMDSQL="CREATE TABLENAME ..."
创建数据库范例
如下代码显示如何通过 Create 方法创建新的 Jet 数据库。Sub CreateDatabase()   Dim cat As New ADOX.Catalog
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"End Sub

Answer 2

引用DAO
Private Sub Command1_Click()
 Dim DefDatabase As Database
 Dim DefTable As TableDef, DefField As Field
 Dim TdbName As String
 TdbName = "G:\dd.mdb"
 CreateDatabase TdbName, dbLangGeneral
 Set DefDatabase = Workspaces(0).OpenDatabase(TdbName, 0, False)
   Set DefTable = DefDatabase.CreateTableDef("table1")
        Set DefField = DefTable.CreateField("Fiele1", dbInteger, 1)
            DefTable.Fields.Append DefField
        Set DefField = DefTable.CreateField("Fiele2", dbText, 8)
            DefTable.Fields.Append DefField
            DefField.AllowZeroLength = True
    DefDatabase.TableDefs.Append DefTable
End Sub

Answer 3

引用DAO
dim db as database
set db=workspace(0).creatdatabase("路径和数据库名称")
可以了