Как в VB сделать так, чтобы, если у юзера больше одного мыла, то они выводились бы в столбик в ТЕХТ'е?

@Ded Mazooi · Регистрация: 17.04.2009

Студворк — интернет-сервис помощи студентам

Есть база, в ней две таблицы, где 1) FRIEND с полями: id_user, user_name 2) EMAIL, с полями: id, id_user1, email. В полях FRIEND – id_user – счетчик, user_name – фамилия. В EMAIL – id – счетчик, id_user1 – подстановка из счетчика id_user таблицы FRIEND, email – мыло юзера. Таблицы связаны связью «один-ко-многим», т.е. у одного юзера может быть несколько мыл. Итак, к id_user1 подставляется поле id_user.

FRIEND EMAIL
Id_user id
User_name id_user1
Email

Вопрос: каким образом в VB сделать так, чтобы, если у юзера больше одного мыла, то они выводились бы в столбик в ТЕХТ'е (или другом компоненте), а не все мыла всех юзеров. Понимаю, что проблема в запросе. Кто-нибудь поможет составить это долбаный запрос и куда его вставить? Заранее благодарю за пример.

@aaf · 10.06.2009, 09:58

Делай средствами VB - отслеживай изменение ЮЗЕРА.

@ivld · 10.06.2009, 11:34

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
Это делается просто - с помощью sql запроса
sql='SELECT  E.email   FROM Fried F, Email E WHERE'_
      & '  F.user_name like '%' & Request.queryString('id1') & '%'' _
      & ' And E.id_user=F.id_user1'
 
set objRec=objCon.Execute( sql)
do while not objRec.eof
 
num1=num1+1
aemail=objRec.Fields('email')
 Write num1 & ' ' & aemail & ' '
objRec.MoveNext
loop

@Ded Mazooi · 11.06.2009, 19:27 **[ТС]**

А как сделать что бы в тексте выводились мыла?

@Ded Mazooi · 11.06.2009, 19:27 **[ТС]**

А как сделать что бы в тексте выводились мыла?

@ivld · 14.06.2009, 10:23

А что-то не понял вопрос? У вас получилось выводить из базы данных необходимые е-mail адреса? Если да,то о каком мыле идет речь?

@Ded Mazooi · 15.06.2009, 23:54 **[ТС]**

ivld - Не могли вы бы написать код, такой чтобы мыло usera выодились
в Text'e, то есть все его мыла. Как я понял там нада Multiline зделать
'True' в text'e. Вот только я не могу зделать чтобы мыло поевлялись в нем...=(
Спосибо за отклик!

@ivld · 16.06.2009, 10:36

Если я правильно понял - то это должно быть так

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
sql='SELECT E.email  FROM Fried F, Email E WHERE'_
   & ' F.user_name like '%' & Request.queryString('id1') & '%'' _
   & ' And E.id_user=F.id_user1'
set objRec=objCon.Execute( sql)
te=''
do while not objRec.eof
num1=num1+1
aemail=objRec.Fields('email') 
te=te + '№' num1 & ' ' & aemail & ' ' & VbCrLf
Write num1 & ' ' & aemail & ' '
objRec.MoveNextloop
Text2.MultiLine = true
Text2.Text = te

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

@Ded Mazooi 0 / 0 / 0 Регистрация: 17.04.2009 Сообщений: 28

	Как в VB сделать так, чтобы, если у юзера больше одного мыла, то они выводились бы в столбик в ТЕХТ'е? 09.06.2009, 23:48. Показов 1140. Ответов 7 Метки нет (Все метки) Есть база, в ней две таблицы, где 1) FRIEND с полями: id_user, user_name 2) EMAIL, с полями: id, id_user1, email. В полях FRIEND – id_user – счетчик, user_name – фамилия. В EMAIL – id – счетчик, id_user1 – подстановка из счетчика id_user таблицы FRIEND, email – мыло юзера. Таблицы связаны связью «один-ко-многим», т.е. у одного юзера может быть несколько мыл. Итак, к id_user1 подставляется поле id_user. FRIEND EMAIL Id_user id User_name id_user1 Email Вопрос: каким образом в VB сделать так, чтобы, если у юзера больше одного мыла, то они выводились бы в столбик в ТЕХТ'е (или другом компоненте), а не все мыла всех юзеров. Понимаю, что проблема в запросе. Кто-нибудь поможет составить это долбаный запрос и куда его вставить? Заранее благодарю за пример. 0

@aaf 0 / 0 / 0 Регистрация: 26.12.2007 Сообщений: 435
	10.06.2009, 09:58
	Делай средствами VB - отслеживай изменение ЮЗЕРА. 0

@Ded Mazooi 0 / 0 / 0 Регистрация: 17.04.2009 Сообщений: 28
	11.06.2009, 19:27 [ТС]
	А как сделать что бы в тексте выводились мыла? 0

@ivld 0 / 0 / 0 Регистрация: 07.06.2009 Сообщений: 50
	14.06.2009, 10:23
	А что-то не понял вопрос? У вас получилось выводить из базы данных необходимые е-mail адреса? Если да,то о каком мыле идет речь? 0

@Ded Mazooi 0 / 0 / 0 Регистрация: 17.04.2009 Сообщений: 28
	15.06.2009, 23:54 [ТС]
	ivld - Не могли вы бы написать код, такой чтобы мыло usera выодились в Text'e, то есть все его мыла. Как я понял там нада Multiline зделать 'True' в text'e. Вот только я не могу зделать чтобы мыло поевлялись в нем...=( Спосибо за отклик! 0