powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / данныe на Grid при SQL запросе
8 сообщений из 8, страница 1 из 1
данныe на Grid при SQL запросе
    #32192383
alwil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
здрасте други
натнулся на проблему

есть форма Form1
Бд MyDb
на форме помещен grid


в свойстве Grid. ActivateCell пишу

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
select b
use MyDb in b

if Num_Month= 13 
  SQL_text= "SELECT * FROM LOG"   
else
 SQL_text= "SELECT * FROM LOG WHERE MONTH(CTOD(date_in))=Num_Month" 
endif

thisform.Grid1.RecordSourceType =  4  && Sql
thisform.Grid1.RecordSource = SQL_text



и тишина нет данных на Grid
...
Рейтинг: 0 / 0
данныe на Grid при SQL запросе
    #32192453
sandy2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Примени этот код в методе INIT для формы.
...
Рейтинг: 0 / 0
данныe на Grid при SQL запросе
    #32192467
alwil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
действиительно так работает но дает дополнит browse в добавок к форме
как от него избавиться
...
Рейтинг: 0 / 0
данныe на Grid при SQL запросе
    #32192655
sandy2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Лучше не могу придумать, чем корявое

Код: plaintext
1.
2.
KEYBOARD '{ESC}'

thisform.Grid1.RecordSource = SQL_text


Обеспечит выстрый выход из BROWSE. BROWSE - это отработанный SELECTом QUERY.
...
Рейтинг: 0 / 0
данныe на Grid при SQL запросе
    #32192675
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
По-моему в любой книге написано что вывод в BROWSE подавляется
через добавление приставки into cursor
Например так
SQL_text="SELECT * FROM LOG into cursor curLog nofilter"

И если вдруг у формы default datasession, то надо еще закрыть этот курсор в Destroy формы.
use in select('curLog')
...
Рейтинг: 0 / 0
данныe на Grid при SQL запросе
    #32233293
alwil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
даны 2 БД

длина бд1- 3 поля
длина бд2- 5 полей

интерессную вещь заметил

в Browse отработке SQL запроса я вижу все поля согласно моего запроса
а в Grid только 5 полей по макс. величине одной из БД

то есть грид режит результирующий SQL запрос и отображает частично + я вынужден применять KEYBOARD '{ESC}'


мой код
в thisform.init
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
thisform.Grid1.RecordSource=NULL 

SQL_text="select * FROM  бд1,  бд2  WHERE бд1.employee_id = бд1.employee_id 
thisform.Grid1.RecordSourceType =  4 && Sql
thisform.Grid1.RecordSource = SQL_text

KEYBOARD '{ESC}'



...
Рейтинг: 0 / 0
данныe на Grid при SQL запросе
    #32233355
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. thisform.Grid1.RecordSource=NULL - не спасет "отца русской демократии" если на этапе проектирования формы в RecordSource не было внесено никакого значения. Пусть даже пустого. Гланое, чтобы оно не оставалось по Default, поскольку в этом случае в качестве источника данных для Grid будет взята первай попавшаяся таблица на момент инициализации Grid. И дальнейшее изменение источника не приведет к изменению количества колонок

2. Ну тут уже ответил, чтобы не было Browse-окна в конструкции Select-SQL обязательно необходимо указывать опцию INTO ...
...
Рейтинг: 0 / 0
данныe на Grid при SQL запросе
    #32235344
alwil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
спасибо

действительно отредактировал грид при постройке указал названия
столбцов и их кол-во и заработало

но в связи с этим еще вопрос
Код: plaintext
1.
как распечатать данные отображенные в грид-таблице
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / данныe на Grid при SQL запросе
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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