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")

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

单击一次按钮即可运行两个或多个查询

1 个答案: