我在网上找了个访问DBF表的例子,很简单,但是3天了,就是没搞明白:
窗体A,DATA1,DBGrid1,表SJ.DBF,工程运行正常。代码如下:Dim db As Database
Dim RS As RecordsetPrivate Sub Form_Load()
Set db = OpenDatabase(App.Path & "\", False, False, "FOXPRO 2.5;")
Set RS = db.OpenRecordset("SJ")
Set Data1.Recordset = RS
Data1.Refresh
End Sub
Private Sub Form_Activate()
DBGrid1.Columns(0).Width = 400
DBGrid1.Columns(1).Width = 1500
DBGrid1.Columns(2).Width = 1200
DBGrid1.Columns(3).Width = 1500
End Sub
Private Sub Text2_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Select Case Index
Case 2
Command2.SetFocus
Case 1
Text2(2).SetFocus
Case 0
Text2(1).SetFocus
End Select
End If
If KeyCode = vbKeyLeft Then
Select Case i
Case 2
Text2(1).SetFocus
Case 1
Text2(0).SetFocus
End Select
End If
End Sub
Private Sub Command2_Click()
RS.AddNew
RS.Fields(1).Value = Text2(0).Text
RS.Fields(2).Value = Text2(1).Text
RS.Fields(3).Value = Text2(2).Text
RS.Update
RS.Close
For i = 0 To 2
Text2(i) = ""
Next i
Data1.Refresh
DBGrid1.Columns(0).Width = 400
DBGrid1.Columns(1).Width = 1500
DBGrid1.Columns(2).Width = 1200
DBGrid1.Columns(3).Width = 1500
End Sub
Private Sub Command3_Click()
On Error Resume Next
Data1.Recordset.Delete
End Sub
Private Sub Command1_Click()
End
End Sub我找遍了两个控件的全部属性,楞是早不到SJ.DBF这个名称,代码里也没有,
把project1.vbw删了重载工程也不行,我知道这肯定是我不会用DATA控件所
致,请高人指点一下吧。补充问题:
文件:sskf.dbf,SSKF.CDX,SSKF.DBC,SSKF.DCT,还有个运行时一闪而过的.EXE,
我在可视化数据管理器中打开sskf.dbf,但是当在数据库窗口单击"Indexes"时弹出错误
提示:不能访问FoxPro 3.0绑定的DBF文件,无论我在打开时选择什么版本都一样,请问这是什么
原因呢?
------------------------------------------------------------------------------
最后25分了,不好意思,请各位见谅!
窗体A,DATA1,DBGrid1,表SJ.DBF,工程运行正常。代码如下:Dim db As Database
Dim RS As RecordsetPrivate Sub Form_Load()
Set db = OpenDatabase(App.Path & "\", False, False, "FOXPRO 2.5;")
Set RS = db.OpenRecordset("SJ")
Set Data1.Recordset = RS
Data1.Refresh
End Sub
Private Sub Form_Activate()
DBGrid1.Columns(0).Width = 400
DBGrid1.Columns(1).Width = 1500
DBGrid1.Columns(2).Width = 1200
DBGrid1.Columns(3).Width = 1500
End Sub
Private Sub Text2_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Select Case Index
Case 2
Command2.SetFocus
Case 1
Text2(2).SetFocus
Case 0
Text2(1).SetFocus
End Select
End If
If KeyCode = vbKeyLeft Then
Select Case i
Case 2
Text2(1).SetFocus
Case 1
Text2(0).SetFocus
End Select
End If
End Sub
Private Sub Command2_Click()
RS.AddNew
RS.Fields(1).Value = Text2(0).Text
RS.Fields(2).Value = Text2(1).Text
RS.Fields(3).Value = Text2(2).Text
RS.Update
RS.Close
For i = 0 To 2
Text2(i) = ""
Next i
Data1.Refresh
DBGrid1.Columns(0).Width = 400
DBGrid1.Columns(1).Width = 1500
DBGrid1.Columns(2).Width = 1200
DBGrid1.Columns(3).Width = 1500
End Sub
Private Sub Command3_Click()
On Error Resume Next
Data1.Recordset.Delete
End Sub
Private Sub Command1_Click()
End
End Sub我找遍了两个控件的全部属性,楞是早不到SJ.DBF这个名称,代码里也没有,
把project1.vbw删了重载工程也不行,我知道这肯定是我不会用DATA控件所
致,请高人指点一下吧。补充问题:
文件:sskf.dbf,SSKF.CDX,SSKF.DBC,SSKF.DCT,还有个运行时一闪而过的.EXE,
我在可视化数据管理器中打开sskf.dbf,但是当在数据库窗口单击"Indexes"时弹出错误
提示:不能访问FoxPro 3.0绑定的DBF文件,无论我在打开时选择什么版本都一样,请问这是什么
原因呢?
------------------------------------------------------------------------------
最后25分了,不好意思,请各位见谅!
解决方案 »
- VB6.0 如何连接Sqlite数据库?是不是也有像连接Access的代码?
- 使用菜单编辑器遇到的问题.(在线等)
- 一个很简单的问题。希望高手帮忙
- 刚刚看到一个据说是刘伯温老先生写的打油诗
- 高手:Garfield(猫仔|别忘了结帖,同志),帮帮忙吧!webbrowser的问题!
- 中秋节,还没有女朋友,郁闷,散分了!
- 如何把菜单做成透明的,并且还可以在几秒钟之后,菜单自动消失?
- 怎样让Select case语句能匹配一整块范围 ——急!在线等候
- 一个小问题~~~~~~~~~~~~~~!!!!!(关于datacombo)
- 求助:“子过程或者函数未定义”
- 关于Timer的问题
- 如何屏闭ctrl+c 和 右键 粘贴功能
文件:sskf.dbf,SSKF.CDX,SSKF.DBC,SSKF.DCT,还有个运行时一闪而过的.EXE,
我在可视化数据管理器中打开sskf.dbf,但是当在数据库窗口单击"Indexes"时弹出错误
提示:不能访问FoxPro 3.0绑定的DBF文件,无论我在打开时选择什么版本都一样,请问这是什么
原因呢?
-------------------------------------------------------------------
同时,在可视化数据管理器中\文件\导入导出\导出 中选择了任意版本的FoxPro数据源并选择sskf.dbf
文件导出时,弹出错误提示:
查询输入必须包含至少一个表或查询......
总之在VB中操作sskf.dbf什么都不能完成,在查询生成器里连字段都看不见
代码中用的是SJ.dbf。将SJ换成sskf试试
.dbc 数据库 .dct 数据库备注 .dcx 数据库索引 .dbf 表
sskf.dbf是你自己建的,还是和代码一块找来的?你看一下Data1的connect属性,下拉框中有没有FoxPro 3.0?如果没有,那就是你VB的版本问题