• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Редактирование таблицы Dbf(visualfoxpro) из Access

  • Автор темы gbcfk(f)^
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

gbcfk(f)^

Здравствуйте!
Есть база base.dbc, в которую входят несколько таблиц *.dbf типа Visual FoxPro.
Нужно из аксесса изменять поля этой таблицы, сейчас проект находится на такой стадии:
Код:
Sub Secondrocedure() 
Dim dbCurrent As Database 
Dim tdTarget As TableDef 
Dim fldLoop As Field 
Set dbCurrent = CurrentDb() 
Set tdTarget = dbCurrent.CreateTableDef("Spisok")  
tdTarget.Connect = "ODBC;DSN=Visual FoxPro  
Database;SourceDB=D:\dbf\bases\base.DBC;SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Nu
ll=Yes;Deleted=Yes;;TABLE=Spisok" 
tdTarget.SourceTableName = "Spisok"  
dbCurrent.TableDefs.Append tdTarget 

dbCurrent.Close 
Set tdTarget = Nothing 

End Sub
Т.е. сама таблица (в данном случае D:\dbf\Spisok.dbf) прилинкована к таблице Spisok в Аксессе.
Но чето не получается её редактировать, т.е при попытке изменить любую ячейку прилинкованной dbf-ки выдает:
"ODBC - ошибка обновления присоединенной (связанной) таблицы 'Spisok'
[Microsoft][ODBC Visual FoxPro Driver]SQL: Statement too long. (#812)"
Далее пишет, что в приложении обнаружена ошибка при сохранении записи и приложение будет закрыто.
Может кто знает, как можно изменять поля этой таблицы?

Заранее благодарен
 
S

Shadow-Master

Таблицы FoxPro для изменения требуют монопольного доступа, поробуйте в строке поключеня поставить Exclusive=yes
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!