уже второй день парюсь!

[Алёна]

у меня есть таблица dbf, мне надо заменить в ней один столбец с одними значениями на другие. как это лучше сделать через делфи или как? (например если есть столбец и там одни значения "Питер", а надо "Санкт-Петербург" ) заранее спасибо

[Баламут]

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

[Алёна]

как раз таки не одноразовая, надо вот это и автоматизировать: найти и заменить, не подскажите как?

[Баламут]

В общем нет под рукой нормальной DBF-ки, так что попробуем без проверки... Кликаем 2 раза по ADOConnection1 и выбираем поставщика данных Microsoft OLE DB Provider for ODBC Drivers. Дальше выбираем пункт Использовать строку подключения -> Сборка. Выбираем вкладку Источник данных компьютера ->Файлы dBase. Жмем Ок и указываем каталог с нашей dbf-кой. Ну а дальше как обычно... ADOQuery1, DataSource1... В общем самому интересно! Скажешь о результатах?

[Алёна]

спасибо конечно Баламут, но как подключиться к базе я знаЮ, вот с кодом проблемы, не знаю как менять значения программно

[Баламут]

for i := 1 to ADOQuery1.RecordCount do
begin
ADOQuery1.RecNo := i;
if ADOQuery1.FieldValues['Town'] = 'СПб' then ADOQuery1.FieldValues['Town'] := 'Москва';
ADOQuery1.Post;
end;

[Алёна]

у меня с ADO не получается, делаю через обычный TAble и edit, код пишу такой:

begin
Table1.Active:=False;
if edit1.Text='Astana' then
begin
Table1.Edit;
for i:=1 to Table1.RecordCount do
Table1['gorod']:=Edit1.Text;
... тут что то должно быть?
end;
Table1.Post;
Table1.Active:=true;
end;
ошибка вылетает
"Table1:Cannot perform this operation on a closed dataset"

[Алёна]

через обычный Table пробую, а то ADO не работает, код пишу такой:

Table1.Active:=False;
if edit1.Text='Astana' then
begin
Table1.Edit;
for i:=1 to Table1.RecordCount do
Table1['gorod']:=Edit1.Text;
... тут еще че то надо?
end;
Table1.Post;
Table1.Active:=true;
end;
вылетает ошибка
"Table1:Cannot perform this operation on a closed dataset"

[Баламут]

Ну добавь перед циклом Table1.open, Table1.Edit. Если не получится, то вставь эти стрки в цикл!

[Алёна]

спасибо все получилось