请教各位大虾，VB如何与DBASE相连，而不使用ODBC

[jylth]

[无言无忌]

Dim MyBase as Database,MyRecordset as Recordset

Set myBase=OpenDatabase("DBF File Path",False,False,";dBASE 5.0;")
Set myRecordset=myBase.OpenRecordset("DBF File Name",dbopentable)
...

[jylth]

我使用了你上面的代码，但是我的VB6。0却不认database类型，是不是我少引用了什么控件？

[Un1]

使用Ado

[jylth]

我已将ADO引用了呀！它们是Microsof ActiveX Data Objects 2.1 Library
Microsof ActiveX Data Objects Recordset 2.1 Library

[playyuer]

ODBC Driver 还是要有的!但可以不用 DSN:
ADO:
dim cn as new ADODB.Connection
cn.open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=e:\dbfs;SourceType=DBF; "
'cn.open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;DBQ=e:\dbfs;SourceType=DBF; "

[jylth]

thanks,playyuer.我已连上了.dbf数据库！thank you very much!

[Un1]

VB 源码 DBASE IV DBF 数据库引擎：

1：支持多种数据类型（Byte Array, Long String 甚至 IPicture 的数据库直接存储）
2：支持 Filter, 任意类似 SQL 语句查询。
3：无须任何其他 DLL 支持。
4：Binary 仅 64k 以内，Source 128k 以内。

http://www.banasoft.com/DownLoad/BNxBase.exe