:)呆的城市太偏远,买不到。邮购至少也得两个星期吧?我的程序不能超过后天。一沾上VB和ACCESS,我就晕菜。

解决方案 »

  1.   

    如果VFP表的数据不是经常变化或者数据不多。可以考虑导入到Access中然后作视图。
      

  2.   

    Dim adoConnection As New ADODB.Connection
    adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db4.mdb;Persist Security Info=False"
    Dim adoRecordset As New ADODB.Recordset
    adoRecordset.Open "SELECT * FROM [dBASE IV;DATABASE=d:\dbfs\].[dBaseTable.dbf] AS [T1] INNER JOIN [AccessTable] ON [T1].[ID1] = [AccessTable].ID2", adoConnection
    Debug.Print adoRecordset.GetString
      

  3.   

    谢谢playyuer(女㊣爱)的无私代码,需要的功能已经在VFP中实现。