Сделай лучше вот так:

FRIEND                         E-MAIL

Number---(1 ко многим)---N

User_Name                    User_Email

----------- - это связь ( получается у тебя User_Name один, а E-Mail`ов у него много, вроде так ...) Размести на форме два объекта упр.данными (DAO или ADO). Я покажу на примере DAO, сначала введи свойства этих 2х объектов упр.данными:

data1.databasename = <Путь к файлу твоей базы данных>

data1.recordsource="FRIEND"

С первым объектом вроде закончили ...

 data2.databasename = <Путь к файлу твоей базы данных>

data2.recordsource="E-MAIL"

А теперь сам запрос: data1_reposition ( ) - событие которое происходит при изменении позиции в базе данных, ну например щелкаешь по >| или > )

Private Sub Data1_Reposition()
Data2.Recordset! = "SELECT FROM E-MAIL WHERE N = " & Number
End Sub

по-русски это звучит так: "Выбрать из таблицы E-MAIL все записи где N = Number ... Number - это номер юзверя (при создании базы данных сделай так чтобы Number было единственным, это типа чтобы не было 2х юзверей с одинаковыми номерами), а N - номер юзверя которому принадлежит мыло)

Удачи ....   

Ответить

Gravity - Я не могу понять, у таблицы Frends поле  "nomer" как ты говариши должно быть связана с таблицей Email полем "N" но как, они ведь же счетчики, и получаеться "одни-к-одному"

Да и ещё почемуто ошибку выдает вот здесь "Compile error:"

Private Sub Data1_Reposition()
Data2.Recordset! = "select from e-mail were n= " & nemer
End Sub

Спасибо что Откликнулся!!!

Ответить

в саму суть не вникал, но между select и from нужно указать поля

которые выбираешь из таблицы или поставить звездочку, для

выбора всех полей, select * from mytable .......

Ответить

Запрос необходимый тебе выглядит следующим образом:

SELECT EMAIL.Email FROM FRIEND INNER JOIN EMAIL ON FRIEND.Id_user = EMAIL.id_user1

WHERE FRIEND.User_name=[friend name]

Вернет только мейлы юзера [friend name], а что ты с ними делать будешь это уже по вкусу. Я обычно просто пользуюсь библиотеками ADO без всяких компонентов. Так что останется просто перебрать возвращенный рекордсет и вставить данные, отформатировав, туда куда тебе нужно.

Ответить

согласен с hedgehog, INNER JOIN  просто необходим при настроеных связях меж таблицами (если почеловечьи делать).

Ответить

hedgehog - а куда запрос в ставлять то?...если в ata.recordset! то

ошибку выдает...А пример не можишь прислать по ADO и DAO...

Ответить

Вообще-то странно почему ошибка, напиши подробнее, что за базу ты используешь. И надеюсь ты заменил =[friend name] на нужную тебе строку?

Ответить

 hedgehog - А ты не можишь прислать на мыло пример по ADO and DAO?....если не влень...

Ответить

Так ктонить можит пример привести по DAO и ADO!!!

Ответить

Дааа....

Что это такое? Data2.Recordset! = "select from e-mail were n= " & nemer

Ты где видел такое???? Ты где видел чтобы объекту Recordset присваивали SQL запрос??? 

Прежде чем пред'являть претензии типа:"Так ктонить можит пример привести по DAO" Потрудись прочитать пару глав из любой книги про SQL!!!

Парни в ответах тебе правильно писали, просто они не могли представить, что ты запрос будешь присваивать набору записей!!!

Для справки: Recodset-это уже готовый набор записей.И ты не можешь присвоить ему SQL-запрос.А SQL присваивается свойству RecordSource элемента управления Data! И после вызова метода Refresh ты получаешь набор записей RecordSet созданный на основе твоего SQL-запроса...

Другими словами надо было писать так...

Data1.RecordSource="select e-mail.* from e-mail where n= " & nemer

Data1.Refresh

И вот только после этого в Data1.Recordset будут твои E-mail.Еще один момент... Если поле в базе данных с твоими E-mail имеет тип String, то верхний пример тоже вызовет ошибку, так в SQL стринговые переменные должны быть заключены в одиночные кавычки... Например:

Data1.RecordSource="select e-mail.* from e-mail where n= "'" & nemer & "'"   Что-то типа этого...Хотя я не уверен в правильности данного запроса в твоем,конкретном, случае.Чтобы правильно написать запрос надовидет пример перед глазами.

Прежде чем приступать к решению таких(пускай и простеньких) задач прочти что нибудь на тему SQL & Data.Там вся моя писанина изложена в большем объеме...

Удачи...

Ответить

ОК - пример с твоим запросом в плане ADO (DAO я давно забросил

Private Sub Form_Load()

Dim Conn As New ADODB.Connection

Dim RS As ADODB.Recordset

Dim ConnectionString As String

Dim SQL As String

Dim FriendName As String

FriendName = "Any Name"

ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0ata Source=C:\any path\file name.mdb;"

SQL = "SELECT " & _

"EMAIL.Email " & _

"FROM FRIEND INNER JOIN EMAIL ON FRIEND.Id_user = EMAIL.id_user1 " & _

"WHERE FRIEND.User_name='" & FriendName & "'"

Conn.Open ConnectionString

Set RS = New ADODB.Connection

RS.Open SQL, Conn

Do Until RS.EOF

Text1.Text = Text1.Text & RS("Email") & vbCrLf

Loop

RS.Close

Conn.Close

Set RS = Nothing

Set Conn = Nothing

End Sub

Ответить

Если что не ясно спрашивай...

Ответить

EROS-Спасибо за пример...А насчет книги, по SQL, я уже читаю...

hedgehog-Спасибо за пример по ADO...тоже скоро буду читать...как закончу SQL.

Всем удачи!!!

Ответить