VB에서 동시에 두 개의 쿼리를 실행하는 방법은 무엇입니까? (MySql)

Question

두 쿼리를 동시에 실행하는 가장 효율적인 방법은 무엇입니까? 제출 단추를 클릭 할 때 두 개의 INSERT SQL 쿼리 (다른 테이블)를 동시에 실행하려고합니다. 그것은 가능한가?

는 여기에 내가했던 일이야 :

Dim conn As New MySqlConnection("Server = localhost; user id = root;password = ; database = ddap_hr") 
    Dim sqlQuery1 As String = "INSERT INTO applicants VALUES ('" & lblID.Text & "' , '" & txtLName.Text & "','" & txtFName.Text & "','" & txtMName.Text & "','" & cmboGender.Text & "','" & mtxtAge.Text & "','" & dtpBdate.Value & "','" & cmboStatus.Text & "','" & txtSSS.Text & "','" & txtTin.Text & "','" & txtReligion.Text & "','" & txtAddress.Text & "','" & mtxtContactNum.Text & "','" & txtEmail.Text & "')" 
    Dim sqlQuery2 As String = "INSERT INTO appli_idgen(Lzero) VALUES ('" & lblNum.Text & "')" 
    Dim cmd1 As New MySqlCommand(sqlQuery1) 
    Dim cmd2 As New MySqlCommand(sqlQuery2) 
    Dim rdr As MySqlDataReader 

    Dim ConfirmMsg = MessageBox.Show("Are all the datas correct?" & Environment.NewLine & " • Last Name: " & txtLName.Text & Environment.NewLine & " • First Name: " & txtFName.Text & Environment.NewLine & " • Middle Name: " & txtMName.Text & Environment.NewLine & " • Gender: " & cmboGender.Text & Environment.NewLine & " • Age: " & mtxtAge.Text & Environment.NewLine & " • Date of Birth: " & dtpBdate.Text & Environment.NewLine & " • Status: " & cmboStatus.Text & Environment.NewLine & " • SSS: " & txtSSS.Text & Environment.NewLine & " • TIN: " & txtTin.Text & Environment.NewLine & " • Religion: " & txtReligion.Text & Environment.NewLine & " • Address: " & txtAddress.Text & Environment.NewLine & " • Contact Number: " & mtxtContactNum.Text & Environment.NewLine & " • E-mail: " & txtEmail.Text & Environment.NewLine, "", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, 0, False) 

    If ConfirmMsg = MsgBoxResult.Yes Then 
     Try 
      Try 
       cmd1.Connection = conn 
       conn.Open() 
       cmd1.ExecuteNonQuery() 
       rdr = cmd.ExecuteReader 
       rdr.Read() 
      Catch ex1 As MySqlException 
       MsgBox(ex1.Message.ToString) 
      Finally 
       conn.Close() 
      End Try 

      Try 
       cmd2.Connection = conn 
       conn.Open() 
       cmd2.ExecuteNonQuery() 
       rdr = cmd.ExecuteReader 
       rdr.Read() 
      Catch ex2 As MySqlException 
       MsgBox(ex2.Message.ToString) 
      Finally 
       conn.Close() 
      End Try 
     Catch ex As MySqlException 
       MsgBox(ex.Message.ToString) 
     Finally 
      Dim addAnother = MessageBox.Show("Do you want to add another applicant?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, 0, False) 
      If addAnother = MsgBoxResult.No Then 
       Me.Close() 
       Main_home.Refresh() 
      End If 
     End Try 

    End If 

내가 할 수 SA 많은 코드의 라인을 줄이고 자. 도움이 필요해. btw 나는 MySQL을 사용하고 있습니다. 죄송합니다. VB에서 새로 왔습니다. 미리 감사드립니다.

Answer 1

위와 같이 할.

약자로, 당신은 MySQL로 Nonquery을 실행하는 서브 루틴을 생성 한 후 어떤 트리거 (버튼, 체크 박스 등)에 배 이하를 호출 할 수

주 :이 당신이를 사용하는 방법을 알고 필요

1. C : 당신은 그 here

   Public Sub MyNonQuery(ByVal SQCommand as String) 
        Dim conn As New MySqlConnection("server=your server ip; port=the server port; uid='your user id';password ='your password';") 
   
        Dim SQLCMD as new MySqlCommand(SQCommand, conn) 
   
        conn.open() 
        SQLCMD.ExecuteNonQuery() 
        conn.close() 
       End Sub 
   

   에 대한 자세한 찾아보실 수 있습니다 .NET에 대한 MySQL의 커넥터는 이제 다음과 같은 방식으로 (들)이 서브를 사용할 수 있습니다 ALL은 두 번

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
   
       MyNonQuery("Insert into db.tbl1 values(...);") 
       MyNonQuery("Insert into db.tbl2 values(...);") 
   
   End Sub 
   

2. 단일 통화에서 보내기 두 SQL은

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
   
       MyNonQuery("Insert into db.tbl1 values(...); Insert into db.tbl2 values(...);") 
   
   
   End Sub 
   

제대로 SQL 주입 공격을 방지하기 위해,하지만 사용자의 데이터를 청소하는 것을 잊지 마십시오 명령. 궁극적으로 나는 당신을 공부하는 것을 제안 할 것입니다 Stored Procedures

Answer 2

질문에 답하기 위해 다른 스레드를 실행하는 두 개의 스레드를 시도해 볼 수 있습니다. 이것은 효과적으로 그들을 동시에 운영하는 것입니다.

Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click 
    Dim t1 As New Threading.Thread(AddressOf Insert1) 
    Dim t2 As New Threading.Thread(AddressOf Insert2) 
    t1.Start() 
    t2.Start() 
End Sub 

Private Sub Insert1() 
    'do insert here 
End Sub 

Private Sub Insert2() 
    'do insert here 
End Sub 

성능 향상 여부에 관계없이 의심 스럽습니다.

Answer 3

이 웹 또는 Windows 기반입니까?

윈도우 형태 - 코멘트

당신이, 당신이 무엇을 시도했다 친구가 우리를 표시 한 경우 도움이 될

'Web forms 
Private Sub SubmitButton_Click(sender As Object, e As EventArgs) Handles SubmitButton.Click 
    'do insert 1 here 
    'do insert 2 here 
End Sub