ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблемы с sqlexec()
11 сообщений из 11, страница 1 из 1
Проблемы с sqlexec()
    #32359825
Ahil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ahil
Гость
Люди!!!
Вот такая бадяга!!! Есть такой код на событии формы Activate:
= SQLSETPROP(con, 'asynchronous', .f.)
strSQL="select wbs_name,wbs_id from projwbs where node_type='EPS'"
= SQLEXEC(con, strSQL, 'curEPS')
thisform.Combo1.columncount=2
thisform.Combo1.columnwidths="200,0"
thisform.Combo1.boundcolumn=2
thisform.Combo1.rowsourcetype=6
thisform.Combo1.rowsource='curEPS'

Есть вот такой код на событии InteractiveCange у Combo1 той же формы:
local idWbs
idWbs=val(thisform.Combo1.value)
= SQLSETPROP(con, 'asynchronous', .f.)
strSQL="select proj_name, proj_id from project where parent_wbs_id=idWbs"
=sqlexec(con,strSQL,'curWBS')
thisform.List1.columncount=2
thisform.List1.columnwidths="200,0"
thisform.List1.boundcolumn=2
thisform.List1.rowsourcetype=6
thisform.List1.rowsource='curWBS'
=sqldisconnect(con)

Выдается ошибка при изменении Combo1: "field pfrase is not found"
Что делать?!
...
Рейтинг: 0 / 0
22.12.2003, 15:14
| Ответить | Цитировать | Написать  
Проблемы с sqlexec()
    #32359892
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
AhilstrSQL="select proj_name, proj_id from project where parent_wbs_id=idWbs"

Не катит. Либо сам загоняй ЗНАЧЕНИЕ переменной idWbs в строку, соответственно обрамляя её кавычками, если это строковая переменная. Т.е. нечто вроде:
Код: plaintext
strSQL= "select proj_name, proj_id from project where parent_wbs_id=" +TRANSFORM(idWbs)

или
Код: plaintext
strSQL=[select proj_name, proj_id from project where parent_wbs_id= "]+TRANSFORM(idWbs)+[" ]

или попробуй явно указать, что idWbs это внешний (по отношению к ODBC и твоему серверу) параметр:
Код: plaintext
strSQL= "select proj_name, proj_id from project where parent_wbs_id=?idWbs"

Обрати внимание на знак вопроса.
WBR, Igor
...
Рейтинг: 0 / 0
22.12.2003, 15:52
| Ответить | Цитировать | Написать  
Проблемы с sqlexec()
    #32359917
Ahil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ahil
Гость
Igor, я исправил эту ошибку, но усё равно не катит. Таже ошибка! Может sqlexec я вызываю неправильно?
...
Рейтинг: 0 / 0
22.12.2003, 16:10
| Ответить | Цитировать | Написать  
Проблемы с sqlexec()
    #32359970
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
Что все варианты не катят???
А какую ошибку выдаёт и где конкретно? Может с типами полей беда какая?
WBR, Igor
...
Рейтинг: 0 / 0
22.12.2003, 16:39
| Ответить | Цитировать | Написать  
Проблемы с sqlexec()
    #32359986
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
А не надо имя курсора втыкать туда, где должен быть список полей
Код: plaintext
HELP RowSourceType

6 Fields. A comma delimited list of fields. The fields may be prefaced by the table alias and a period.
...
Рейтинг: 0 / 0
22.12.2003, 16:47
| Ответить | Цитировать | Написать  
Проблемы с sqlexec()
    #32360005
Ahil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ahil
Гость
Мужики! Если имеется ввиду своийство RowsourceType, то я и его делал =2 вместо 6, но чей-то не помогает. При изменении Combo1 вываливается вот енто: "field pfrase is not found". Может конечно у меня что с руками не так, но просьба - помогите чайнику!!!!
...
Рейтинг: 0 / 0
22.12.2003, 17:02
| Ответить | Цитировать | Написать  
Проблемы с sqlexec()
    #32360010
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
Хмм.. А это зачем в InteractiveChange?
Код: plaintext
=sqldisconnect(con)
...
Рейтинг: 0 / 0
22.12.2003, 17:05
| Ответить | Цитировать | Написать  
Проблемы с sqlexec()
    #32360026
Ahil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ahil
Гость
sqldisconnect(con) для того, чтоб коннект к БД закрыть, после того, как заполнится Listbox.
...
Рейтинг: 0 / 0
22.12.2003, 17:13
| Ответить | Цитировать | Написать  
Проблемы с sqlexec()
    #32360031
malec
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
malec
Гость
Посмотри что у тебя sqlexec() возвращает!
...
Рейтинг: 0 / 0
22.12.2003, 17:16
| Ответить | Цитировать | Написать  
Проблемы с sqlexec()
    #32360042
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
Ты закрываешь коннект, а потом опять обращаешься к серверу?
Попробуй что-то вроде:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
strSQL= "select wbs_name,wbs_id from projwbs where node_type='EPS'" 
if SQLEXEC(con, strSQL, 'curEPS') >  0 
 thisform.Combo1.columncount= 2 
 thisform.Combo1.columnwidths= "200 , 0 "
 thisform.Combo1.boundcolumn= 2 
 thisform.Combo1.rowsourcetype= 6 
 thisform.Combo1.rowsource='curEPS.wbs_name,curEPS.wbs_id'
else
 =MessageBox('Error')
endif

*!* Combo1.InteraciveChange

idWbs=val(thisform.Combo1.value)
strSQL= "select proj_name, proj_id from project where parent_wbs_id=?idWbs" 
if sqlexec(con,strSQL,'curWBS') >  0 
 thisform.List1.columncount= 2 
 thisform.List1.columnwidths= "200 , 0 "
 thisform.List1.boundcolumn= 2 
 thisform.List1.rowsourcetype= 6 
 thisform.List1.rowsource='curWBS.proj_name, curWBS.proj_id' 
else
 =MessageBox('Error')
endif

А коннект закроешь в Form.Unload, если так уж нужно.
...
Рейтинг: 0 / 0
22.12.2003, 17:23
| Ответить | Цитировать | Написать  
Проблемы с sqlexec()
    #32361054
Ahil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ahil
Гость
Ребята! Всем спасибо! Вроде все получилось!!!
...
Рейтинг: 0 / 0
23.12.2003, 15:58
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблемы с sqlexec()
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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