powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запрос в Visual Basic
9 сообщений из 9, страница 1 из 1
Запрос в Visual Basic
    #33782161
DronSt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброе время суток!
Извините, я не прочитал правила задавания вопросов, и возможно мой вопрос не будет соответствовать требованиям форума, но у меня просто нет на это времени. (нужно сдать курсовик, а у меня не получается сделать задание)
В общем если кто поймет что я имею ввиду, то пожалуйста помогите.
Ситуация следующая: Нужно разработать простенькую программку с помощью которой можно вносить данные в базу данных (Аксесс 97) о поступающих в организацию документах. А также делать запрос на выдачу документов поступивших за определенный период. Сделал все кроме запроса.
Запрос нужно сделать такой чтобы прямо в этой программке я задал необходимый диапазон (например: с 01.01.2006 по 01.02.2006) и программка мне выдала все документы которые поступили в этот период. И вывести это на печать (желательно в виде таблицы)
Запрос в Аксессе выглядит так: SELECT [Журнал входящих документов].[Примечание (конфиденциальность)], [Отделения банка].Наименование, [Журнал входящих документов].[Срок исполнения], [Журнал входящих документов].[Кому направлен], [Журнал входящих документов].[Краткое содержание], [Журнал входящих документов].[Дата поступления], [Журнал входящих документов].[№ документа]
FROM [Отделения банка] INNER JOIN [Журнал входящих документов] ON [Отделения банка].[Код отделения] = [Журнал входящих документов].[Код отделения]
WHERE ((([Журнал входящих документов].[Дата поступления]) Between ([Forms]![Данные]![Укажите начало периода]) And ([Forms]![Данные]![Укажите конец периода])));
...
Рейтинг: 0 / 0
Запрос в Visual Basic
    #33785647
DronSt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Еще раз привет, так и не дождавшись ответа, решил забить на свое задание.
Теперь другой вопрос:
как можно сделать что-то похожее на предметный указатель в Виндовс? т.е. есть таблица под столбцом, например, ячейка в которую при вводе, например, буквы "В" в этом столбце останутся записи начинающиеся с этой буквы???
ПОЖАЛУЙСТА ЗНАТОКИ Visual Basic'а ОИКЛИКНИТЕСЬ, ОЧЕНЬ НАДО!!!!!!
...
Рейтинг: 0 / 0
Запрос в Visual Basic
    #33785712
Alex_Sandr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не это?
...
Рейтинг: 0 / 0
Запрос в Visual Basic
    #33785756
DronSt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да что-то типа того, только нужно чтобы этот отбор проводить по столбцу таблицы, и записи которые не подходят под запрс скрывались. таблица сделана с помощью DataEnvironment
...
Рейтинг: 0 / 0
Запрос в Visual Basic
    #33786266
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пример на основе таблицы Customers учебной базы Northwind.
...
Рейтинг: 0 / 0
Запрос в Visual Basic
    #33794345
DronSt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо огромное тебе Worobjoff!!!
То что надо!
Есть правда еще несколько вопросов:
1. Этот фильтр у меня работает по всем столбцам кроме столбца "Дата", почему???
2. Как в таблице Data Environment выровнять столбцы по ширине названия столбца??
3. Как сделать обновление таблицы Data Environment (после изменения записи в другой форме vb, запись в таблице Data Environment меняется только после перезапуска приложения)???

Зарание спасибо!!! и respect!!!
...
Рейтинг: 0 / 0
Запрос в Visual Basic
    #33794418
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
1. если тип поля дата то нужно использовать как критерий фильтра инструмент
типа DTPicker, кторый передает значение уже в формате даты, а в запросе дожно быть обычное равенство "Data_Field=" & DTPicker.Value
или если не прокатит то попробовать так

"Data_Field= CONVERT(DATETIME, " & Ctr(DTPicker.Value) & ", 102)) ' Если MS SQL
"Data_Fileld=cdate('"& DTPicker.Value & "')" 'если access


можно так же использовать период "Data_Filed BETWEEN " & DTPicker.Value
& " AND " & DTPicker1.Value

3.
можно сделать так

With DE1
If DE1.rscmdCustomer.State = adStateOpen Then DE1.rscmdCustomer.Close
DE1.cmdCustomer
End With


Для печати используется в Vb DataReport
...
Рейтинг: 0 / 0
Запрос в Visual Basic
    #33794550
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1.
Поясню написанное TIKO:
В реальных приложениях редко бывает нужно фильтровать по одной дате.
Чаще - по интервалу от даты1 до даты2.
Access понимает команду Beetwen для интервала дат, SQL-Server - нет, поэтому в нем пишут например так: Дата >= '2006-07-01' AND Дата <= '2006-07-30 23:59:59'
Бывает, однако, нужен фильтр по одному дню, т.е. по одной дате.
Тогда в фильтре пишут так:
Код: plaintext
1.
   DE1.rscmdOrder.Filter = "OrderDate >= '" & DateValue(DTPicker1.Value) & _
                           "' AND OrderDate <= '" & (DateValue(DTPicker1.Value) + CDate("23:59:59")) & "'"
2.
Это не DE, это - MSHFlexGrid. Там надо "вручную" программировать ширину колонок. Пользователь может дважды кликнуть по полосе разделяющей колонки чтобы автоматически выставилась ширина.
Задайте этот вопрос создав отдельный топик. Может быть кто-то знает решение
...
Рейтинг: 0 / 0
Запрос в Visual Basic
    #33797540
DronSt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем спасибо!!! Все работает....правда с Датой я так и не разобрался но я просто не стал загоняться....
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запрос в Visual Basic
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]