Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Поиск в МЕМО - помогите с запросом  [new]
Kulakov Oleg
Member

Откуда:
Сообщений: 54
MyGrd1="SELECT Fam, Nam FROM anket WHERE '"+ALLTRIM(Thisform.text1.Value)+"' $ m_pole"
MyGrd1= MyGrd1 + " INTO CURSOR tmp_tab NOCONSOLE"
Thisform.Grid1.RecordSource = MyGrd1

Не срабатывает.
26 фев 09, 10:37    [6862384]     Ответить | Цитировать Сообщить модератору
 Re: Поиск в МЕМО - помогите с запросом  [new]
проходящий.
Guest
Kulakov Oleg
MyGrd1="SELECT Fam, Nam FROM anket WHERE '"+ALLTRIM(Thisform.text1.Value)+"' $ m_pole"
MyGrd1= MyGrd1 + " INTO CURSOR tmp_tab NOCONSOLE"
Thisform.Grid1.RecordSource = MyGrd1

Не срабатывает.

Так и пишет "Не срабатываю"?
В select sql вместо $ лучше использовать like.
26 фев 09, 11:06    [6862617]     Ответить | Цитировать Сообщить модератору
 Re: Поиск в МЕМО - помогите с запросом  [new]
ВладимирМ
Member

Откуда: г. Москва
Сообщений: 7864
Регистр букв (большие или маленькие) учитываешь? Может так написать

MyGrd1="SELECT Fam, Nam FROM anket" + ;
	" WHERE '"+UPPER(ALLTRIM(Thisform.text1.Value))+"' $ UPPER(m_pole)"
26 фев 09, 11:09    [6862636]     Ответить | Цитировать Сообщить модератору
 Re: Поиск в МЕМО - помогите с запросом  [new]
Kulakov Oleg
Member

Откуда:
Сообщений: 54
Пример кода в приатаченном файле. Помогите кто может.

К сообщению приложен файл (anket.zip - 1Kb) cкачать
26 фев 09, 11:55    [6863056]     Ответить | Цитировать Сообщить модератору
 Re: Поиск в МЕМО - помогите с запросом  [new]
ВладимирМ
Member

Откуда: г. Москва
Сообщений: 7864
"Тщательнее надо" (с)

1. В запросе синтаксические ошибки.
2. Если вы используете в качестве источника данных для Grid запрос, то надо указать, что тип источника данных - это SQL Statment. Т.е. установить свойство Grid.RecordSourceType
3. Не имеет смысла открывать таблицу-источник. Она будет открыта автоматически в момент выполнения запроса
4. Перед изменением источника данных Grid этот источник надо обнулить

Итого, код метода Click будет примерно такой


MyGrd1="SELECT Fam,Nam FROM anket"+;
 " WHERE '"+UPPER(ALLTRIM(Thisform.text1.Value))+"' $ UPPER(m_pole)"
MyGrd1=MyGrd1 + " INTO CURSOR tmp_tab NOFILTER"

	Thisform.Grid1.RecordSource = ""

* Если в настройках Grid это уже сделано, то эта команда не нужна
	Thisform.Grid1.RecordSourceType = 4 
	
	Thisform.Grid1.RecordSource = MyGrd1
	Thisform.Grid1.ForeColor=RGB(0,0,0)
	Thisform.Grid1.AllowCellSelection=.f.
	Thisform.Grid1.enabled=.t.
	Thisform.Grid1.refresh()
26 фев 09, 14:02    [6864187]     Ответить | Цитировать Сообщить модератору
 Re: Поиск в МЕМО - помогите с запросом  [new]
Kulakov Oleg
Member

Откуда:
Сообщений: 54
ВладимирМ,

Огромное спасибо за помощь.
26 фев 09, 14:31    [6864462]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить