Создал класс CursorAdapter и на его основе создаю несколько курсоров в Data Environment
формы из таблиц на MySQL, используя драйвер ОDВС. Все работает красиво – добавляется редактируется кроме полей (date). Через append blank и repl или через insert-вставляет,
но потом поля(date) не редактируются даже после пересоздания курсоров.
Для отладки в свойстве AfterInsert использую такой код:

=messagebox(STR(CURSORGETPROP("Buffering"))+' buff',16,'в AfterInsert!')
=messagebox(tableupdate(1,.t.,'kart_reg'),16,'в AfterInsert!')
IF TableUpdate(.T.,.T.,"kart_reg")=.F.
LOCAL laError(1)
=AERROR(laError)
* Анализ массива laError для уточнения причины ошибки
ENDIF
В массиве laError нахожу Error(2077)
Объекта CursorAdapter в данный момент времени уже используется в другом процессе или, иными словами, не может быть вызван в этот момент времени.

Благодарю за помощь!
Проверил еще все раз. Пока все по прежнему. Может как то сказываетя использование одного базовый СА
при создании нескольких разных курсоров?
А это основной:

this.NEWOBJECT('kart_reg', 'sqlCursor', 'mylib')
this.kart_reg.alias = 'kart_reg'
this.kart_reg.tables = 'kart_reg'
this.kart_reg.KeyFieldList = 'n_kart'
this.kart_reg.FetchSize = -1
this.kart_reg.FetchAsNeeded = .F.

this.kart_reg.UseCursorSchema = .T. !!! В базовом курсоре - .F.

this.kart_reg.CursorSchema = 'N_KART N(4), KSP C(6), DAT_PODACH D(8), NAME_KART C(220), FIO_DIR C(60),DOLJ_DIR C(12), TELEF C(50),FIO_ISPOL C(20), DAT_DORAB D(8), '+;
'OSNOV_DORA C(1), DAT_DOG D(8), NOM_DOGWR C(6), DAT_VOZOBN D(8),IND N(6),GOROD C(5),AB C(2),STREET C(5),DOM C(5),KORPUS C(5),KVART C(5),PR_KART C(1),PRI C(220), '+;
'ADRES C(100), d1 L, d2 L, d3 L, d4 L, d5 L, d6 L, d7 L, d8 L, d9 L, d10 L, d11 L,kod_pol C(2),end1 L, end2 L, end3 L'

this.kart_reg.SelectCmd = 'select * from kart_reg'__

this.kart_reg.UpdatableFieldList = 'N_KART, KSP, DAT_PODACH, NAME_KART, FIO_DIR,DOLJ_DIR, TELEF,FIO_ISPOL, DAT_DORAB, OSNOV_DORA, DAT_DOG, NOM_DOGWR, DAT_VOZOBN,'+;
'IND,GOROD,AB,STREET,DOM,KORPUS,KVART,PR_KART,PRI, ADRES, d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, d11,kod_pol,end1, end2, end3'

this.kart_reg.UpdateNameList = 'N_KART KART_REG.N_KART, KSP KART_REG.KSP, DAT_PODACH KART_REG.DAT_PODACH,NAME_KART KART_REG.NAME_KART,'+;
'FIO_DIR KART_REG.FIO_DIR,DOLJ_DIR KART_REG.DOLJ_DIR, TELEF KART_REG.TELEF,FIO_ISPOL KART_REG.FIO_ISPOL, DAT_DORAB KART_REG.DAT_DORAB, OSNOV_DORA KART_REG.OSNOV_DORA,'+;
'DAT_DOG kart_reg.dat_dog, NOM_DOGWR kart_reg.nom_dogwr,DAT_VOZOBN kart_reg.dat_vozobn,IND kart_reg.ind,GOROD kart_reg.gorod,AB kart_reg.ab,'+;
'STREET kart_reg.street,DOM kart_reg.dom,KORPUS kart_reg.korpus,KVART kart_reg.kvart,PR_KART kart_reg.pr_kart,PRI kart_reg.pri,ADRES kart_reg.adres,D1 kart_reg.d1,'+;
'D2 kart_reg.d2,D3 kart_reg.d3,D4 kart_reg.d4,D5 kart_reg.d5,D6 kart_reg.d6,D7 kart_reg.d7,D8 kart_reg.d8,D9 kart_reg.d9,D10 kart_reg.d10,D11 kart_reg.d11,'+;
'KOD_POL kart_reg.kod_pol, END1 kart_reg.end1, END2 kart_reg.end2, END3 kart_reg.end3'

this.kart_reg.cursorfill()

Благодарю – исправил
На форме с выше с вышеописанном СА при добавлении записи:

LOCAL n
zap_add=1 &&признак добавления записи
thisform.pageframe1.page1.SetAll("ReadOnly", .f.)
thisform.pageframe1.page1.SetAll("Enabled",.t., "Tscombobox")
sele kart_reg
n=0
* Найти максимальный код типа счетчика
calc max(n_kart) to n
n=n+1

*DODEFAULT()
insert into kart_reg (n_kart,dat_podach) values (n,date())
*APPEND blank
* REPLACE kart_reg.n_kart WITH n, kart_reg.dat_podach WITH date(),
nzap=recno()
goto nzap

thisform.pageframe1.page1.tst_nom.setfocus
thisform.pageframe1.page1.refresh
выдает:
Connectivity error

!!! Благодарю! Проверю после выходных. Проэкт остался на работе
Я из Гомеля -

! Благодарю всех за направления к действию!!!
Пробую по возможности все варианты.
В MySQL - есть тип поля date – по умолчанию заношу “0000-00-00”, пробовал ничего не заносить.

Почистил свойство AfterInsert – убрал все и TableUpdate
В select перечислил поля как в схеме.
Сообщение при добавлении записи “Connectivity error “ не выскакивает.
Явной ошибки при попытке передать "пустую" дату из Foxpro на MySQL не наблюдаю.

Все пока вернулось на исходную позицию – т.е. поля Date на MySQL не обновляютя как пустые так и первоначвльно добавленные Insert-ом.
Может есть у кого пример программного создания СА - в LOAD формы с датой и как формат описан на MySQL?

Спасибо!
Перепишу все по новой согласно Вашему примеру
и еще ?
Что происходит если ключевое поле KeyFieldList = "IDZ"
будет присутствовать в UpdatableFieldList и в UpdateNameList
и какой формат полей IDZ, DATAPR, DATAUV у Вас на MySQL

Хорошая штука СА - очень хочется разобраться до конца!
Ввел дополнительное поле IDZ на MySQL (по образцу).
IDZ - это первичный ключ записи, тип INTEGER c автоинкрементом.
До IDZ не дотрагиваюсь т. е. сам не корректирую .

Если this.kart_reg.KeyFieldList = 'IDZ' -запись добавляетя а потом ничего не корректируется.
Учел почти все советы, проверил названия и последовательность полей.

Если this.kart_reg.KeyFieldList = 'n_kart' остается как было т.е. запись добавляетя
и корректируется кроме дат.
Поле n_kart на MySQL обычное поле INTYEGER не первичный ключ и не c автоинкрементом(исходный вариант).

Может что – то в связке KeyFieldList – CursorSchema – UpdatableFieldList – UpdateNameList
и формата и назначения поля на MySQL(или головой)?

this.NEWOBJECT('kart_reg', 'sqlCursor', 'mylib')
this.kart_reg.DataSource = gn_Soed
* this.kart_reg.flags=0 !!!!!! в созданном построителем КЛССЕ "sqlCursor" стоит 0 и ругается если пытаюсь так изменить
this.kart_reg.alias = 'kart_reg'
this.kart_reg.tables = 'kart_reg'
*** this.kart_reg.KeyFieldList = 'n_kart'
this.kart_reg.KeyFieldList = 'idz'
this.kart_reg.whereType = 3
this.kart_reg.FetchSize = -1
this.kart_reg.FetchAsNeeded = .F.
this.kart_reg.UseCursorSchema = .T.


this.kart_reg.SelectCmd = 'select ' +;
'N_KART, KSP, DAT_PODACH, NAME_KART, FIO_DIR, DOLJ_DIR, TELEF, FIO_ISPOL, DAT_DORAB, ' + ;
'OSNOV_DORA, DAT_DOG, NOM_DOGWR, DAT_VOZOBN,IND, GOROD, AB, STREET, DOM, KORPUS, KVART, PR_KART, PRI, ' + ;
'ADRES, d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, d11, kod_pol, end1, end2, end3, idz ' + ;
'from kart_reg'

this.kart_reg.CursorSchema = 'N_KART N(4), KSP C(6), DAT_PODACH D, NAME_KART C(220), FIO_DIR C(60), DOLJ_DIR C(12), '+;
'TELEF C(50), FIO_ISPOL C(20), DAT_DORAB D, OSNOV_DORA C(1), DAT_DOG D, NOM_DOGWR C(6), DAT_VOZOBN D, IND N(6), '+;
'GOROD C(5), AB C(2), STREET C(5), DOM C(5), KORPUS C(5), KVART C(5), PR_KART C(1), PRI C(220), '+;
'ADRES C(100), d1 L, d2 L, d3 L, d4 L, d5 L, d6 L, d7 L, d8 L, d9 L, d10 L, d11 L, kod_pol C(2),end1 L, end2 L, end3 L, idz i(10)'

this.kart_reg.UpdatableFieldList = 'N_KART, KSP, DAT_PODACH, NAME_KART, FIO_DIR,DOLJ_DIR, TELEF,FIO_ISPOL, DAT_DORAB, OSNOV_DORA, DAT_DOG, NOM_DOGWR, DAT_VOZOBN,'+;
'IND,GOROD,AB,STREET,DOM,KORPUS,KVART,PR_KART,PRI, ADRES, d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, d11,kod_pol,end1, end2, end3, idz'
this.kart_reg.UpdateNameList = 'N_KART KART_REG.N_KART, KSP KART_REG.KSP, DAT_PODACH KART_REG.DAT_PODACH,NAME_KART KART_REG.NAME_KART,'+;
'FIO_DIR KART_REG.FIO_DIR,DOLJ_DIR KART_REG.DOLJ_DIR, TELEF KART_REG.TELEF,FIO_ISPOL KART_REG.FIO_ISPOL, DAT_DORAB KART_REG.DAT_DORAB, OSNOV_DORA KART_REG.OSNOV_DORA,'+;
'DAT_DOG kart_reg.dat_dog, NOM_DOGWR kart_reg.nom_dogwr,DAT_VOZOBN kart_reg.dat_vozobn,IND kart_reg.ind,GOROD kart_reg.gorod,AB kart_reg.ab,'+;
'STREET kart_reg.street,DOM kart_reg.dom,KORPUS kart_reg.korpus,KVART kart_reg.kvart,PR_KART kart_reg.pr_kart,PRI kart_reg.pri,ADRES kart_reg.adres,D1 kart_reg.d1,'+;
'D2 kart_reg.d2,D3 kart_reg.d3,D4 kart_reg.d4,D5 kart_reg.d5,D6 kart_reg.d6,D7 kart_reg.d7,D8 kart_reg.d8,D9 kart_reg.d9,D10 kart_reg.d10,D11 kart_reg.d11,'+;
'KOD_POL kart_reg.kod_pol, END1 kart_reg.end1, END2 kart_reg.end2, END3 kart_reg.end3, IDZ kart_reg.idz'

If !this.kart_reg.cursorfill(.T.,.F.)
m1=Aerror(mm1)
=MESSAGEBOX(mm1[2],16,"Ошибка при заполнении курсора")
RETURN .f.
Endif

MySQL ODBC 3.51 Driver
Server 5.1

Если не затруднит - что прописать в UpdateCMD для СА?

И какой вариант мне все же добивать с this.kart_reg.KeyFieldList = 'n_kart'
или this.kart_reg.KeyFieldList = 'idz' как у Вас -вернее какой по теории более правильный

Пытался не использовать KeyFieldList - ругается - и по моему правильно делает

Благодарю!!!

Благодарю – за терпение !!!
Текучка не дает сосредоточиться.

1)Вот что у меня показывает DEGUG в параметрах передаваемых в AfterUpdate
Cfldstate - ‘111111111112111111…..’
Lforce - .F.
Nupdatetype – 1
А эта команда сформировалась при корректировке поля dat_dog и не анализирует .NULL.
Cupdateinsertcmd -Update kart_reg set dat_dog= ?kart_reg.dat_dog where n_kart =?oldval(‘nkart’,’kart_reg’) and dat_dog=?oldval(‘dat_dog’,’kart_reg’)
lresult - .T.
и =AERROR(laerror) выдал laerror[1] = .F.
laerror[2] = .F. laerror[3] = .F.


2)А если на MySQL в поле dat_dog отмечаю ALLOW NULL
и при добавлении записи:
APPEND blank
REPLACE … kart_reg.dat_dog WITH .null.
- то в дальнейшем дата корректируетя (но в пустых в полях – настараживает пользователя NULL)
А как у вас дата прописана на MySQL

3)
Пытаюсь по Вашему образцу в LOAD формы создать СА(Соединение создается раньше)
SET CENTURY ON
SET date GERMAN
This.ca1=CREATEOBJECT("CursorAdapter") !!! Выдает Property CA1 is not found

Где у Вас прописано это свойство?

IF TYPE("this.ca1")= "0"
WITH This.ca1
.DataSource = gn_Soed !!! Соединение создается раньше
.alias = 'kart_reg'
.tables = 'kart_reg'
.KeyFieldList = 'n_kart'
.whereType = 3
.FetchSize = -1
.FetchAsNeeded = .F.
.UseCursorSchema = .T.
…

Огромное спасибо - дякую!!! Обязательно разберусь с Вашим примером. Я многое почерпнул за это
время общения. Поджимает время с проектом.

А что посоветуете пока в моем случае с WhereType = 3?
SelectCmd –подкорректирую согласно Вашей подсказке.
UpdateCmd не хотелось бы отслеживать в ручном режиме – он сам как, я понял отслеживает корректируемые поля(но этот NULL?!!!)
И хочется повториться - как у вас поле дата прописано на MySQL т. е. что в DEFAULT и ALLOW NULL.
С уважением и благодарностью.

Наконец все стало на свои места! – Основная проблема решена.
Боюсь утомить, но хотелось бы узнать Ваше мнение – по каким причинам не рекомендуют использовать среду DE? (на сайтах просто не рекомендуют использовать)

и еще - как обмануть DE не закрывать CA при закрытии формы – AutoCloseTables c CA не срабатывает (хотя уже перевожу все в LOAD формы)

и почему , если использовать KeyFieldList = 'n_kart' и это поле на MySQL - не первичный ключ и если есть несколько записей с одинаковыми значениями в n_kart и dat_dog то при корректировке одного значения поля dat_dog -значение на MySQL меняется на всех этих записях.

Иногда при добавлении записи добавляетя 2 или даже больше(подозреваю что при не удачной попытке обновления не очищается буфер – как с этим бороться?)

Спасибо!!!

Sea_Cat,
Спасибо, что уделили мне столько времени!
Вы мне очень помогли!!!

VIVA_CA,

Уважаемый Учитель, грустно стало без общения!

Хочу отказаться от создания СА в DE и по Вашей методике перейти в LOAD.

Если можно – подробнее по пунктам( как в последнем ответе) :
Я создаю Class CA штатным билдером и на его основе затем в DE используя
This.ca1=This.NEWOBJECT('ca1', 'sqlCursor', 'mylib') привязываю к конкретной форме.
( Сейчас уже все ок! даже с датами)
Но если весь текст настройки переношу в LOAD (простым копированием) - при инициализации формы
Выдает:( из Help)
Объектный класс недопустим для этого контейнера (Ошибка 1744)
Вы попытались добавить объект, как член родительского объекта, методом AddObject . Он не может быть добавлен, потому что класс объекта как члена, не может быть членом объекта родительского класса. Например, Вы не можете добавить объект Grid к объекту PageFrame.
Это понятно! Но как выкрутиться?

При This.ca1=CREATEOBJECT("CursorAdapter")- не ругаетя – но естественно это уже другой СА.
Я так понимаю – вы изначально создаете СА в DE чтобы отладиться?

Как Вы писали раньше – создал свойство CA1(все описание его по умолчанию) на форме и в LOAD
( или это сделает утилита tr_cad ?)

Как сделать привязку к элементам формы( Что под этим понимается - указание конкретных полей?)

Как запускается (откуда) ? tr_cad
И какие еще учесть нюансы CA после отработки tr_cad, копирования из буфера в LOAD, и удаления из DE?

Уважаеиый ВладимирМ,

Большое спасибо за Ваши несколько резкие но справедливые ответы на мои предыдущие вопросы.
Многие нюансы paботы с CA я переосмыслил в переписке с уважаеиым Sea_Cat и с Вами.
Пока меня устраивает работа СА в DE. Но в большинстве ответов уважаемых метров на вопросы чайников проскальзывает
совет переводить СА из DE в LOAD.
В самом последнем моем запросе (!!! на 2-й стр.) я просил уважаемого Sea_Cat поделиться опытом.

Sea_Cat,

Читаю с большим интересом статьи которые вы рекомендовали.

Но хочется до конца разобраться с затронутой Вами темой.

1) Например, перетащив заголовок курсора из DE на форму – как это делается и что означает?
Также легко - перетаскиванием - создаются поля ввода TEXT. - ? если можно подробнее!

2) Работа с tr_cad:
Я создаю Class CA штатным билдером и записываю в бибилиотеку классов и на его основе затем в DE
BeforeOpenTables:
This.NEWOBJECT('ca1', 'sqlCursor', 'mylib') и дальше остальные свойства
this.ca1.DataSource = gn_Soed
и т.д.
Закрываю форму

Запускаю tr_cad – ругается на первой строчке Parameters n_frm (естественно тк не процедура)
Ignore

Scan For Alltrim(frm.Class) = 'cursoradapter' не выполняется условие- те не находит
Визуально просмотрел и остальные поля таблицы frm - нет

Я так понимаю надо использовать CREATEOBJECT("CursorAdapter")? Но теряется смысл ипользования
созданного класса?

Благодарю!