请问dbf文件是什么文件，如何读取，有控件什么的么？

Question

那位高手帮忙啊，谢谢

Answer 1

Visual FoxPro数据库,在VB中用ADO读取就可以

Answer 2

有相关代码吗？ado我比较熟，只要大楷什么意思写一下我就知道拉，谢谢兄弟

Answer 3

Dim cn As New ADODB.Connection
Dim rs   As New ADODB.Recordset
cn.ConnectionString = " Provider=VFPOLEDB.1;Data Source=D:\test;Password="";Collating Sequence=MACHINE"
    
    rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM dbf名称", cn, adOpenDynamic, adLockOptimistic

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

以上的.dbf文件是VFP的。
如果你的dbf文件是早期版的dbase格式的话那么就将连接字符串更改一下。记得使用本程序要先引用ADO对象。（引用方法见上）
示例：Private Sub Form_Load()
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim cnstr As String
  cnstr = oConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _
           "DriverID=277;" & _
           "Dbq=" & app.path & "\data"
  cn.Open cnstr
  rs.CursorLocation = adUseClient
  rs.Open "select * from XXX.DBF", cn, adOpenKeyset, adLockBatchOptimistic
  text1.text=trim(rs.Fields(0))
  text2.text=trim(rs.fields(1))
  .......
  text6.text=trim(rs.fields(5))
End Sub以上示例程序的作用是将XXX.dbf表中的各列的第一条记录的各列数据分别显示在不同的textbox控件中。几点说明：app.path是取得应用程序的当明目录，假设你的就用程序目录为：c:\myprg下，数据文件在c:\myprg\data目录下。那么app.path & "\data" 就代表了c:\myprg\data
即  app.path是取的相对路径，你也可以使用绝对路径c:\myprg\data.
在你的程序中要将我写的示例程序中相应的地方进行修，如表名，数据源路径等。

Answer 6

对不起给你的第一个示例中有点手误：
"SourceDB=app.path & "\data;" & _
这一句少了一个双引号“"”现在改为："SourceDB=" & app.path & "\data;" & _

Answer 7

oracle的文件也是DBF结尾的，要用ADO连接ORACLE
如果是FOXPRO的文件用DATA控件就行了

Answer 8

很感谢各位，回答都正确，但我进一步想知道，如何把数据保存成，dbf,请问怎么做啊？

Answer 9

你在ADO里，直接把数据保存到DBF中就行了

Answer 10

我是新建一个DBF文件啊，哪个怎么搞呢？有源代码么？简单一点就好了

Answer 11

我知道 Excel 可以读 DBF 文件