如何用Ado对象访问vfp的数据库（*.dbf），帮忙看看下面的程序。

Question

1。mydb.Open "Provider=ADsDSOObject;Encrypt Password=False;Data Source=OutdDate.dbf;Location=C:\;Mode=ReadWrite;Bind Flags=0;ADSI Flag=-2147483648"2。strSql = "SELECT ZKzh,Dtxx FROM OutDate"
3。Set myrs = mydb.Execute(strSql)在第三句时出错。

Answer 1

连接字符串可能有问题
下面是我导出DBF文件的一段源码,请参考经过自己看了好多相关贴子与自己摸索，终于成功了，特贴出来与大家分享  
strFile  是要导出的DBF文件名,rsPayroll  报盘数据  
 
Private  Sub  ExportBankData(ByVal  strFile  As  String,  rsPayroll  As  ADODB.Recordset)  
       Dim  cnDBF  As  ADODB.Connection  
       Dim  strConString  As  String  
       Dim  strPath  As  String  
       Dim  strSql  As  String  
         
         
       On  Error  GoTo  Errorhandle  
       If  InStr(strFile,    "\  ")    >  0  Then  
               strPath  =  Left(strFile,  InStrRev(strFile,    "\  ",  -1,  vbTextCompare)  -  1)  
       Else  
               strPath  =    "C:  "  
               strFile  =    "C:\报盘.dbf  "  
       End  If  
 
       strConString  =    "Driver={Microsoft  Visual  FoxPro  Driver};  "  &  _  
                                               "SourceType=DBF;  "  &  _  
                                               "SourceDB=  "  &  strPath  &    ";  "  &  _  
                                               "Exclusive=YES;  "  
       Set  cnDBF  =  New  ADODB.Connection  
       cnDBF.ConnectionString  =  strConString  
       cnDBF.Open  
         
       strSql  =    "CREATE  TABLE  [  "  &  strFile  &    "]    "  &  _  
                 "(帐号  char(20),金额  numeric(8,2),姓名  char(22),编号  char(30),摘要  char(20),TEMP  char(1))  "  
       cnDBF.Execute  strSql  
         
       Do  While  Not  rsPayroll.EOF  
               strSql  =    "Insert  into    "  &  strFile  &  _  
                         "  Values('  "  &  Trim$(rsPayroll!hrsscount)  &    "',  "  &  CStr(rsPayroll!hrssacm)  &    ",'  "  &  _  
                               Trim$(rsPayroll!hrsnam)  &    "','','','')  "  
               cnDBF.Execute  strSql  
               rsPayroll.MoveNext  
       Loop  
         
       cnDBF.Close  
       Set  cnDBF  =  Nothing  
       Exit  Sub  
Errorhandle:  
       Set  cnDBF  =  Nothing  
       Err.Raise  Err.Number,  Err.Source,  Err.Description  
End  Sub