再问：关于vba连接dbf数据库文件~~~~！！

yyy811240

我自己在excel home里面翻了一些相关的老帖，特别是老版主northwolves 的方法，最后结论好像都是用：
Driver={Microsoft Visual FoxPro Driver};SourceType=DBF; 来接入的，我自己试了一下，做了如下准备工作：
保证要接入的数据库文件是在相应文件夹下的，同时我也安装了foxpro6.0（但是安装完成时，系统提示是否安装msdn（好像是叫这个）的东西，因为没有光盘没有安装），但是[好像还是不行，提示“3706，未找到提供程序，改程序可能未正确安装”，我的程序如下，大家帮我看看那里有问题，谢谢：
Sub 连接进销存表数据库()

Dim conn As ADODB.Connection
Dim WN As String
Dim sSql As String
Dim TableName As String
Dim ColumnName As String
Dim i As Integer
Dim rst As ADODB.Recordset
Dim rst2 As ADODB.Recordset
Dim db     As Database

WN = "sample.dbf"
TableName = "sample"
Set conn = New ADODB.Connection


With conn
    .Provider = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;"
    .ConnectionString = "SourceDB=" & [CurrentProject].[Path] & "\" & WN
    .Open
    End With

If conn.State = 1 Then
MsgBox "连接成功！"

conn.Close
End If
Set conn = Nothing
End Sub

[ 本帖最后由 yyy811240 于 2009-12-14 14:55 编辑 ]

yyy811240

我自己尝试解决了一下，解决了一半，呵呵：编码中provider处要加MSDASQL.1，即：

With conn
    .Provider = "MSDASQL.1;Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;"
    .ConnectionString = "SourceDB=" & "D:\交易策略\dbf 连接程序\tt" ' & "\" & WN
    .Open
    End With

整段程序如下：
Sub 连接进销存表数据库()

Dim conn As ADODB.Connection
Dim WN As String
Dim sSql As String
Dim Tablename As String
Dim Columnname As String
Dim i As Integer
Dim rst As ADODB.Recordset
Dim rst2 As ADODB.Recordset
Dim db     As Database
Dim PriceGap As Long

WN = "sample.dbf"
Tablename = "sample"
Columnname = "name"

Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
Set rst2 = New ADODB.Recordset

With conn
    .Provider = "MSDASQL.1;Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;"
    .ConnectionString = "SourceDB=" & "D:\交易策略\dbf 连接程序\tt" ' & "\" & WN
    .Open
    End With
If conn.State = 1 Then
MsgBox "连接成功！"

If rst.State = 1 Then
MsgBox "记录集打开成功！"
End If


sSql = "alter table " & Tablename & " add column " & Columnname & " long"  '在表中加入一个新字段（列）
conn.Execute sSql

sSql = "UPDATE " & Tablename & " SET name = 1"     '将新加入的字段赋值为1
conn.Execute sSql

rst.Open Source:=Tablename, ActiveConnection:=conn.ConnectionString, CursorType:=adOpenKeyset, LockType:=adLockOptimistic
Set rst2 = rst.Clone

conn.Close

End If
Set conn = Nothing
End Sub

其中rst.Open Source:=Tablename, ActiveConnection:=conn.ConnectionString, CursorType:=adOpenKeyset, LockType:=adLockOptimistic
这一句又有问题了，提示：ODBC 驱动程序不支持所需的属性，请高手帮忙看看，谢谢~~！！！！

[ 本帖最后由 yyy811240 于 2009-12-14 19:06 编辑 ]

Scarlett_88

Set rst = New ADODB.Recordset
rst 定义为数据集了
Set conn = New ADODB.Connection
conn才是数据源连接

yyy811240

原帖由 Scarlett_88 于 2009-12-14 22:25 发表
Set rst = New ADODB.Recordset
rst 定义为数据集了
Set conn = New ADODB.Connection
conn才是数据源连接

斑竹您好~！，我之前回复了，不过好像论坛挂了，帖子不见了：
我知道conn才是数据源连接，我是需要在连接后用到指针（即，记录集recordset），因此需要进行rst的定义，之前尝试连接mdb、xls、accdb文件时，
按照“rst.Open Source:=Tablename, ActiveConnection:=conn.ConnectionString, CursorType:=adOpenKeyset, LockType:=adLockOptimistic”的格式定义rst都没问题，但是连接dbf文件时这样就有问题，系统老是提示“ODBC 驱动程序不支持所需的属性”，请斑竹帮我看看！谢谢~！！