vb怎么访问foxpro的dbf呀。能给出具体代码吗？

Question

DBGRID孔件怎么在vb6.0里找不到呀？帮帮我

Answer 1

http://jinesc.6600.org/myweb/disp.asp?idd=91&room=40你去光盘里找DBGRID.*

Answer 2

你到底问什么，VB连接
    gsDBF = App.Path + "\re_24_1.dbf"
    gsDBFdir = App.Path + "\"
    gsConnect1 = "dBase 5.0;"
    Set Dbs1 = OpenDatabase(gsDBFdir, False, False, gsConnect1)
    Dim DbfTemp As Recordset
    Set DbfTemp = Dbs1.OpenRecordset("re_24_1")

Answer 3

1、
dim db as database
dim ds as recordset
Set db = OpenDatabase(Path_output, False, False, "Dbase III;")
Set ds = db.OpenRecordset(File_output)2、
Set db = Workspaces(0).OpenDatabase(App.Path + "\cb.mdb")
db.Execute "INSERT INTO yhinfo(" + str1 + ") select " + TT1 + " FROM [FoxPro 5.0;DATABASE=" + Path_inport + "]." + "[" + File_inport + "]"
str1 tt1是 字段名称字符串    

Answer 4

可以引用ADO对象来搞定。
你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft AxtiveX Data Objects 2.1 Library”
示例：Private Sub Form_Load()
  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 XXX.DBF", cn, adOpenKeyset, adLockBatchOptimistic
  Set DataGrid1.DataSource = rs
  DataGrid1.Refresh
End Sub以上示例程序的作用是将XXX.dbf表中的数据显示在datagrid1控件中。

Answer 5

"SourceDB=;" & app.path & "\data" & _
这一句有点手误，少了一个分号，现改为：
"SourceDB=;" & app.path & "\data;" & _