>
ComboBox4.Items.Add (Trim (rs4.GetValue (1)))
'Label7.Text=(Trim (rs1.GetValue (0)))
End While.Close (): cn.Close (): cn.Open ()
Як вже видно з коду, в Combobox.-е з'являється список назв факультетів - потрібно вибрати один з них, щоб додати в потрібну таблицю. Далі на лістингу 7.2 приведений код додавання з іншої таблиці.
Лістинг 7.2 Вибір даних з таблиці
Dim sql6 As New OleDbCommand ( SELECT * FROM kafedri order by nazv_kaf, kol_rab raquo ;, cn)
Dim rs6 As OleDbDataReader=sql6.ExecuteReader
While rs6.Read=True.Items.Add (Trim (rs6.GetValue (0)) amp; --- gt; amp; Trim (rs6.GetValue (1)) amp; amp; Trim (rs6.GetValue (2)) amp; amp; Trim (rs6.GetValue (3)))
End While
rs6.Close ()
cn.Close ()
З цієї таблиці вибрані інші дані. Результат виконання даних кодів наведено на малюнку 7.1.
Рис.7.1. Вибірка з декількох таблиць
Як вже видно ці дані можна буде додати в таблицю. Таким же чином можна отримати дані і з інших таблиць теж.
Висновок. Дані операції дозволяють розробникам за допомогою одного потоку кодів додавати потрібні дані з декількох таблиць в головну таблицю «Співробітники». Це набагато полегшить їм роботу. Для цього можна використовувати й інші елементи управління. Проект наводиться в папці Yusupova Z_den_6
Список використаних джерел
Зіборов В.В. Visual Basic 2 010 на прикладах.-СПб .: БХВ-Пітер. 2010. - 336с.
Гарнаев А.Ю. Самовчитель Visual Studio 2003. -СПб .: БХВ-Пітер. 2003. - 688с.
Карпов Р.Г. та ін. Самовчитель Visual Basic.Net.-СПб .: БХВ-Пітер. 2005. - 592с.
Солієв О.М., Худойбердієв Х.А. Ма? М? І кор? Ои лаборатор? База ма'лумот (MS Access 2010) -Ху? анд: ДПДТТ. 2013. - 292с
Майкл Р. Microsoft Access 2000. Біблія користувача.-М .: Вільямс. 2001. - 1040с.
Л. Д. Слєпцова. Програмування на VBA в Microsoft Office 2010. -М .: Вільямс. 2010. - 432с.
Назаров А.А. Технологія? Ои сохтані Шабака? Ои компютер ?.-Ху? Анд: ДПДТТ, 2013. - 395с
Файзуллоева Ш. Талаботі ме'ёрі сан? іш Баро ороіші кор? ои хатт ?.-Ху? Анд: ДПДТТ, 2012. - 42с.
