Была форма на ней было две таблицы связанные Relation по коду, идёшь по записям(наименование) первой таблицы, во второй сразу отображается прикреплённые к этому коду записи второй таблицы...
делаю
lnconnection = SQLSTRINGCONNECT(lcconnstring)
omycad = CREATEOBJECT('CursorAdapter')
fl=.F.
WITH omycad
.ALIAS = 'price'
.DATASOURCETYPE = 'ODBC'
.DATASOURCE = lnconnection
.SELECTCMD = 'select * from price'
.TABLES = 'price'
.BUFFERMODEOVERRIDE = 5
IF .CURSORFILL(.T.)
fl=.T.
ELSE
AERROR(laerrors)
MESSAGEBOX(laerrors[2])
ENDIF
ENDWITH
IF fl
omycad_1 = CREATEOBJECT('CursorAdapter')
WITH omycad_1
.ALIAS = 'nomzen'
.DATASOURCETYPE = 'ODBC'
.DATASOURCE = lnconnection
.SELECTCMD = 'select KOD,NAIM from nomzen'
.TABLES = 'nomzen'
.BUFFERMODEOVERRIDE = 5
MESSAGEBOX('ok')
Вот до сюда всё нормально
*****************
IF .CURSORFILL(.T.)
а тут выскакивает ошибка busy(занято соединение), но если я иду дебугером, то эта функция отрабатывает без ошибок

DO FORM FORMS\spr_iz_s
ELSE
AERROR(laerrors)
MESSAGEBOX(laerrors[2])
ENDIF
ENDWITH
ENDIF

Т.е. как я понимаю установил соединение с базой данных, а как теперь настроить и заполнить курсоры из разных таблиц...
второй вопрос, надо ли мне выбирать все записи из дочерней таблицы, или при перемещение на другую запись родител. таблицы, выбирать записи дочерней и подгружать во вторую таблицу....
Или надо просто расшарить коннекшн....

PaulWist lnconnection = SQLSTRINGCONNECT(lcconnstring)


Что возвращает

SQLSETPROP(0, 'Shared', .T.)
SQLSETPROP(lnconnection, 'Shared', .T.)

выдаёт сообщение this property is read only

SQLSTRINGCONNECT(lcconnstring,.T.) тоже безрезультатно..