如何使用VB.NET将数据插入两个表?

时间:2016-11-07 06:44:41

标签: sql asp.net vb.net

我有一个关于如何将数据插入两个不同表的问题。所以我的要求就是这个。

  • 用户将在“员工信息”下填写所有必需的信息,然后为了保存数据,用户将单击“保存”按钮。在“组详细信息”下,用户需要在下拉菜单中单击所有需要的信息,然后在单击“添加链接”之前在表格网格视图的文本框中输入,此后页面将加载显示“添加的作业标题”和业务组详细信息。允许用户输入与用户想要的一样多的作业标题。最后是Add New Employee to Headcount列表,用户需要单击PROCEED按钮以添加添加的Employee Information的人数。 我已经完成了表格,但是我在保存输入的数据时遇到了问题。

所以我的第一个表格看起来像这个Before,我编辑它,现在这是我的表格Now

所以我的问题是这个,在我的数据库中我有两个表。

EMP_MASTERTBL has these columns

 SEQID | MASTERID | firstname | lastname | Country | JOBTITLE

and EMPGROUP_TBL has these columns

MASTERID | business_unit | division | Sub_Division

现在每次单击保存时,作业标题将无法保存在EMP_MASTERTBL中,因此我在VB.Net中创建一个代码,当我单击Group下的添加按钮时,该代码将更新EMP_MASTERTBL表的信息。

这是我的代码。

If UpdateInsDelRecord("INSERT INTO EMPGROUP_TBL (MASTERID, BUSINESS_UNIT, " & _
                  "DIVISION, SUB_DIVISION, CLASSIFICATION, SUB_CLASSIFICATION) VALUES " & _
                  "('" + HandleQuote(Me.lblval_Empid.Text) + "', " & _
                  "'" + Me.ddl_BusinessUnit.SelectedValue.ToString() + "' ," & _
                  "'" + val_division + "' ," & _
                  "'" + val_subdivision + "' ," & _
                  "'" + Me.ddl_Classification.SelectedValue.ToString() + "' ," & _
                  "'" + Me.ddl_SubClassification.SelectedValue.ToString() + "')" & _
                  ";" & _
                   "UPDATE EMP_MASTERTBL SET JOBTITLE = '" + Me.txtJobtitle.Text + "' " & _
                   "WHERE MASTERID = '" + Me.lblval_Empid.Text + "'") = True Then
    Return True
    Response.Redirect("eHR_EmpMaintenance.aspx")
Else
    Return False
End If

但是用户必须能够像用户想要的那样添加Jobtitle。所以我以为我会为此写另一个查询?如何添加组详细信息并能够添加与用户想要的Jobtitle一样多的组?请帮帮我。

感谢。

1 个答案:

答案 0 :(得分:0)

我对您的UpdateInsDelRecord方法不太确定。如果只是执行返回类型为Boolean的sql查询,则可以使用; 分隔符编写另一个插入/更新查询。我相信你想在EMPMASTER_TBL表中更新字段Jobtitle。

If UpdateInsDelRecord("INSERT INTO EMPGROUP_TBL (MASTERID, BUSINESS_UNIT, " & _
                          "DIVISION, SUB_DIVISION, CLASSIFICATION, SUB_CLASSIFICATION) VALUES " & _
                          "('" + HandleQuote(Me.lblval_Empid.Text) + "', " & _
                          "'" + Me.ddl_BusinessUnit.SelectedValue.ToString() + "' ," & _
                          "'" + val_division + "' ," & _
                          "'" + val_subdivision + "' ," & _
                          "'" + Me.ddl_Classification.SelectedValue.ToString() + "' ," & _
                          "'" + Me.ddl_SubClassification.SelectedValue.ToString() + "')" &_
                          ";" &_ 
                           "UPDATE EMPMASTER_TBL SET JOBTITLE = "Your value" WHERE empno = "YOur emp id"  " ) = True Then
        Return True
        Response.Redirect("eHR_EmpMaintenance.aspx")
    Else
        Return False
    End If