Question

我是VB.Net的新手，并且在Windows窗体应用程序方面遇到了很多麻烦。

我的表单上有一个按钮，我试图设置为更新我的本地SQL Server数据库。这是我目前在“保存”按钮后面的代码。我已经调整了Save按钮后面的代码，现在看起来像这样：

    Public Property InsertCommand As SqlCommand
    Public Property cn As SqlConnection     
    Private Sub b_Save_Click(sender As Object, e As EventArgs) Handles b_Save.Click
         Try

        Dim row As CV_Calls_DBDataSet.CV_Main_tblRow = DS_CV_Calls_DB.CV_Main_tbl.NewCV_Main_tblRow

        row.Call_Base_num = Me.CallNumber_mtx.Text
        row.Cash_Vendor_Code = Me.cbo_Vendor.Text
        row.Error_Code = Me.cbo_Error.Text
        row.Error_Location_Code = Me.cbo_Location.Text
        row.RowID = DS_CV_Calls_DB.CV_Main_tbl.Count + 1

        DS_CV_Calls_DB.CV_Main_tbl.AddCV_Main_tblRow(row)
        cn = New SqlConnection("Data Source=(LocalDB)\v11.0;Database=|DataDirectory|\CV_Calls_DB.mdf;Integrated Security=TRUE;")
        CreateCallAdapter(cn)
        'For Each row In DS_CV_Calls_DB.CV_Main_tbl.Rows
        '    Debug.WriteLine(row.RowState)
        '    Debug.WriteLine(row.Call_Base_num)
        '    Debug.WriteLine(row.Cash_Vendor_Code)
        '    Debug.WriteLine(row.Error_Location_Code)
        '    Debug.WriteLine(row.Error_Code)
        '    Debug.WriteLine(row.RowID)
        'Next


        TA_CV_Main.Update(DS_CV_Calls_DB.CV_Main_tbl)
        CreateCallAdapter(cn)
        MessageBox.Show(DS_CV_Calls_DB.HasChanges())
        MessageBox.Show("Saved!")
        Me.Close()
    Catch ex As Exception
        MessageBox.Show(ex.ToString)
    End Try
End Sub

    Public Function CreateCallAdapter(ByVal connection As SqlConnection) As SqlDataAdapter
    Dim adapter As SqlDataAdapter = New SqlDataAdapter
    Dim command As SqlCommand = New SqlCommand("Select * FROM CV_Main_tbl", connection)
    'Create InsertCommand
    command = New SqlCommand("INSERT INTO CV_Main_tbl (Call_Base_num, Cash_Vendor_Code, Error_Location_Code, Error_Code) VALUES (@Call_Base_num, @Cash_Vendor_Code, @Error_Location_Code, @Error_Code)", connection)
    'Add the parameters for the InsertCommand

    command.Parameters.Add("@Call_Base_num", SqlDbType.Int, Me.CallNumber_mtx.Text)
    command.Parameters.Add("@Cash_Vendor_Code", SqlDbType.SmallInt, Me.cbo_Vendor.Text)
    command.Parameters.Add("@Error_Location_Code", SqlDbType.SmallInt, Me.cbo_Location.Text)
    command.Parameters.Add("@Error_Code", SqlDbType.SmallInt, Me.cbo_Error.Text)
    command.Parameters.Add("@RowID", SqlDbType.Int, DS_CV_Calls_DB.CV_Main_tbl.Count + 1)
    adapter.InsertCommand = command
    Return adapter
End Function

当我运行此代码时，我仍然收到一条消息，说明数据已保存。但是，当我通过服务器资源管理器检查实际表时，没有添加任何内容。你对我做错了什么有任何建议吗？

Answer 1

DataSet.HasChanges并不意味着更改（已更改，已删除或已插入的行）已保存到数据库。这仅表示此DataTable的{{1}}中至少有一行有DataSet＆lt;＆gt; RowState。

您需要在适当的InsertCommand，Unchanged和DataAdapter中使用Update'DeleteCommand方法。

所以我假设您没有提供这些UpdateCommand。你有没有在表中添加行？那你需要一个Commands。您是否更改了InsertCommand的字段，然后需要DataRow，如果您在一行或多行上调用UpdateCommand，则需要提供DataRow.Delete。< / p>

查看example on MSDN。

在您的代码示例中，您没有将新创建的DeleteCommand添加到DataRow。因此，您需要使用名称类似于：

的自动生成方法

DataTable

在致电

DS_CV_Calls_DB.CV_Main_tbl.AddtblRow(row)

之前

。

Answer 2

我最近遇到了同样的问题。如果您在页面加载时设置任何输入值，则在您“提交”页面时会再次设置相同的值。例如，这是我的Page_Load事件的简化版本：

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    displayValues()'this function sets all the input values on the page

End Sub

当我尝试提交表单并运行update语句时，update语句正在运行，但没有更改任何值，因为输入值首先由displayValues（）重置。

事实证明这是在PostBack上发生的，所以要修复它，我添加了'IF Not IsPostBack'，这样值只会自动加载到初始页面加载：

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    If Not IsPostBack Then
        displayValues()'this function sets all the input values on the page
    End If
End Sub

希望这有帮助！

VB.Net更新命令不起作用

2 个答案: