Vb.net 单击按钮时，不会使用参数将文本框值添加到DataGridView

我正在使用Visual Basic 2008，问题是我想使用参数将文本框值传递给DataGridView。但是，每当我调试应用程序并单击save按钮时，表单就会显示，但DataGridView保持空白

这是我目前的代码：

Public Class frmEncode

Dim strConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & System.Environment.CurrentDirectory & "\EncodingComplete.accdb"

Dim cnnOLEDB As New OleDbConnection(strConnectionString)
Dim cmdOLEDB As New OleDbCommand
Dim cmd As OleDbCommand
  Private Sub ButtonX10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles     ButtonX10.Click

    Dim InsertQuery As String

    InsertQuery = "INSERT INTO EncodingComplete (Client, NoxiousRate, Address, Date_Bill, BusStyle_Name, Vessel, TIN, Port, [Pier No], InterPleader1, InterPleader2, Call_Date, Call_Time, Call_VoyageNo, FixedFee_Total, Call_ReceiveBy, VesselType, VesselCalls, FixedFee_ExcessCum, FixedFee_Amount, FixedFee_Rate, GarbageExcessCum, GarbageRate, GarbageAmnt, GarbageTotal, NoxiousExcessCum, NoxiousAmnt, NoxiousTotal, OtherExcessCum, OtherRate, OtherAmnt, OtherTotal, DollarConvers, AmountDue, PaymentDetails, TypeofPayment, DateofPayment, OrNo, Amount, Collector, BI, CSR, Other, OilyExcessCum, OilyRate, OilyAmnt, OilyTotal )VALUES(@client, @nRate, @address, @date, @buss, @vess, @tin, @port, @pier, @intpl1, @intpl2, @cDate, @cTime, @cVoy, @fFeeTotal, @cRec, @VessType, @vCalls, @fFee_ExcessCum, @fFee_Amnt, @fFee_Rate, @gExcessCum, @gRate, @gAmnt, @gTotal, @nExcessCum, @nAmnt, @nTotal, @oExcessCum, @oRate, @oAmnt, @oTotal, @dol, @due, @paydetails, @paytype, @datepay, @orno, @amnt, @col, @bi, @csr, @o, @oilexcesscum, @oilrate, @oilamnt, @oilTotal)"

    Dim cmd As OleDbCommand = New OleDbCommand(InsertQuery, cnnOLEDB)

    cmd.Parameters.AddWithValue("@client", ComboBoxEx1.Text)
    cmd.Parameters.AddWithValue("@nRate", TextBoxX28.Text)
    cmd.Parameters.AddWithValue("@address", TextBoxX1.Text)
    cmd.Parameters.AddWithValue("@date", DateTimePicker1.Text)
    cmd.Parameters.AddWithValue("@buss", TextBoxX11.Text)
    cmd.Parameters.AddWithValue("@vess", TextBoxX2.Text)
    cmd.Parameters.AddWithValue("@tin", TextBoxX3.Text)
    cmd.Parameters.AddWithValue("@port", ComboBoxEx2.Text)
    cmd.Parameters.AddWithValue("@pier", TextBoxX12.Text)
    cmd.Parameters.AddWithValue("@intpl1", ComboBoxEx4.Text)
    cmd.Parameters.AddWithValue("@intpl2", ComboBoxEx5.Text)
    cmd.Parameters.AddWithValue("@cDate", TextBoxX6.Text)
    cmd.Parameters.AddWithValue("@cTime", TextBoxX9.Text)
    cmd.Parameters.AddWithValue("@cVoy", TextBoxX4.Text)
    cmd.Parameters.AddWithValue("@fFeeTotal", TextBoxX49.Text)
    cmd.Parameters.AddWithValue("@cRec", TextBoxX10.Text)
    cmd.Parameters.AddWithValue("@VessType", ComboBoxEx3.Text)
    cmd.Parameters.AddWithValue("@vCalls", ComboBoxEx8.Text)
    cmd.Parameters.AddWithValue("@fFee_ExcessCum", TextBoxX14.Text)
    cmd.Parameters.AddWithValue("@fFee_Amnt", TextBoxX40.Text)
    cmd.Parameters.AddWithValue("@fFee_Rate", TextBoxX31.Text)
    cmd.Parameters.AddWithValue("@gExcessCum", TextBoxX15.Text)
    cmd.Parameters.AddWithValue("@gRate", TextBoxX30.Text)
    cmd.Parameters.AddWithValue("@gAmnt", TextBoxX39.Text)
    cmd.Parameters.AddWithValue("@gTotal", TextBoxX48.Text)
    cmd.Parameters.AddWithValue("@nExcessCum", TextBoxX17.Text)
    cmd.Parameters.AddWithValue("@nAmnt", TextBoxX37.Text)
    cmd.Parameters.AddWithValue("@nTotal", TextBoxX46.Text)
    cmd.Parameters.AddWithValue("@oExcessCum", TextBoxX18.Text)
    cmd.Parameters.AddWithValue("@oRate", TextBoxX8.Text)
    cmd.Parameters.AddWithValue("@oAmnt", TextBoxX36.Text)
    cmd.Parameters.AddWithValue("@oTotal", TextBoxX45.Text)
    cmd.Parameters.AddWithValue("@dol", TextBoxX50.Text)
    cmd.Parameters.AddWithValue("@due", TextBoxX51.Text)
    cmd.Parameters.AddWithValue("@paydetails", TextBoxX52.Text)
    cmd.Parameters.AddWithValue("@paytype", ComboBoxEx7.Text)
    cmd.Parameters.AddWithValue("@datepay", TextBoxX53.Text)
    cmd.Parameters.AddWithValue("@orno", TextBoxX54.Text)
    cmd.Parameters.AddWithValue("@amnt", TextBoxX55.Text)
    cmd.Parameters.AddWithValue("@col", TextBoxX56.Text)
    cmd.Parameters.AddWithValue("@bi", TextBoxX7.Text)
    cmd.Parameters.AddWithValue("@csr", TextBoxX5.Text)
    cmd.Parameters.AddWithValue("@o", TextBoxX13.Text)
    cmd.Parameters.AddWithValue("@oilexcesscum", TextBoxX16.Text)
    cmd.Parameters.AddWithValue("@oilrate", TextBoxX29.Text)
    cmd.Parameters.AddWithValue("@oilamnt", TextBoxX38.Text)
    cmd.Parameters.AddWithValue("@oilTotal", TextBoxX47.Text)
    cnnOLEDB.Open()
    cmdOLEDB = New OleDbCommand(InsertQuery, cnnOLEDB)
    cmd.ExecuteNonQuery()
    cnnOLEDB.Close()
    frmEncodeDatabase.Show()

应该是

 cmdOLEDB.ExecuteNonQuery();

---

对不起，先生…我换了我的帖子，因为它已经解决了。我只有一个问题，先生，已经在岗位上了。以前的问题是我缺少一些值。填充datagridview的代码在哪里。您的问题中没有这样的代码段。我将datagridview从数据源拖到表单中。。不需要这样疯狂的编码。您可以处理属性数据源。这永远不会起作用。不能使用参数将文本框值传递给datagridview。INSERT子句返回受影响的行数。如果要从数据库中选择行，请使用select子句-然后使用数据适配器或作为读取器执行命令。此处的代码是否有效？

 cmdOLEDB.ExecuteNonQuery();