请问dbf文件是什么文件,如何读取,有控件什么的么?

发布网友发布时间：2022-04-03 23:20

共1个回答

热心网友时间：2022-04-04 00:50

以上的.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.
在你的程序中要将我写的示例程序中相应的地方进行修，如表名，数据源路径等。