Здравствуйте! Сегодня: Чт, 22 Окт 2020, Ваш IP: 3.238.62.144 Войти через loginza
 
Вход | Регистрация | Забыли пароль?
Мой Kbyte.Ru
> Список форумов Kbyte.Ru - - Базы данных
+ Создать новую тему Страница: 1 · 2
Тема: Access · +  +  дата добавления: 19.04.2012 / 12:27
Автор темы:
Egoza
Egoza
тем: 2 / ответов: 18 / благодарностей: 0 / репутация: 1
ответов: 18
создал(а) тем: 2


Доброго времени суток!Подскажите пож-та:
в базе данных есть 2 таблицы. Первая содержит информацию о водителях и соответственно первичный ключ Таб.номер водителя,Вторая таблица содержит информацию о том,какой водитель куда едит(внешний ключ-таб.номер водителя).Можно ли сделать так,что при вводе ФИО водителя во вторую таблицу информация о его таб.номере и прочее введётся автоматически?
Технологии: Microsoft Access
 
Ответ # 21 # · +  +  дата добавления: 22.04.2012 / 09:03
Автор ответа:
Egoza
Egoza
тем: 2 / ответов: 18 / благодарностей: 0 / репутация: 1
ответов: 18
создал(а) тем: 2


Нет.Поле Voditel в таблице Reisy является подстановочным полем из таблицы Voditely
 
Ответ # 22 # · +  +  дата добавления: 22.04.2012 / 10:44
Автор ответа:
Egoza
Egoza
тем: 2 / ответов: 18 / благодарностей: 0 / репутация: 1
ответов: 18
создал(а) тем: 2


Вот запрос
strSQL = "SELECT [Voditely].[idV],[Voditely].[Familiya] FROM Voditely INNER JOIN [Reisy] ON [Reisy].[Voditel] = [Voditely].[Familiya]"
Set rs = db.OpenRecordset(strSQL)
Do Until rs.EOF
Combo4.AddItem rs.Fields("idV")
rs.MoveNext
Loop
Так работает..но выводит все IdV из первой таблицы..как только прописываешь WHERE,то вообще ничего не выводит..
 
Ответ # 23 # · +  +  дата добавления: 22.04.2012 / 11:51
Автор ответа:
Алексей Немиро
Алексей Немиро
тем: 534 / ответов: 5130 / благодарностей: 325 / репутация: 211
Чашка Kbyte.Ru>>
Url: aleksey.nemiro.ru
Icq: 261779681
Skype: alekseynemiro
ответов: 5130
создал(а) тем: 534


Значит Combo1.Text содержит не фамилию водителя.
Можно проверить конечный запрос, например так:
strSQL = "SELECT [Voditely].[idV],[Voditely].[Familiya] FROM Voditely INNER JOIN [Reisy] ON [Reisy].[Voditel] = [Voditely].[Familiya] WHERE [Voditely].[Familiya] = '" & Combo1.Text & "'"
MsgBox strSQL'показать полученный запрос
 Set rs = db.OpenRecordset(strSQL)
 Do Until rs.EOF
 Combo4.AddItem rs.Fields("idV")
 rs.MoveNext
 Loop
 
Ответ # 24 # · +  +  дата добавления: 22.04.2012 / 12:05
Автор ответа:
Egoza
Egoza
тем: 2 / ответов: 18 / благодарностей: 0 / репутация: 1
ответов: 18
создал(а) тем: 2


И что он должен вывести в этом окне?Выводит чисто сам код..
 
Ответ # 25 # · +  +  дата добавления: 22.04.2012 / 12:06
Автор ответа:
Egoza
Egoza
тем: 2 / ответов: 18 / благодарностей: 0 / репутация: 1
ответов: 18
создал(а) тем: 2


StrSQL = "SELECT * FROM Voditely ORDER BY Familiya"
Set rs = db.OpenRecordset(strSQL)
Do Until rs.EOF
Text3.Text = rs.Fields("Familiya")
Combo1.AddItem rs.Fields("Familiya")
rs.MoveNext
Loop
Это в ComboBox1...
 
Ответ # 26 # · +x1 +  дата добавления: 22.04.2012 / 14:04
Автор ответа:
Egoza
Egoza
тем: 2 / ответов: 18 / благодарностей: 0 / репутация: 1
ответов: 18
создал(а) тем: 2


Спасибо большое.Я разобралась!И да,вы правы..долго запросы выполняются(
 
Страница: 1 · 2 + Создать новую тему