mysql - 单击按钮即可运行两个或多个查询

Question

我想在单击按钮时将数据插入两个不同的表中。因此有 2 个具有不同凭据的插入查询。第一个插入查询工作正常，但第二个插入查询未执行。这是我尝试过的。

Try
            Dim str1 As String = "INSERT INTO yogaClasses (`yogaID`,`name`, `category`, `websiteName`, `email`, `phone1`, `phone2`, `mobileNumber`, `buildingName`, `streetName`, `landmark`, `areaName`, `city`, `State`, `zipCode`, `address`, slotTime1From, `slotTime1To`, `slotTime2From`, `slotTime2To`, fees, `overview`, `establishment`, `newBatchStart`, `yogaType`, `facilities`, payment, `status`, `username`, `password`) values ('" + ID + "','" + name + "', '" + businessCategory + "', '" + website + "', '" + email + "', '" + phoneNo1 + "', '" + phoneNo2 + "', '" + mobileNumber + "', '" + building + "', '" + street + "', '" + landpoint + "', '" + area + "', '" + city + "', '" + stateName + "', '" + zipCode + "', '" + fulladdress + "', '" + slot1A + "', '" + slot1B + "', '" + slot2A + "', '" + slot2B + "', '" + feesPay + "', '" + about + "', '" + foundYear + "', '" + startnewBatch + "', '" + selectedYoga + "', '" + selectedFacility + "', '" + payments + "', 'active', '" + mobileNumber + "', '" + membersAutoPassword.Text + "')"

            Dim str2 As MySqlDataReader
            Dim adapter As New MySqlDataAdapter
            Dim command As New MySqlCommand
            command.CommandText = str1
            command.Connection = con
            adapter.SelectCommand = command
            con.Open()
            str2 = command.ExecuteReader
            con.Close()
            Response.Redirect("business-added.aspx")
        Catch ex As Exception
            Response.Write(ex)
        End Try



Try
            Dim str2 As String = "INSERT INTO yogaAgeGroup (`6-15`, `16-20`, `21-25`, `26-30`, `31-35`, `35+`, `yogaID`) values('" + ageup1.Text + "', '" + ageup2.Text + "', '" + ageup3.Text + "', '" + ageup4.Text + "', '" + ageup5.Text + "', '" + ageup6.Text + "', '" + TextId.Text + "')"
            Dim str3 As MySqlDataReader
            Dim adapter As New MySqlDataAdapter
            Dim command As New MySqlCommand
            command.CommandText = str2
            command.Connection = con
            adapter.SelectCommand = command
            con.Open()
            str3 = command.ExecuteReader
            con.Close()
        Catch ex As Exception
            Response.Write(ex)
        End Try

第二个查询未执行。我在这方面做错了什么？或者是否可以同时执行这两个查询？

Answer 1

问题(在您的第一个查询中)

con.Close()
Response.Redirect("business-added.aspx")

在第二个查询 con.Close() 之后移动此行

Response.Redirect("business-added.aspx")

因为此行会将您重定向到另一个页面，因此其余代码将不会执行