Имя: Пароль:
1C
1С v8
Как отредактировать поле в DBF файле
,
0 VBMADD
 
28.04.18
14:42
Привет братьям по разуму.
Подскажите пож-ста как через ADODB при помощи запроса отредактировать поле в DBF файле. Какой либо опыт в данном вопросе у меня отсутствует

На этом примере:
//==================================================
Процедура ВыполнитьADODB()
//==================================================

Путь = "c:\Base";
ИмяТаблицы = "tov.dbf";      

Подключение = Новый COMОбъект("ADODB.Connection");

Стринг = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=""" + Путь + """;" + "Extended Properties=""DBASE IV;"";";      

Попытка
          Подключение.Open(Стринг);
      Исключение
          Сообщить ("Проблемы с подключением" );
          Сообщить(ОписаниеОшибки());
          Возврат;
КонецПопытки;
      
Команда = Новый COMОбъект("ADODB.Command");
        Команда.ActiveConnection = Подключение;
        ТекстЗапроса = "SELECT CODE,NAME.PRICE FROM tov.dbf WHERE CODE='12345'";
        Команда.CommandText = ТекстЗапроса;
        Команда.CommandType = 1;
        Запрос = Новый COMОбъект("ADODB.RecordSet");
        Запрос = Команда.Execute();
// Далее нужно поменять значение в поле PRICE файла tov.dbf и сохранить измененный файл.

КонецПроцедуры

Спасибо всем, кто откликнулся.
1 VBMADD
 
28.04.18
15:22
Никто не знает как помочь бедному крестьянину в этом вопросе?...
2 Garykom
 
гуру
28.04.18
15:24
"adodb alter table"
3 Garykom
 
гуру
28.04.18
15:26
тьфу тебе просто "update" нужен https://www.w3schools.com/asp/ado_update.asp
4 VBMADD
 
28.04.18
16:07
(3) Спасибо, посмотрел,...но мне трудно понять что там написано. Браток, подмогни, мне бы просто добавить нужный код в приведенный выше пример сам не смогу.
Если конечно не трудно...
5 Garykom
 
гуру
28.04.18
16:49
ТекстЗапроса = "SELECT CODE,NAME.PRICE FROM tov.dbf WHERE CODE='12345'";

SQL совсем не знаем?

ТекстЗапроса = "UPDATE tov.dbf SET PRICE="+НоваяЦена+" WHERE CODE='12345'";
6 VBMADD
 
28.04.18
17:00
(5) Спасибо огромное!
Извини бедного крестьянина за бестолковость.
Пусть сбудутся все твои мечты...