打开VF 数据库的驱动该如何写？？

jie202 2004-04-24 09:37:43

我用下面的语句打开vf数据库，
dbf_conn.Open " Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" + FilePath + ";SourceType=DBF;"
SQL = "select * from s_zj.dbf"
dbf_rst.Open SQL, dbf_conn, adOpenDynamic, adLockOptimistic
可不知道为什么在不同的机子或是不同的操作系统下，会出现ODBC不支持此功能的错误，这是为什么？是不是这个dbf_conn.open 有问题啊？

...全文

91 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

jie202 2004-04-25

打赏
举报

我在2000 professional下运行后出现了“运行时错误‘91’：未设置对象变量或with block变量”，这是什么错误啊？是没有连接上数据库吗？

northwolves 2004-04-25

打赏
举报

try:
Dim dbf_conn As New ADODB.Connection
Dim dbf_rst As New ADODB.Recordset

dbf_conn.Open " Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" + FilePath + ";SourceType=DBF;"'filepath为DBF表所在文件夹路径！！！
SQL = "select * from s_zj"
dbf_rst.Open SQL, dbf_conn, , adOpenKeyset, adLockOptimistic

jie202 2004-04-25

打赏
举报

有很多奇怪的地方！在不同的机子下（操作系统是都是xp）会出现不同的错误，象有些是什么“block变量未设置”或者是“odbc不支持此功能”再或者是“[microsoft sql server]connectionread”等等，这些都是为什么，我初学vb，真是不懂！~

planetike 2004-04-25

打赏
举报

建议使用odbc创建数据源来弄.
只要odbc里有这个驱动,你就可以连上的.
还有"但是编译成可执行文件到另一个操作系统（xp）下就会出现错误"你最好能把错误弄出来看一下,要不也不能肯定是数据库链接的问题.

jie202 2004-04-25

打赏
举报

还是不行啊，我在本地机下（server2000）下可以正常运行，但是编译成可执行文件到另一个操作系统（xp）下就会出现错误，到底是为什么啊？？真的很急，请大家帮帮忙了，谢谢！

kuboybat 2004-04-25

打赏
举报

'需要引用:Microsoft ActiveX Data Objects 2.x Library
'2.x是版本号

'打开VFP的数据库的方法
Sub fox()
Dim iRe As ADODB.Recordset
Dim iConc As String

iConc = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DSN=Visual FoxPro Tables;UID=;SourceType=DBF" & _
";SourceDB=f:\My Documents""" 'f:\My Documents是数据库目录

Set iRe = New ADODB.Recordset
iRe.Open "select * from [aa.dbf]", iConc, adOpenKeyset, adLockOptimistic 'aa.dbf是dbf文件名

MsgBox iRe.Fields(0)
End Sub

jie202 2004-04-25

打赏
举报

Leftie(左手,为人民币服务) 你的打开方式还是不行，是不是和机子的配置也有关系啊！！
另外zgzzgz(数码辣椒) 什么是data link的方式啊，怎样写的？

饮水需思源 2004-04-25

打赏
举报

Dim conn As New ADODB.Connection
conn.ConnectionString = "provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=C:\fox\data;"
conn.Open

数码辣椒 2004-04-25