Question

我似乎遇到了问题。我有一个dataset（excel）来源于Windows窗体应用程序中的datagridview。我希望在对单元格进行更改后，找到一种在dataset内刷新/更新datagridview的方法。

让我完成我试图完成的步骤。我已在表单中添加了“刷新”button，并且我创建了一个名为write2DGV的方法，该方法会在dataset进行更改后将更改写入datagridview }。

我添加了一个计时器，允许Excel更新以更新输出。我还添加了代码来擦除我的dataset（这是datagridview的数据源）。最后我有一个检索方法，会通过dataset将datagridview提供给oledataadapter。

不幸的是，当我运行代码时，我收到一条错误消息，指出没有提供密钥作为get update方法的参数。我不确定它们的意思是“key”，get update方法的参数唯一有效的数据类型是boolean。我的代码如下：

'Declarations
Dim myDataSet As DataSet
Dim MyCommand As OleDb.OleDbDataAdapter
Dim objWorkSheet As Excel.Worksheet = objExcel.ActiveSheet
Dim sizetimer As New System.Timers.Timer

Sub retrieveMyDataSet()
    MyCommand = New OleDbDataAdapter(select * from [MyExcelWorksheet$A13:x150], MyConnection)
     myDataSet = New System.Data.DataSet()
    MyCommand.Fill(myDataSet)
    myDataGridView.DataSource = myDataSet.Tables(0).DefaultView
End Sub

Sub write2Size()
    'A-k gets written.  Entire graph goes to a-x so I only need to writ the columncount -14
   'x is letter 24. k is letter 11.  24-11 = 13.  So, offset needs to be -13
   '39;Rows 13 through first blank
        Dim rowindex As Integer
        Dim columnindex As Integer
        For rowindex = 1 To myDataGridView.RowCount
        For columnindex = 1 To myDataGridView.ColumnCount - 13
            objWorkSheet.Cells(rowindex + 13, columnindex + 0) = myDataGridView(columnindex     - 1, rowindex - 1).Value
        Next
    Next
End Sub

Sub refreshDGV()
    write2DGV()
    myDataSet.Clear()
    Dim x As New OleDbDataAdapter("select * from [MyExcelWorksheet$A13:x150]", MyConnection)
    Dim oledbCommands As New OleDb.OleDbCommandBuilder(x)
    x.UpdateCommand = oledbCommands.GetUpdateCommand() 'oops type! removed = x.UpdateCommand
    x.Update(myDataSet)
    sizetimer.AutoReset = True
    sizetimer.Interval = 2000 '2 seconds
    retrieveMyDataSet()
End Sub

Private Sub refreshbtn_Click(sender As System.Object, e As System.EventArgs) Handles refreshbtnSize.Click
   refreshDGV()
End Sub

Answer 1

不幸的是，当我运行代码时，我收到一条错误消息提供密钥作为get update方法的参数。

本文解释了此错误的原因，您应该阅读：How To Use ADO.NET to Retrieve and Modify Records in an Excel Workbook With Visual Basic .NET

您正在使用本文中提到的解决方案之一来更新工作表，即更改您已从Excel工作簿中填充表/查询的DataSet，然后调用DataAdapter的Update方法解决从DataSet到工作簿的更改。

但是在我们读完之后：

但是，要使用Update方法更改分辨率，必须进行设置 DataAdapter的InsertCommand
的参数化命令

INSERT INTO [Sheet1$] (F1, F2) values (?, ?)

和UpdateCommand：

UPDATE [Sheet1$]SET F2 = ? WHERE F1 = ?

参数化INSERT和UPDATE命令必需，因为OleDbDataAdapter不提供键/索引 Excel工作簿的信息;没有键/索引字段， CommandBuilder无法自动为您生成命令。

消息很明确：如果你想要实现你想要做的事情，你必须显式地编写参数化的INSERT和UPDATE命令。

不要忘记，Excel有很多功能，但并不是专门用作数据库。所以为了避免很多问题，我建议你切换到另一个本地数据库（SqlServerCompact，SQlLite，...）。

oledbdataadapter命令构建器getupdate，需要键参数

1 个答案: