在VB中怎么用代码建立一个ACCESS数据库?以线等。。。

Question

我用以下代码，结果报错:
cnserver.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\tianjj\Database\pos.mdb;Persist Security Info=False"
 cnserver.Open
 cnserver.Execute "create database  jjjj"

Answer 1

在 vb 中用 ado 我是建不出来
 但我有个办法，
引用 microsoft data binding collection 
 
  Private Sub Command3_Click()
     CreateDatabase "main", dbLangGeneral
  End Sub可以了，去找 main.mdb 去吧

Answer 2

Dim db As Database
        Set db = DBEngine.Workspaces(0).CreateDatabase(yourDB, dbLangGeneral)
        db.Close

Answer 3

Sub Create_GZMB()
 On Error GoTo ERROR
    Dim WS As Workspace
    Dim DB As Database
    Set WS = DBEngine.Workspaces(0)
     Set DB = WS.CreateDatabase(MDImain.zhuangtai.Bands(3).Caption & "\" & "gongziMB.mdb", dbLangChineseSimplified, dbVersion30)  
    DB.Close
     
    Exit Sub
ERROR:
MsgBox Err.Description, 48, cstmsg
End Sub

Answer 4

创建方法如下,其实很简单的：Dim Cat  As New ADOX.CatalogsCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;" & _
           "Data Source=" & sCreatAccessFile
Cat.Create sCnn另：需添加引用Project--Reference中选中Microsoft ADO Ext.2.5 For DDL and Security

Answer 5

Access建库太麻烦。如果可能的话，放一个模版库文件，需要建的时候拷贝。

Answer 6

同意5楼的意见。使用adox，我用过的，很好用。附函数如下：
'创建数据库文件
Private Function CreateDb(Dbpath As String) As Boolean
On Error GoTo errH
Dim yhDb As ADOX.Catalog
Dim strCn As String
    strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" + Dbpath + ";Jet OLEDB:Database [email protected];"
    Set yhDb = New ADOX.Catalog
    yhDb.Create strCn
    CreateDb = True
    Exit Function
errH:
    Pbar.Value = 105
    ErrHandle Me
    CreateDb = False
End Function

Answer 7

access建立数据库：
http://expert.csdn.net/Expert/topic/2099/2099036.xml?temp=.4305078

Answer 8

引用Project--Reference中选中Microsoft ADO Ext.2.5 For DDL and SecurityPublic gCat As New ADOX.Catalog '创建Access数据库用    gstrCn = "Provider=Microsoft.Jet.OLEDB.4.0;"
    gstrCn = gstrCn & "Data Source=" & Trim(txtAccessPath.Text)
    
    gCat.Create gstrCn '创建数据库
    
    gCat.ActiveConnection = gstrCn

Answer 9

这样来做，写两个函数，在另外一个事件中调用
Private Function GetDBName() As String
' Get the desired name using the common dialog   由用户选定文件名
On Error GoTo ProcError    Dim strFileName As String    ' setup the file save dialog file types
    dlgCreateDB.DefaultExt = "mdb"
    dlgCreateDB.DialogTitle = "创建数据库"
    dlgCreateDB.Filter = "VB Databases (*.mdb)|*.mdb"
    dlgCreateDB.FilterIndex = 1
    ' setup flags
    dlgCreateDB.Flags = _
    cdlOFNHideReadOnly Or _
    cdlOFNOverwritePrompt Or _
    cdlOFNPathMustExist
    ' setting CancelError means the control will
    ' raise an error if the user clicks Cancel
    dlgCreateDB.CancelError = True
    ' show the SaveAs dialog
    dlgCreateDB.ShowSave
    ' get the selected name
    strFileName = dlgCreateDB.FileName
    ' dialog prompted for overwrite,
    ' so kill file if it exists
    On Error Resume Next
    Kill strFileNameProcExit:
    GetDBName = strFileName
    Exit FunctionProcError:
    strFileName = ""
    Resume ProcExitEnd Function
Private Sub CreateDB(strDBName As String)
' create the database使用提供的文件名    Dim db As Database    ' if desired, you can specify a version or encrypt
    ' the database as the optional third parameter to
    ' the CreateDatabase method
    Set db = DBEngine(0).CreateDatabase(strDBName, dbLangGeneral)End Sub
Private Sub cmdCreateDB()
On Error GoTo ProcError    Screen.MousePointer = vbHourglass    Dim strDBName As String    strDBName = GetDBName()    If Len(strDBName) > 0 Then
        CreateDB strDBName
    End If
  
ProcExit:
    Screen.MousePointer = vbDefault
    Exit Sub
  
ProcError:
    MsgBox Err.Description
    Resume ProcExit
    
End Sub