Question

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

在“组详细信息”下，用户需要在下拉菜单中单击所有需要的信息，然后在单击“添加链接”之前在表格网格视图的文本框中输入，此后页面将加载显示添加的作业标题和业务组细节。允许用户输入与用户想要的一样多的作业标题。

我已经完成了表格，但是我在保存输入数据方面遇到了问题。

所以我的第一个表格看起来像Before

我编辑它，这是我的表Now

所以我的问题是这个，在我的数据库中我有两个表。一个是EMPGROUP_TBL，列有SEQID，masterID，业务单位，部门，子部门等，另一个是EMP_MASTERTBL，列有MasterID，Name，LastName，Jobtitle。

现在，每次单击添加链接时，作业标题将无法保存在EMP_MASTERTBL中，因此我在VB.Net中创建了一个代码，当我单击“组详细信息”下的“添加”按钮时，该代码将更新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和EMPGROUP_TBL详细信息一样多的内容。所以我以为我会为此写另一个查询？如何添加组详细信息并能够添加与用户想要的Jobtitle一样多的数量？

CheckIfExist

我想也许我可以使用CheckIfExist，如果员工的现有数据与作业标题，业务部门，部门，细分，分类和子分类类似于您要添加的数据，则消息框将显示数据已经存在。如果未找到任何数据，则可以在员工的组详细信息下添加详细信息。如果您输入类似的职位名称但不同的业务单位等，数据将会更新，反之亦然。

这是我的代码。

   Function SaveUserGroup() As Boolean
    Try
        Dim jobtitle As String = Me.txtJobtitle.Text
        Dim businessunit As String = Me.ddl_BusinessUnit.SelectedValue
        Dim division As String = Me.ddl_Division.SelectedValue
        Dim subdivision As String = Me.ddl_SubDivision.SelectedValue
        Dim classification As String = Me.ddl_Classification.SelectedValue
        Dim subclassification As String = Me.ddl_SubClassification.SelectedValue
        Dim CheckMasterTblIfExist As Boolean
        Dim CheckGroupTblIfExist As Boolean
        Dim insrtResult As Boolean
        Dim seqid As String = Me.lblSEQID.Text
        Dim emp_id As String = Request.QueryString("emp_id")

        If jobtitle <> "" And businessunit <> "Please Select" And division <> "Please Select" And subdivision <> "Please Select" And classification <> "Please Select" And subclassification <> "Please Select" Then
            CheckMasterTblIfExist = CheckRecord("SELECT MASTERID, JOBTITLE FROM EMP_MASTERTBL WHERE JOBTITLE = '" & jobtitle & "' AND MASTERID = '" & emp_id & "' ")
            CheckGroupTblIfExist = CheckRecord("SELECT * FROM EMPGROUP_TBL WHERE BUSINESS_UNIT = '" & businessunit & "' AND DIVISION = '" & division & "' AND SUB_DIVISION = '" & subdivision & "' AND CLASSIFICATION = '" & classification & "' AND SUB_CLASSIFICATION = '" & subclassification & "' AND MASTERID = '" & emp_id & "' AND SEQID = '" & seqid & "'")
            If Not CheckMasterTblIfExist And CheckGroupTblIfExist Then
                insrtResult = UpdateInsDelRecord("UPDATE EMP_MASTERTBL SET JOBTITLE = '" & jobtitle & "' " & _
                                                 "WHERE MASTERID = '" + Me.lblval_Empid.Text + "'" & _
                                                 ";" & _
                                                 "INSERT INTO EMPGROUP_TBL(MASTERID, BUSINESS_UNIT, " & _
                                                 "DIVISION, SUB_DIVISION, CLASSIFICATION, SUB_CLASSIFICATION) VALUES " & _
                                                 "('" & HandleQuote(Me.lblval_Empid.Text) & "', " & _
                                                 "'" & businessunit & "' ," & _
                                                 "'" & division & "' ," & _
                                                 "'" & subdivision & "' ," & _
                                                 "'" & classification & "' ," & _
                                                 "'" & subclassification & "')")

                If Not insrtResult Then
                    MessageBox("alert('Error Ocurred While Inserting a Data.')")
                Else
                    MessageBox("alert('Successfully Added.')")
                End If
            Else
                MessageBox("alert('Data Already Exist.')")
            End If
        End If
    Catch ex As Exception
        MessageBox("Error Ocurred while Inserting a data")
        Throw
    End Try
End Function

我还没有完成代码。如果没有数据我在添加内容我的问题是，即使仍然没有添加员工的群组详细信息，消息框仍然告诉我数据已经存在。请帮帮我。

Answer 1

begin tran
if exists (select * from table with (updlock,serializable) where key = @key)
begin
   update table set ...
   where key = @key
end
else
begin
   insert into table (key, ...)
   values (@key, ...)
end
commit tran

你可以像这样使用

CheckIfExist。如果存在则不插入数据，如果不插入数据

1 个答案: