已经会连接mdb和xls文件了，请教：如何连接dbf和accdb文件，谢谢~！！

yyy811240

我现在学习用access的vba编程连接数据库文件，现在已经会连接.mdb和.xls文件了（谢谢lipton兄的帮助），请教：如何连接.dbf 和.accdb文件，谢谢~！！（见附件）

我连接mdb和xls的程序如下，求连接dbf 和accdb的程序，大家帮我看看，谢谢~~！！！
'1、连接mdb文件：
Sub 连接进销存表数据库()
Dim conn As ADODB.Connection
Dim WN As String
Dim sSql As String
WN = "sample_1.mdb"
Set conn = New ADODB.Connection

With conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & [CurrentProject].[Path] & "\" & WN
    .Open
    End With
If conn.State = 1 Then
MsgBox "连接成功！"
conn.Close
End If
Set conn = Nothing
End Sub


'2、连接xls文件：
Sub 连接进销存表数据库()

Dim conn As ADODB.Connection
Dim WN As String
Dim sSql As String
WN = "sample_2.xls"
Set conn = New ADODB.Connection

With conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Extended Properties=Excel 8.0;" & "Data Source=" & [CurrentProject].[Path] & "\" & WN
    .Open
    End With
If conn.State = 1 Then
MsgBox "连接成功！"
conn.Close
End If
Set conn = Nothing
End Sub

zhaozyuan

用数据源吧

jilijun

连接ACCDB
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=数据库名.accdb;Persist Security Info=False

[ 本帖最后由 jilijun 于 2009-12-9 14:17 编辑 ]

yyy811240

原帖由 jilijun 于 2009-12-9 14:16 发表
连接ACCDB
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=数据库名.accdb;Persist Security Info=False

太感谢了，谢谢~~！
另外，dbf的文件不知道有没有人知道怎么连接啊

yyy811240

dbf文件怎么连接啊~~，要是连接不了，我还要找一个dbf 2mdb的软件，而且需要处理的文件海量，到时一个一个的转换也不行啊

[ 本帖最后由 yyy811240 于 2009-12-11 08:59 编辑 ]

jilijun

下面是连接的一例子:
F:\cutplan\cad_dbf\data\dby_csr.dbf,必须是存在的!

Sub checkBDF()

    Dim Cn As New ADODB.Connection
    Dim nRs As New ADODB.Recordset
    Dim ProSQL$, SQL$, i%
    NewPath = "F:\cutplan\cad_dbf\data"
    ProSQL = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & NewPath & ";"

    On Error GoTo 9
    Cn.Open ProSQL

    SQL = "select * from [dby_csr.dbf] "

    Set nRs = Nothing
    nRs.Open SQL, Cn, 1, 1, 1
    If Not nRs.EOF Then
        With ActiveSheet
            For i = 1 To nRs.Fields.Count: .Cells(1, 10 + i) = nRs.Fields(i - 1).Name: Next
            .Cells(2, 11).CopyFromRecordset nRs
        End With
    End If
    A = A
    Set rs = Nothing
    Set Cn = Nothing
    Exit Sub
9:
  MsgBox Err.Description
    set cn=nothing
End Sub

yyy811240

原帖由 jilijun 于 2009-12-12 17:52 发表
下面是连接的一例子:
F:\cutplan\cad_dbf\data\dby_csr.dbf,必须是存在的!

Sub checkBDF()

    Dim Cn As New ADODB.Connection
    Dim nRs As New ADODB.Recordset
    Dim ProSQL$, SQL$, i%
    NewPa ...

恩，谢谢~~！我自己也在论坛以前的帖子找到一个可用的，需要安装有foxpro：
With conn
    .Provider = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;"
    .ConnectionString = "SourceDB=" & [CurrentProject].[Path] & "\" & WN
    .Open
    End With

wsp1478714

学习了好帖子