Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Web программирование > SQL, базы данных
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.09.2015, 22:33   #1
star007
Пользователь
 
Регистрация: 20.03.2010
Сообщений: 38
Вопрос SQL-запрос в Visual FoxPro 9.0 sp2

Доброго времени суток. Есть следующий запрос
Код:
SELECT Table1.id, Table1.firstname, Table1.name, Table1.lastname,;
  Table1.birthdate, Table1.sex, Table1.profecy, Table1.workdate, Table1.box;
 FROM table1;
 GROUP BY Table1.id, Table1.firstname, Table1.name, Table1.lastname,;
  Table1.birthdate, Table1.sex, Table1.profecy, Table1.workdate, Table1.box;
 HAVING  Table1.firstname = LEFT(Table1.firstname,1)
из него следует, что выборка происходит по первой букве в фамилии. Вопрос в следующем: как его записать, что бы при его вызове появлялось диалоговое окно для ввода первой буквы фамилии. Заранее спасибо.
star007 вне форума Ответить с цитированием
Старый 11.09.2015, 07:01   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Как вариант:
Код:
HAVING  Table1.firstname = INPUTBOX("Какая буква?")
А вообще лучше описать программу в которой будет INPUTBOX что-то писать в пеерменку, а потом уже переменку использовать в запросе.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 11.09.2015, 07:42   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
из него следует, что выборка происходит по первой букве в фамилии
Не вижу. Из того запроса следует, что происходит выборка тех, у которых firstname не длинее одного символа. GROUP зачем? По первому символу что-то типа Table1.firstname like 'А%'
Цитата:
HAVING Table1.firstname = INPUTBOX("Какая буква?")
Если в инпутбоксе юзер откажется от ввода символа - что будет? Думаю это плохой вариант
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 11.09.2015, 11:40   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Если в инпутбоксе юзер откажется от ввода символа - что будет? Думаю это плохой вариант
Ужасный
Я не зря ремарку в своем посте сделал о том, что так не стоит. Хотя в INPUTBOX вроде при отказе будет выдан результ по умолчанке вроде...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 11.09.2015, 16:42   #5
star007
Пользователь
 
Регистрация: 20.03.2010
Сообщений: 38
По умолчанию

Есть похожий запрос, о только из MS Access:
Код:
SELECT 
 [Учётная карточка].[ФИО учащегося],
 [Учётная карточка].[Дата рождения], 
 [Учётная карточка].[Дата постановки на учёт],
 [Учётная карточка].Адрес,
 [Учётная карточка].[Дата снятия с учёта],

 Родители.[ФИО матери],
 Родители.[ФИО отца]
FROM [Учётная карточка] 
INNER JOIN Родители ON [Учётная карточка].[ФИО учащегося] = Родители.[ФИО учащегося]
GROUP BY
 [Учётная карточка].[ФИО учащегося],
 [Учётная карточка].[Дата рождения],
 [Учётная карточка].[Дата постановки на учёт],
 [Учётная карточка].Адрес,
 [Учётная карточка].[Дата снятия с учёта],
 Родители.[ФИО матери],
 Родители.[ФИО отца]
HAVING ((([Введите данные])=Left([Учётная карточка]![ФИО учащегося],1)));
тут выборка идет из двух таблиц, и результат выводится в результирующую таблицу. Можно ли данный запрос перебить в foxpro?

Последний раз редактировалось Stilet; 11.09.2015 в 17:44.
star007 вне форума Ответить с цитированием
Старый 11.09.2015, 17:45   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Можно ли данный запрос перебить в foxpro?
То, что я выше дал не катит?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 11.09.2015, 17:45   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Можно ли данный запрос перебить в foxpro?
просто в FoxPro любым удобным для Вас способом обеспечьте ввод первой буквы фамилии, после чего подставьте её в запрос.
остальное, вроде бы, в FoxPro всё должно отработать как есть.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 11.09.2015, 18:34   #8
star007
Пользователь
 
Регистрация: 20.03.2010
Сообщений: 38
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
То, что я выше дал не катит?
Появляется диалоговое око, когда ввожу букву появляется тоже окно, только без введенных данных. Если несколько раз ввести букву то показывает результирующую таблицу, с неправильной выборкой
star007 вне форума Ответить с цитированием
Старый 16.09.2015, 19:53   #9
star007
Пользователь
 
Регистрация: 20.03.2010
Сообщений: 38
По умолчанию

В общем решил предавать букву для поиска через переменную, и сразу возникают следующие вопросы:
1. Какой язык программирования для этого использовать
2. Как подключить таблицу в которой мы делаем выборку к программе
star007 вне форума Ответить с цитированием
Старый 16.09.2015, 20:09   #10
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Какой язык программирования для этого использовать
Фокспро. О_о. Или ты о чем?
Цитата:
Как подключить таблицу в которой мы делаем выборку к программе
Есть команда USE <имя таблицы>. А вообще в Фоксе и SELECT сам подключит.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
SQL запрос в Visual Studio не получается Nezhniy SQL, базы данных 14 10.11.2013 21:45
программа в Visual foxpro Марина Володкина Помощь студентам 1 22.10.2013 20:24
Visual FoxPro nulyjarden Помощь студентам 2 14.04.2011 15:08
БД по Visual FoxPro? iron_cross Помощь студентам 0 01.12.2010 09:19
программа, написанная на Visual Studio 2008 в Windows7 не запускается Windows XP SP2 reynevan Win Api 5 16.07.2010 23:28