VB.NET - Visual Foxpro OLE DB 数字小数列问题

Question

简而言之： 我正在使用 VB.NET 2008 通过 vfpoledb.1 驱动程序连接到 Visual Foxpro 6 数据库。当我尝试使用包含数字列之一的数据集表填充 OleDbDataAdapter 时，收到以下错误消息：

提供程序无法确定十进制值。例如，刚刚创建该行，Decimal 列的默认值不是 可用，并且消费者尚未设置新的 Decimal 值。

我想从 VB.NET 2008 检索此列并将其保留为数字格式。

长版本：

我正在使用 VB.NET 连接到 Visual Foxpro 6 数据库。表中的几列适用于最多 8 位数字的数字数据类型。我不确定 Visual Foxpro 数据类型如何工作，但似乎该字段允许某人输入以下任何示例值：

99999999  
99999.99  
    9.99  
    9.00
{nothing} 

来自 Visual Foxpro：我可以访问名为 Foxwin 的小程序，它允许我浏览原生VFP环境。这就是我用来访问数据以获取我上面发布的示例的方法。从这里我可以看到，有些行在该字段中根本不包含任何值，尽管在没有数据时它们似乎填充了空格。我尝试运行更新查询来用有效数据填充每一行，但我的更新查询完成时没有更新任何行。我尝试过 ISNULL(bal_qty) 和 bal_qty IS NULL 但都不起作用。

从 MS Access 2007 开始：使用与 VB.NET 中使用的驱动程序相同的驱动程序，我可以毫无问题地加载 ADO 记录集并将其绑定到表单。小数值似乎被去掉了，可能是因为它们都是“.00”。我更喜欢在 VB.NET 中构建这个小程序，因此我仅使用 MS Access 进行测试。

来自 VB.NET：如果我将 bal_qty 转换为 String，我的 SQL 语句可以工作，但这会导致排序问题。我尝试过 VAL(STR(bal_qty)) 但失败并显示与我上面发布的相同的错误消息。这是我正在使用的代码：

Imports System.Data.OleDb

Public Class Form1
    Dim sConString As String = "Provider=vfpoledb.1;Data Source=C:\MyDatabase.dbc;Mode=3;"
    Dim con As OleDbConnection = New OleDbConnection(sConString)

    Private Function FetchData()

        con.Open()
        Dim ds As DataSet = New DataSet()
        Dim sSQL As String
        'This SQL statement works but the data doesn't sort properly.
        'sSQL = "SELECT item_cd, item_desc, STR(bal_qty) FROM invent;"

        sSQL = "SELECT item_cd, item_desc, bal_qty FROM invent;"

        Dim cmd As OleDbCommand = New OleDbCommand(sSQL, con)
        Dim daInv As OleDbDataAdapter = New OleDbDataAdapter(cmd)
        Dim iRecCount As Integer
        iRecCount = daInv.Fill(ds, "invent") 'The error occurs here.
        Me.DataGridView1.DataSource = ds.Tables("invent").DefaultView
    End Function

    Private Sub btnFetchData_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFetchData.Click
        Call FetchData()
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        con.Close()
        con = Nothing
    End Sub
End Class

Answer 1

我们在读取 FoxPro dbf 的 .NET 应用程序时遇到了这个问题。我们的解决方案是在 select 语句中使用以下内容：

SELECT PropertyID, VAL(STR(SaleAmt)) as SaleAmt FROM MyTable

这会将小数列 (SaleAmt) 转换为字符串，然后再转换回数值。此外，如果需要整数，您可以在 SELECT 语句中使用 INT(SaleAmt)。

Answer 2

我已经找到了导致此问题的问题。在 bal_qty 列/字段中输入的数字数据不符合列的数据类型定义。

我的字段 bal_qty 的 Visual Foxpro 数据定义为：
类型：数字
宽度：8
十进制：2

Visual Foxpro 软件显然允许用户在此字段中输入值 1000987，据我所知，这不会在 Visual Foxpro 中引起问题。但是，当使用 Visual Foxpro 以外的任何工具访问数据时，它确实会导致问题，因为它违反了该字段的设置。

进一步测试发现MS Access 2007也存在这个值的问题。将记录集加载到我的数据表视图表单后，我收到错误：“数据提供程序或其他服务返回了 E_FAIL 状态。”如果我包含以下 WHERE 子句，则不会收到错误： WHERE bal_qty < 9999

我现在已经通过运行 SQL UPDATE 语句来更改有问题记录中的 bal_qty 值来解决该问题。

我还在名为“标记”的列中发现了错误数据。数百条记录在应显示数字数据的地方仅显示星号。在我的记录集查询中包含此标记列也会导致我的查询失败并出现错误。

请参阅此 SO 帖子，了解数字列中的星号以及如何从 .NET 处理它：
如何读取星号 (***) 字段.DBF 数据库？

如果您尝试解决此问题，您可以使用 Visual RunFox 6 本机查看和编辑 VFP 数据，该软件在 Ed Leafe 的网站上是免费的：http://leaf.com/dls/vfp 您还可以从此处编辑表结构。除非您是经验丰富的 VFP 程序员，否则该工具远非直观。您必须从命令窗口输入 VFP 命令才能完成您想要执行的大部分操作。

Answer 3

我通过 C# 和 VB 使用 VFP 处理许多带/不带小数的表，没有出现任何问题。至于数据的排序，您可以将“order by”子句添加到选择中，以便其默认以预排序模式从 VFP 向下进入 VB。

此外，在我构建的版本中，我不会查询数据集，并且不知道这是否可能在某个地方出现问题...

dim dt as DataTable
dim sSQL as String
sSQL = "Select item_cd, item_desc, bal_qty from invent order by bal_qty"

then, your data adapter...

daInv.Fill( dt )

then you would still be able to bind directly to your grid...

Me.DataGridView1.DataSource = dt

至于数字内容，来自您的 DBF 查看器实用程序，输入掩码表结构的默认值应为其预期值...浏览到任何记录，进入字段并开始输入“9.99999”，即“9”。将强制您输入已知的小数位置，然后继续在小数点后输入 9，看看有多少实际可用位置。我可以想象，如果您尝试输入一个比其允许的小数精度更高的值，它可能会困扰您。