chenyu5188(来自东方的狼)请进，达人也请进？

Question

chenyu5188(来自东方的狼),你好。我使用你关于如何使用ado打开dbf自由表的源代码，按F5启动时系统老是提示：
实时错误'-2147327865(80040e37)':
[Microsoft][ODBC Visual FoxPro Driver]File 'ccmon04.dbf' does not exits.
在rs.Open "select * from Ccmon04.dbf", cn, adOpenKeyset, adLockBatchOptimistic行我的源代码如下：Private Sub QueryCommand_Click()
Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim cnstr As String
  cnstr = "Driver={Microsoft Visual FoxPro Driver};" & _
           "SourceType=DBF;" & _
           "SourceDB=" & App.Path & "\data" & _
           "Exclusive=No"
  cn.Open cnstr
  rs.CursorLocation = adUseClient
  rs.Open "select * from Ccmon04.dbf", cn, adOpenKeyset, adLockBatchOptimistic
  Set DataGrid1.DataSource = rs
  DataGrid1.Refresh
End Sub

Answer 1

'连结dbf文件 
' 建立Connection  对象 
Set  conn  =  Server.CreateObject("ADODB.Connection") 
Driver  =  "Driver={Microsoft  Visual  FoxPro  Driver};" 
SourceType  =  "SourceType=DBF;" 
DBPath  =  "SourceDB="  &  app.path & "\Dbf" 
'  调用Open  方法连接数据库 
conn.Open  Driver  &  SourceType  &  DBPath Set  rs  =  Server.CreateObject("ADODB.Recordset") 
'  打开数据源，参数二为Connection对象 
rs.Open  "Select  *  From  sample",  conn,  2,  2 
%> 

Answer 2

ccmon04.dbf要放在App.Path & "\data目录下

Answer 3

ccmon04.dbf已经放在App.Path & "\data目录下了我刚开始学VB，对不连接数据库很不清楚，online(龙卷风(学习.NET中...)) 你能不能详细说说2楼的那个例子？谢谢了！

Answer 4

楼主我来了，你要确定你的数据文件放在与VB的工程文件一起的文件目录下。
打个比方。如果你的VB工程文件存放的目录为d:\myprg，那么数据文件应放在
d:\myprg\data目录下你再试试。

Answer 5

确定，百份百的确定文件是在\data下
还专在D盘上专了个myprg目录，结果还是一样：（会不会和dbf文件的版本用关呢？狼兄，我刚开始学VB，能不能介绍一些关于ado应该方面的文章，我看msdn里关于ado的很晕啊！郁闷中！！:(

Answer 6

连结foxpro文件 
<% 
'  建立Connection  对象 
Set  conn  =  Server.CreateObject("ADODB.Connection") 
Driver  =  "Driver={Microsoft  Visual  FoxPro  Driver};" 
SourceType  =  "SourceType=DBC;" 
DBPath  =  "SourceDB="  &  Server.MapPath(  "Dbf/Sample.dbc"  ) '  调用Open  方法连接数据库 
conn.Open  Driver  &  SourceType  &  DBPath Set  rs  =  Server.CreateObject("ADODB.Recordset") 
'  打开数据源，参数二为Connection对象 
rs.Open  "Select  *  From  sample",  conn,  2,  2 

Answer 7

online(龙卷风(学习.NET中...)) ,你那代我看的有点晕
Set  conn  =  Server.CreateObject("ADODB.Connection") 
老是提示424错误！