如何使用DataRow更新数据库？

问题是您正在尝试配置，DataAdapter使其可在中的所有6个表上使用DataSet。如果查看构建的INSERT或UPDATE命令，您会发现它们是所有表中所有列的混合物。设置一个DataAdapter为您完成艰苦的工作就可以在一张桌子上工作。

我不知道什么negeri，其余的翻译成什么，但是看起来只有一个是事务表。其余的DevCompanyName似乎是为项目记录表提供值的域/代码表。

通常，其中一些是根据业务规则固定的，而这些则不需要添加/更新的方法。其他人可能需要一种添加新项的方法，但只是偶尔地。手动进行这些更新，以便可以设置DA并将其与应用程序所关注的主表一起使用。如果有添加Mukim等人的表格或标签，只需在其中插入并刷新即可。

至少，我会将那些域表存储在一个单独的目录中DataSet，以便它们不会妨碍您，但仅使用其中一个，就可以像下面这样配置它：

Using dbcon As New MySqlConnection(MySQLConnStr)

        dsS = New DataSet
        dbcon.Open()

        ' add table 1 - Mukim
        dsS.Tables.Add("Mukim")
        Using cmd As New MySqlCommand("SELECT DeptCode, Descr FROM Department", dbcon)
            dsS.Tables("Mukim").Load(cmd.ExecuteReader())
            cboColors.DataSource = dsS.Tables("Mukim")
            cboColors.DisplayMember = "Descr"    ' ie "Management"
            cboColors.ValueMember = "DeptCode"   ' eg "MGMT"
        End Using

        ' add table 2 - negeri
        ' this table is fixed - new rows are very rare
        Using cmd As New MySqlCommand("SELECT DeptCode, Descr FROM cDepartment", dbcon)
            Dim dt As New DataTable
            dt.Load(cmd.ExecuteReader)
            cboDept.DataSource = dt
            cboDept.DisplayMember = "Descr"             ' "Sommelier"
            cboDept.ValueMember = "DeptCode"            ' "SOMM"
        End Using

        ' etc

        ' main transaction table - project
        ' do this last
        Dim prjcmd = New MySqlCommand(prjSql, dbcon)
        daSample = New MySqlDataAdapter(prjcmd)

        Dim cb As New MySqlCommandBuilder(daSample)
        daSample.SelectCommand = prjcmd
        daSample.InsertCommand = cb.GetInsertCommand
        ' etc

        dsS.Tables.Add("Project")
        daSample.Fill(dsS.Tables("Project"))
        daSample.FillSchema(dsS.Tables("Project"), SchemaType.Source)
    End Using

代码将那些域/代码表存储在DataSet可能会更改的域/代码表中。代替适配器，它们使用填充DataReader。任何固定的内容（例如“部门”）都将发布到相关的CBO并被遗忘。根据实际更新的频率，您可以对所有这些文件都使用此方法，并在它们获得新行时仅绑定到新表。

该代码还使用为相关CBODataTable创建的DataSource。我不确定您的代码在做什么，因为它存储Combobox.Text。如果我确实DataTable使用新条目进行了更新，则可以对其进行编码以使其自动显示。

结果是DataAdapter知道如何更新等主项目表，而不会被这些其他表所混淆。然后插入就可以了：

    Dim dr = dsS.Tables("Project").NewRow
    dr("Name") = "My New Row"
    dr("Mukim") = cboMukim.SelectedValue     ' MGMT
    ... etc
    dsS.Tables(1).Rows.Add(dr)

    daSample.Update(dsS.Tables("Project"))
    dsS.Tables("Project").AcceptChanges()

    ' See Notes
    Dim rows = daSample.Fill(dsS.Tables("Project"))       ' refresh
    dsS.Tables("Project").Rows.Remove(dr)

1. 由于Mukim CBO现在已绑定，因此可以使用将SelectedValue其存储到项目中。
2. 该DataTable曲目的行是新的，添加，删除等更新后，使用AcceptChanges清除这些标志。
3. 如果表使用AI PK，则新行最初将为0。如果刷新项目表，则将获得带有数据库提供的PK的新记录。这意味着将有2条“我的新行”记录，一条记录带有实际的db提供的ID，一条记录为零。删除（而不是删除！）我们添加的新行将消除这一点。

尚不清楚第3项是否适用。FloatNo可能是PK，在这种情况下，您可以跳过删除操作。同样，循环遍历“所有”行以查看是否存在“ FloatNo”，这将仅循环遍历已加载的一（1）行，因为查询包含一个LIMTI 1子句。

并非没有，但您可以使用来简化UI DataGridView。Mukim等人可能是ComboBox列，而不是表单上的组合框，因此可以为您添加新行。您只需要在验证和/或他们单击保存后进行更新即可。