Текст SQL запроса слишком велик для вставки в редактор кода - VB

Узнай цену своей работы

Формулировка задачи:

Есть запрос с параметрами в БД Access. Этот запрос требуется реализовать в Visual Basic. Но Sql код запроса очень большой и не влазит в окно кода программы. Можно ли как то укоротить sql код или поделить его на несколько частей?

Решение задачи: «Текст SQL запроса слишком велик для вставки в редактор кода»

textual
Листинг программы
strsql="SELECT tbl_delo.delo_ID, tbl_delo.delo_fam, tbl_delo.delo_name, tbl_delo.delo_otch, tbl_delo.delo_biletSeria, "  _
& " tbl_delo.delo_biletnomer, tbl_delo.delo_nomervus, tbl_delo.delo_kodvus, tbl_delo.delo_dataroz, "  _
& " tbl_nacionalnost.nacionalnost_name, tbl_delo.delo_mestoroz, tbl_obrazovanie.obrazovanie_name, "  _
& " tbl_delo.delo_uchzaved, tbl_delo.delo_specialnost, tbl_sempoloz.sempoloz_name, tbl_delo.delo_mestorab, " _ 
& " tbl_delo.delo_dolznost, tbl_delo.delo_adrespropiska, tbl_delo.delo_adresfakt, tbl_delo.delo_phone, "  _
& " tbl_delo.delo_datakomissii, tbl_delo.delo_namekomissii, tbl_katgodnost.katgodnost_kat, tbl_zvanie.zvanie_name, "  _ 
& " tbl_delo.delo_katzapasa, tbl_groupuch.groupuch_group, tbl_sostav.sostav_name, " _
& " tbl_statussluzba.statussluzba_name, tbl_delo.delo_rost, tbl_delo.delo_golova, tbl_delo.delo_protivogaz, " _
& " tbl_delo.delo_obmundirovanie, tbl_delo.delo_obuv, tbl_delo.delo_voenaction, tbl_delo.delo_dataprisyagi, " _
& " tbl_delo.delo_namechasti, tbl_delo.delo_datakomissii2, tbl_delo.delo_namekomissii2, tbl_delo.delo_sudimost, " _
& " tbl_delo.delo_datavidachibileta, tbl_delo.delo_nameVK, tbl_delo.delo_datavoinskiyuch, "  _
& " tbl_delo.delo_datasnyatiyauch, tbl_prinyatieuch.prinyatieuch_name, tbl_snyatieuch.snyatieuch_name, " _ 
& " tbl_katgodnost2.katgodnost2_kat, tbl_pol.pol_name, tbl_typeuch.typeuch_name, " _ 
& " tbl_statusmedkom.statusmedkom_status, tbl_delo.delo_photo " _
& " FROM tbl_statusmedkom INNER JOIN (tbl_statussluzba INNER JOIN (tbl_sempoloz INNER JOIN (tbl_typeuch INNER " _ 
& " JOIN (tbl_pol INNER JOIN (tbl_katgodnost2 INNER JOIN (tbl_snyatieuch INNER JOIN (tbl_prinyatieuch INNER JOIN " _
& " (tbl_sostav INNER JOIN (tbl_zvanie INNER JOIN (tbl_groupuch INNER JOIN (tbl_katgodnost INNER JOIN " _
& " (tbl_obrazovanie INNER JOIN (tbl_nacionalnost INNER JOIN tbl_delo " _
& " ON tbl_nacionalnost.nacionalnost_ID = tbl_delo.delo_nacionalnost) " _ 
& " ON tbl_obrazovanie.obrazovanie_ID = tbl_delo.delo_obrazovanie) " _
& " ON tbl_katgodnost.katgodnost_ID = tbl_delo.delo_katgodnosti) " _ 
& " ON tbl_groupuch.groupuch_ID = tbl_delo.delo_groupuch) " _
& " ON tbl_zvanie.zvanie_ID = tbl_delo.delo_zvanie) " _
& " ON tbl_sostav.sostav_ID = tbl_delo.delo_sostav) " _
& " ON tbl_prinyatieuch.prinyatieuch_ID = tbl_delo.delo_prinyatieuch) " _
& " ON tbl_snyatieuch.snyatieuch_ID = tbl_delo.delo_snyatieuch) " _
& " ON tbl_katgodnost2.katgodnost2_ID = tbl_delo.delo_katgodnosti2) " _
& " ON tbl_pol.pol_id = tbl_delo.delo_pol) " _
& " ON tbl_typeuch.typeuch_ID = tbl_delo.delo_typeuch) " _
& " ON tbl_sempoloz.sempoloz_ID = tbl_delo.delo_sempoloz) " _
& " ON tbl_statussluzba.statussluzba_ID = tbl_delo.delo_statussluzba) " _
& " ON tbl_statusmedkom.statusmedkom_ID = tbl_delo.delo_statusmedkom " _
& " WHERE (((tbl_delo.delo_ID)=[№ УК]) " _
& " AND ((tbl_delo.delo_fam)=[Фамилия]) " _
& " AND ((tbl_delo.delo_name)=[Имя]) " _
& " AND ((tbl_delo.delo_otch)=[Отчество]) " _
& " AND ((tbl_delo.delo_biletSeria)=[Билет серия]) " _
& " AND ((tbl_delo.delo_biletnomer)=[Билет номер]) " _
& " AND ((tbl_delo.delo_nomervus)=[Номер ВУС]) " _
& " AND ((tbl_delo.delo_kodvus)=[Код ВУС]) " _
& " AND ((tbl_nacionalnost.nacionalnost_name)=[Национальность]) " _
& " AND ((tbl_obrazovanie.obrazovanie_name)=[Образование]) " _
& " AND ((tbl_sempoloz.sempoloz_name)=[Семейное положение]) " _
& " AND ((tbl_zvanie.zvanie_name)=[Звание]) " _
& " AND ((tbl_groupuch.groupuch_group)=[Группа учета]) " _
& " AND ((tbl_sostav.sostav_name)=[Состав]) " _
& " AND ((tbl_prinyatieuch.prinyatieuch_name)=[Причина принятия на учет]) " _
& " AND ((tbl_snyatieuch.snyatieuch_name)=[Причина снятия с учета]) " _
& " AND ((tbl_katgodnost2.katgodnost2_kat)=[Категория годности]) " _
& " AND ((tbl_pol.pol_name)=[Пол]) " _
& " AND ((tbl_typeuch.typeuch_name)=[Тип учета]) " _
& " AND ((tbl_statusmedkom.statusmedkom_status)=[Статус медкомиссии]));"

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.182 из 5