SQL Server 2005
Фрагмент программы Visual Basic

В dbf файл запись из базы SQL

Все работает прекрасно, но, как только в DBF файле заполнено 940 записей и выполняется команда rs_dbf_spis.Update для 941 записи – сообщение об ошибке,

Причем от содеожания полей это не влияет. Я деляю запросы на разные периоды и получаю разные данные 0- но закономекрность одна – как только 941 запись в spis.dbf – ошибка.
Отладчик стоит на команде rs_dbf_spis.Update





В spsis.dbf – 69 полей.
Может нужно укзать отличные от принятых по умолчанию параметры ?




''--------------- Локальный spis_dbf ---------------------

Set cn_dbf = New ADODB.Connection
Set Cmd_dbf = New ADODB.Command
Set rs_dbf_spis = New ADODB.Recordset

'rs_dbf_spis.LockType = adLockOptimistic

rs_dbf_spis.CursorType = adOpenStatic
cn_dbf.CursorLocation = adUseClient
SourceDB=O:\TMP.ALL\VB"
cn_dbf.Open "Provider=VFPOLEDB.1;Data Source=" + sPthSpis_dbf + ";Collating Sequence=MACHINE"

rs_dbf_spis.ActiveConnection = cn_dbf
tmptxt = "Select * from spis"
rs_dbf_spis.Source = tmptxt
rs_dbf_spis.Open
'---------------------------------------------------------


Do while ….

rs_dbf_spis.AddNew

' Заполнение полей: ------
rs_dbf_spis.fields(“fio”) = “Иванов”
…
'-------------------------


rs_dbf_spis.Update

wend

alm2SQL Server 2005
Фрагмент программы Visual Basic

В dbf файл запись из базы SQL

Все работает прекрасно, но, как только в DBF файле заполнено 940 записей и выполняется команда rs_dbf_spis.Update для 941 записи – сообщение об ошибке,

Причем от содеожания полей это не влияет. Я деляю запросы на разные периоды и получаю разные данные 0- но закономекрность одна – как только 941 запись в spis.dbf – ошибка.
Отладчик стоит на команде rs_dbf_spis.Update





В spsis.dbf – 69 полей.
Может нужно укзать отличные от принятых по умолчанию параметры ?




''--------------- Локальный spis_dbf ---------------------

Set cn_dbf = New ADODB.Connection
Set Cmd_dbf = New ADODB.Command
Set rs_dbf_spis = New ADODB.Recordset

'rs_dbf_spis.LockType = adLockOptimistic

rs_dbf_spis.CursorType = adOpenStatic
cn_dbf.CursorLocation = adUseClient
SourceDB=O:\TMP.ALL\VB"
cn_dbf.Open "Provider=VFPOLEDB.1;Data Source=" + sPthSpis_dbf + ";Collating Sequence=MACHINE"

rs_dbf_spis.ActiveConnection = cn_dbf
tmptxt = "Select * from spis"
rs_dbf_spis.Source = tmptxt
rs_dbf_spis.Open
'---------------------------------------------------------


Do while ….

rs_dbf_spis.AddNew

' Заполнение полей: ------
rs_dbf_spis.fields(“fio”) = “Иванов”
…
'-------------------------


rs_dbf_spis.Update

wend




А на другом компьютере - все работает

Причина ADO ?
Что нужно переставить ?

Игорь Горбонос
> Автор: alm2
> Все работает прекрасно, но, как только в DBF файле заполнено 940 записей и выполняется команда rs_dbf_spis.Update
> для 941 записи – сообщение об ошибке,

Где текст ошибки?




Вот текст ошибки