Insert/Update Relational Tables Using Dataadapter

Hi!



I am trying to insert data into 2 different tables. I am using dataadapter and dataset.



Protected Sub SubmitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SubmitButton.Click

Call ConnectionString()



Dim insertSQL As New SqlCommand()

insertSQL.Connection = sqlConn

insertSQL.CommandText = "SELECT location.CountryName, location.CityName, location.BuildingName, location.FloorID, rooms.name, rooms.FloorID AS Expr1 FROM location INNER JOIN floors ON location.FloorID = floors.id INNER JOIN rooms ON floors.id = rooms.FloorID"



Dim ds As New DataSet()

Dim da As New SqlDataAdapter()



da.SelectCommand = insertSQL

Dim scb As New SqlCommandBuilder(da)



Try

da.Fill(ds)

Dim ndr = ds.Tables("location").NewRow

Dim ndr2 = ds.Tables("rooms").NewRow



ndr("FloorID") = FloorIDDDL.SelectedValue

ndr("CountryName") = CountryNameTextBox.Text

ndr("CityName") = CityNameTextBox.Text

ndr("BuildingName") = BuildingNameTextBox.Text

ndr2("name") = RoomNameTextBox.Text

ndr2("FloorID") = FloorIDDDL.SelectedValue

ds.Tables("location").Rows.Add(ndr)

ds.Tables("room").Rows.Add(ndr2)

da.Update(ds)

ErrMsgLbl.Text = "Information saved successfully"

Catch ex As Exception

ErrMsgLbl.Text = ex.ToString

End Try



sqlConn.Close()

End Sub



The above code does not throw any error. It also does not update the tables.



Your help will be appreciated.



Thanks!