vb连接FoxPro 9表

发布网友 发布时间：2022-05-03 12:13

我来回答

共4个回答

热心网友 时间：2022-06-19 21:56

通常,我们可以通过Visual Foxpro的ODBC Driver将ADO控件连到VFP数据库或自由表. j V)H Ih
*shl*V@|
其关键是要写对ADO控件的ConnectionString属性,然后再设一下RecordSource及CommandType等属性就可以了. M?@%vt
=/N`@,A p
以下大致叙述一下如何写ConnectionString属性. \d0~c
]|UoU
<TAK-I1
2)nc,74)
1. 如果您的机器上没有建立连到您的VFP数据库或自由表的ODBC DSN,您可以如下写ConnectionString: B a r[F m
g=Us5Su9
1) 如果您连到VFP自由表,您要将自由表放在一个目录下(例如:C:\MyDBF),该目录将被看作一个数据库. ConnectionString可以如下: ^2C(KN!e
LWomJrh^U
"SourceType=DBF;SourceDB= C:\MyDBF;Driver={Microsoft Visual FoxPro Driver}" z!RSIj$
?g lrJ3
2) 如果您连到VFP数据库(例如数据库的名字为C:\MyDBC\data1.dbc.),ConnectionString可以如下: Y~EV\g;t
:]~ P9pU$
"SourceType=DBC;SourceDB=C:\MyDBC\data1.dbc;Driver={Microsoft Visual FoxPro Driver}" ,Q.&sQA"n
K]=%v.l<T`
>,$FHDIC5O
QHk^vkT,
2. 如果您的机器上已经建立了连到您的VFP数据库或自由表的ODBC DSN(假定DSN的名字为MyVFPDSN),您可以如下写ConnectionString: +XD=$w6T
3JfYC9B
"dsn=MYVFPDSN" TA1vK6ugo
Y&{3�qhr
]C\Aq�i7
HH')G)@6q
当然,您要确认Microsoft Visual FoxPro Driver已经装在了机器上. ;\�Mb 

热心网友 时间：2022-06-19 21:56

VB链接Foxpro的数据表一般采用ODBC链接，ODBC是操作系统提供的数据链接的数据源，它可以链接Foxpro的数据表。
首先在控制面板的【管理工具】的【ODBC数据源】设置Foxpro的数据链接，根据对话框的提示一步一步设置数据源（注意：在用户DSN选项卡中添加），最后根据设置进行链接即可。
当然链接已经建立的数据源可以用多种方法，例如数据控件ADO、数据控件DATA等等。

根据你的内容不同，进行不同的代码链接即可。

热心网友 时间：2022-06-19 21:57

Public DBFcon As New ADODB.Connection

'打开DBF文件
Public Function OpenDBF(DirPath As String) As Boolean
On Error GoTo err
DBFcon.open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" + DirPath + ";SourceType=DBF; "
OpenDBF = True
Exit Function
err:
OpenDBF = False
MsgBox err.Description
End Function

‘关闭dbf文件
Public Sub CloseDBF()
If DBFcon.state = adStateOpen Then DBFcon.Close
End Sub

’执行select ，update，delete 操作
Public Function ExeDBF(sql As String, rs As ADODB.Recordset) As Boolean
On Error GoTo err
rs.open sql, DBFcon, adOpenKeyset, adLockOptimistic
ExeDBF = True
Exit Function
err:
ExeDBF = False
End Function

热心网友 时间：2022-06-19 21:57

你好，你的思路不对。
VB连接数据库，有ACCESS，SQL，我没有用过VFP。估计应该也可以。
你需要知道VB连接数据库的方法和控件，
如ADO， Data 等。

方法1：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

方法2：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")

注意：一个页面中，只要连接一次就可以了，数据库使用完后要及时关闭连接。
conn.Close
Set conn = Nothing

上面说的是个思路：
可以下载一个代码，仔细看看。