Set dat = OpenDatabase("c:\", False, False, "FoxPro 2.5;")

解决方案 »

  1.   

    dao.Connect = "foxpro 2.6;"
    dao.DatabaseName =数据库路径    '需绝对路径
    dao.RecordSource =数据库名称
    dao.Refresh
      

  2.   

    Set dat = OpenDatabase("c:\", False, False, "FoxPro 2.5;")
    不能打开实际的数据库吧,那么如果这样:
    dim aa as recordset
    set recordset=dat.openrecordset("select * from a")
    对吗?好像不行。那么怎么做。
     Leftie(Leftie)所说的是不是data控件,我不用data控件,我用的是
    dao对象
      

  3.   

    那可能是 
    Dim dat As Database
    Set dat = OpenDatabase(App.Path & "\", False, False, "FoxPro 2.5")很久没有写了, 不太记得了把 FoxPro 2.5 换成DBASEIV也可以的FOXPRO里的库相当于ACCESS里面的表 库所在的目录相当于ACCESS的库文件对于你的例子应该是
    dim r as DAO.Recordset 
    set r=dat.openrecordset("select * from 1")
    (这样就打开了1.DBF)
      

  4.   

    怎么试都不行,workspaces(0).opendatabase("",false,false,"FoxPro 3.0;database=c:\1.dbf")对吗?
    这种方法只能操作 FoxPro 2.5以下的DBF库文件
    FoxPro 2.5以上的库文件只能用ODBC 或ADO来访问
      

  5.   

    上面两位说的还是不行,另外我觉得foxpro 2.5以上的库文件只能用odbc或ado来访问说法是不对的,data控件封装的dao对象吧
      

  6.   

    以上代码是从我的程序里拷贝的, 不会告诉我你没有安装JET引擎吧~~~
      

  7.   

    怎么可能,我也觉得很怪,用系统odbc可以,同样用文件odbc就不行了。
    是不是数据库有问题,我是了确实不行。没办法。
    Dim dat As Database
    Set dat = OpenDatabase(App.Path & "\", False, False, "FoxPro 2.5")
    能打开库,但是不能操纵数据库,不能执行查询
    dim r as DAO.Recordset 
    set r=dat.openrecordset("select * from 1")
    好像不行
      

  8.   

    不好意思,我试过了,自己新建的foxbase库没问题
    不知道什么原因,可能这个数据库不是foxbase,也不是dbase
    要不给个邮箱,给你发过去,替兄弟我分析分析,谢了
      

  9.   

    [email protected]
    [email protected]