？？？一段访问DBF库的代码，出现了运行出现外表不是预期的格式的提示，如何处理？？？

2003-04-01 08:25:49 145 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从雷达工程师视角看：DBF、CAPON、MUSIC这些DOA算法，在实际项目中到底怎么选？本文从雷达工程师视角深入探讨DBF、CAPON、MUSIC等DOA算法在实际项目中的选择策略。通过对比算法复杂度、环境适应性和硬件实现细节，揭示工程约束下的最优平衡方案，特别强调在低信噪比和高动态场景中的算法决策树，为雷达系统设计提供实用指导。阅读详情

table_name = ListBox1.List(ListBox1.ListIndex)
DataGird1.Caption = table_name
provider = "provider = microsoft.jet.oledb.4.0"
datasource = "data source= " & App.Path + "\;Extended properties=dBase 5.0"
Adodc1.ConnectionString = provider & ";" & datasource
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = table_name 'dbf文件名
Set DataGrid1.datasource = Adodc1
Adodc1.Refresh

多谢 zsgzsgzsg(zsg)，但是改完后。运行出现外表不是预期的
格式提示，我用的是VFro6.0建立库

...全文

使用Python更快速地处理Excel Excel在当今商业中的使用非常普遍。在Dataquest，出于很多原因，我们通常推荐使用代码处理数据，并且我们的许多数据科学课程的目标是教授数据分析和数据科学的高效编码。但是，无论您多么喜欢使用Python，在一天结束时，有时您还是需要使用Excel来展示您的发现或共享您的数据。但这并不意味着我们就不能继续享受Python的一些效率了!实际上，使用一个名为xlwings的库，您可以使用Pyt... 阅读详情

sl80509

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

chenyu5188 2003-04-04

打赏
举报

"SourceDB=;" & app.path & "\data" & _
这一句有点手误，少了一个分号，现改为：
"SourceDB=;" & app.path & "\data;" & _

zsgzsgzsg 2003-04-02

打赏
举报

http://expert.csdn.net/Expert/topic/1601/1601494.xml?temp=.4547388

lxcc 2003-04-02

打赏
举报

运行出现外表不是预期的
你预期的是什么样？

还有
provider = "provider = microsoft.jet.oledb.4.0"
datasource = "data source= " & App.Path + "\;Extended properties=dBase 5.0"

改改，改成chenyu5188(蓝色情调) ( )的形式

chenyu5188 2003-04-02

打赏
举报

上面的小修改一下：
Dim cnstr As String
table_name = ListBox1.List(ListBox1.ListIndex)
DataGird1.Caption = table_name
cnstr = "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB=;" & app.path & "\data" & _
"Exclusive=No"
Adodc1.CommandType = adCmdTable
Adodc1.ConnectionString = cnstr
Adodc1.RecordSource = XXX表 'dbf文件名
Adodc1.refresh
Set DataGrid1.datasource = Adodc1
datagrid1.Refresh

假设你的数据库文件存放在app.path 中的\data目录下。
app.path是取得当前可执行文件的路径。

chenyu5188 2003-04-02

打赏
举报

可以引用ADO对象来搞定。
你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft AxtiveX Data Objects 2.1 Library"
示例：

Private Sub command1_click()
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控件中。

你程序内要改的主要是连接字符串。你可以参考以上的示例来做。

Dim cnstr As String
table_name = ListBox1.List(ListBox1.ListIndex)
DataGird1.Caption = table_name
cnstr = "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB=;" & app.path & "\data" & _
"Exclusive=No"
Adodc1.ConnectionString = cnstr
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = XXX表 'dbf文件名
Set DataGrid1.datasource = Adodc1
Adodc1.Refresh

假设你的数据库文件存放在app.path 中的\data目录下。
app.path是取得当前可执行文件的路径。

？？？一段访问DBF库的代码，出现了运行出现外表不是预期的格式的提示，如何处理？？？

相关推荐