Untitled

Updating a control on another form with the results of a dialog box

TournamentSettings.VenuesTableAdapter.InsertVenueQuery(Trim(VenueNameTxt.Text), Trim(VenueAddress1Txt.Text), Trim(VenueAddress2Txt.Text), Trim(VenueCityTxt.Text), Trim(VenueProvinceTxt.Text), Trim(VenueZipTxt.Text), Trim(CountryBox.SelectedValue), Trim(VenuePhoneNo.Text), VenueType.SelectedText, VenueWebAddress)

    TournamentSettings.VenuesTableAdapter.Fill(TournamentSettings.VenueNameList.Venues)

       

Public Sub FillVenueList()

    ' Adding values from database to a datatable.

    ' From there will add to the list box.

    Dim VenueConnection As New OleDb.OleDbConnection(DBconnection)

    VenueConnection.Open()

    Dim VenueConnectionQuery As New OleDb.OleDbCommand("SELECT VenueID, VenueName FROM Venues", VenueConnection)

    Dim VenueDataAdapter As New OleDb.OleDbDataAdapter(VenueConnectionQuery)

    Dim VenueDataSet As New DataSet

    VenueDataAdapter.Fill(VenueDataSet, "Venues")

 

    TrnVenueLst.DataSource = VenueDataSet.Tables("Venues")

    TrnVenueLst.DisplayMember = "VenueName"

    TrnVenueLst.ValueMember = "VenueID"

    VenueConnection.Close()

End Sub