VB访问DBF数据？

Question

该如何写语句？用DATA控件能不能实现查询？

Answer 1

为什么我把data的RecordSource设置成
select * from ap
会出错

Answer 2

Private Sub Form_Load()
Data1.DatabaseName = "D:\LW"
Data1.RecordSource = "ap"
Data1.RecordSource = "SELECT * FROM ap"
End Sub
总是出错
说jet找不到'SELECT * FROM ap'????

Answer 3

这样不行，你要先创建ODBC数据源。在用ADO才行。因为JET引擎不支持DBF的数据库。

Answer 4

Set r1 = d1.OpenRecordset("SELECT * FROM ap where vendor_id='000001'")
为什么系统不支持选择的排序
是不是因为vendor_id不是索引？
还是？？

Answer 5

1、不能在Form_Load事件中初始化数据控件的绑定2、如何使用Data控件访问DBF文件：
   设置Data控件的Connect属性为：FoxPro X.X（2.0、2.5、2.6、3.0）
   设置Data控件的DataBaseName属性为：DBF文件所在的目录
   设置Data控件的RecordSource属性为"select * from ap"（sql查询字串）

Answer 6

假如DBF文件所在目录为d:\lw,文件名为ap。
dim Db as database,Rs as recordset 
set db=dbengine.opendatabase("d:\lw",false,false,"FoxPro 2.0;")
set rs=db.openrecordset("ap")
'选择
set rs=db.openrecordset("select * from ap where vendor_id=000001")  'vendor_id字段为数值型。
set rs=db.openrecordset("select * from ap where vendor_id='000001'")  'vendor_id字段为字符型只要工程中引用DAO，或添加了DATA控件，以上代码可行。