Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поможите с командой INSERT ! / 2 сообщений из 2, страница 1 из 1
25.04.2004, 22:22
    #32495902
Поможите с командой INSERT !
Пытаюсь работать с файлами dBASEIV через ODBC ( так нужно ).
В одном каталоге лежат шаблоны, в другом фоксовские базы для выгрузки с такими же именами и точно такими же полями и в точно такой же последовательности
Делаю следующее :


h4 = sqlstringconnect( _STRCONN )
select 0
use ( "c:\_b\bebe.dbf" ) alias bb EXCL

nfields = afields( _aFields )

for i = 1 to nfields

ScString = ScString + _aFields[ i, 1 ] + ","
InsertString = InsertString + _aFields[ i, 1 ]) + ","
QuString = QuString + "?" + _aFields[ i, 1 ]) + ","

next i

ScString = substr( ScString, 1, len( ScString ) - 1 )
InsertString = substr( InsertString, 1, len( InsertString ) - 1 )
QuString = substr( QuString, 1, len( QuString ) - 1 )

go top
SCAN
ExScatterString = "SCATTER FIELDS " + ScString + " MEMO MEMVAR"
&ExScatterString

cstring = "Insert into bebe( " + InsertString + ") values( " + QuString + ")"
sqlexec(h4,cstring)

ENDSCAN

В этой базе 30 полей, 25-е - МЕМО, такая кострукция не работает, однако, если ставишь границу : for i = 1 to nfields -7 то работает, если
for i = 24 to 27 - тоже работает, если полей МЕМО нет, даже при 170 полях работает как часы, а есть базка с 10 полями и все МЕМО - тоже работает.
Бред какой-то ! Ничего не понимаю. Что делать ? Заранее признателен
...
Рейтинг: 0 / 0
26.04.2004, 01:16
    #32495954
Поможите с командой INSERT !
Чуть поковырял,такая штука выходит : SQLEXEC не хочет обрабатывать пустые поля типа ДАТА ( пишет - несоответствие типов ), и в упор не видит поля с именем "_10" ( !!! ). Где же здесь собака порылась ?
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поможите с командой INSERT ! / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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