怎样用VB新建外部MDB文件.

zhichaochen

我做了一个程序,将当前的表的数据保存起来,用的是
      DoCmd.TransferDatabase acExport, "Microsoft Access", filename, acTable, "表名", "表名 "
这里的filenae 这个文件必须先存在,但当filename这个文件不存在时,怎样先新建这个文件呢.
查找外部文件命令是 dir filename
,但是新建外部文件呢,请指教。

zhichaochen

If Dir(filename) = "" Then
        Dim wrkDefault As Workspace
        Dim dbsNew As Database
        Dim prpLoop As Property
          ' Get default Workspace.
        Set wrkDefault = DBEngine.Workspaces(0)
        ' Make sure there isn't already a file with the name of the new database.
        ' Create a new encrypted database with the specified collating order.
        Set dbsNew = wrkDefault.CreateDatabase(filename, dbLangGeneral, dbEncrypt)
             '    With dbsNew
          '  Debug.Print "; Properties of " & .name
            ' Enumerate the Properties collection of the new
                    ' Database object.
            ' For Each prpLoop In .Properties
            '    If prpLoop <> "" Then Debug.Print "  " & _
              '     prpLoop.name & " = " & prpLoop
            ' Next prpLoop
             ' End With
            dbsNew.close
       End If

andymark

Dim CatalogX As New ADOX.Catalog
Dim ConnX As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub cmdOK_Click()
    If txtDBName.Text = "" Then
        MsgBox "请输入要生成的数据库名.", vbInformation
        txtDBName.SetFocus
        Exit Sub
    End If
   
    If Dir(txtDBName.Text) <> "" Then
        MsgBox "要生成的数据库名已存在.", vbInformation
        txtDBName.SetFocus
        Exit Sub
    End If
   
    Dim ConnString As String
   
    ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;"
    ConnString = ConnString & "Data Source=" & txtDBName.Text
On Error GoTo CreateErr
    '创建数据库
    CatalogX.Create ConnString
    CatalogX.ActiveConnection = ConnString
    '建立新表格
    Dim TableX As New Table
    TableX.Name = "MyTable"
    '向表格中添加字段并指定字段类型
    TableX.Columns.Append "ID", adInteger
    TableX.Columns.Append "Name", adVarWChar, 8
    TableX.Columns.Append "Address", adVarWChar, 50
    '向数据库中添加表格
    CatalogX.Tables.Append TableX
    Exit Sub
CreateErr:
    MsgBox "创建数据库时发生错误:" & Err.Description, vbInformation
End Sub