Блог

Я изо всех сил пытаюсь заставить работать некоторый код, который был показан мне в предыдущем вопросе. Я совсем новичок в vb.net и программирование баз данных, так что я не совсем понимаю, как заставить это работать. Код, который я пытаюсь выполнить, находится по этой ссылке https://www.vbforums.com/showthread.php?518065 . Мне нужен пользовательский ввод в родительское поле со списком, чтобы затем изменить данные в дочернем поле со списком. Вот что я получил до сих пор, если кто-нибудь может указать мне правильное направление, мне действительно нужно как-то заставить это работать

Редактировать: после изменения кода в соответствии с вашими комментариями я получаю это сообщение об ошибке :

Система.ArgumentNullException: «аргумент столбца не может быть нулевым. Имя параметра: столбец’

       Dim data As DataSet = Me.GetDataSet()


    Me.BindingSource1.DataSource = data
    Me.BindingSource1.DataMember = "RoomType"

    Me.BindingSource2.DataSource = Me.BindingSource1
    Me.BindingSource2.DataMember = "Rooms"

    Me.cmbRoomType.DisplayMember = "roomtype.RoomTypeName"
    Me.cmbRoomType.ValueMember = "roomtype.RoomTypeID"
    Me.cmbRoomType.DataSource = Me.BindingSource1

    Me.cmbRoomNumber.DisplayMember = "roomsRoomNumber"
    Me.cmbRoomNumber.ValueMember = "rooms.RoomID"
    Me.cmbRoomNumber.DataSource = Me.BindingSource2



End Sub
Private ConStr As String = "Data Source=dbNEAProject.db"

Private Function GetDataSet() As DataSet
    Dim data As New DataSet
    Dim parent As DataTable = Me.GetRoomType()
    Dim child As DataTable = Me.GetRoomNumber()


    data.Tables.Add(parent)
    data.Tables.Add(child)
    data.Relations.Add("Rooms",
                           parent.Columns("roomtype.RoomTypeID"),
                           child.Columns("Rooms.rRoomTypeID"))
    Return data
End Function
Private Function GetRoomType() As DataTable
    Dim sql As String = "Select RoomTypeName, RoomTypeID FROM RoomType"
    Dim table As New DataTable("RoomType")
    Using con As New SQLiteConnection(ConStr)
        con.Open()
        Using da As New SQLiteDataAdapter(sql, con)
            da.Fill(table)

        End Using
    End Using
    Return table
End Function

Private Function GetRoomNumber() As DataTable
    Dim sql As String = "Select RoomNumber, RoomID, rRoomTypeID FROM Rooms INNER JOIN roomtype ON roomtype.roomtypeid = rooms.rroomtypeid ;"
    Dim table As New DataTable("RoomNumber")
    Using con As New SQLiteConnection(ConStr)
        con.Open()
        Using da As New SQLiteDataAdapter(sql, con)
            da.Fill(table)
        End Using
    End Using
    Return table
End Function
 

Мои sqltables, в которые мне затем нужно вставить выбранные данные:

СОЗДАЙТЕ ТАБЛИЦУ BookedRooms(brBookingID ЦЕЛОЕ ЧИСЛО, brRoomID ЦЕЛОЕ ЧИСЛО, Status VARCHAR (50) NULL, ВНЕШНИЙ КЛЮЧ (brBookingID) ССЫЛАЕТСЯ НА бронирование (BookingID), ВНЕШНИЙ КЛЮЧ (brRoomID) ССЫЛАЕТСЯ на номера (roomId) );

 CREATE TABLE RoomType(
 

Автоинкремент ПЕРВИЧНОГО КЛЮЧА с ЦЕЛЫМ ЧИСЛОМ RoomTypeID,
значение переменной RoomTypeName(50),
целое число емкости,
Цена номера РЕАЛЬНАЯ
);

 CREATE TABLE Rooms( 
 

ПЕРВИЧНЫЙ КЛЮЧ ЦЕЛОГО ЧИСЛА roomId,
ЦЕЛОЕ
число roomNumber, отдельная ПЕРЕМЕННАЯ (10),
ЦЕЛОЕ ЧИСЛО rRoomTypeID НЕ РАВНО НУЛЮ,
ВНЕШНИЙ КЛЮЧ (rRoomTypeID) ССЫЛАЕТСЯ на RoomType(RoomTypeID)
);