VPF::Конвертирование из DB в DBF - Форум программистов

shaft666

Дата 3.1.2006, 17:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ребят подскажите пожалуйста как можно переконвертировать таблицу из *.DB из *.DBF???

kulikoff

Дата 3.1.2006, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: 1
Всего: 1

Страдал точно таки, только мне надо было из dbf в Oracle'скую таблицу перекинуть значения. Пишешь просто запрос (я подключался через BDE):

Код


procedure TForm1.sBitBtn2Click(Sender: TObject); 
var i,a: integer; 
    k: string; 
begin 
if sOpenDialog1.Execute 
then k:='select ZKPO, S from "' + sOpenDialog1.FileName +'"' 
else exit; 
  Query1.Close; 
  Query1.SQL.Clear; 
  Query1.SQL.Text:=k; 
  {Query1.SQL.Text:='select ZKPO, S from "BANK2410.dbf"';} 
  Query1.Prepare; 
  Query1.Open; 
  Query2.SQL.Clear; 
  Query2.SQL.Text:='insert into ":ren4ora:BANKVUP" (ZKPO, S) values (:param1, :param2)'; 
  sGauge1.MinValue:=0; 
  sGauge1.MaxValue:=Query1.RecordCount; 
  a:=sGauge1.MaxValue; 
  
  for i:=1 to a do 
    begin 
      Application.ProcessMessages; 
      sLabelFX2.Caption := 'експортовано '+ IntToStr(i) + ' записів з ' +IntToStr(a); 
      Query2.ParamByName('param1').AsFloat:=Query1.FieldByName('ZKPO').AsFloat; 
      Query2.ParamByName('param2').AsFloat:=Query1.FieldByName('S').AsFloat; 
      Query2.Prepare; 
      Query2.ExecSQL; 
      Query1.Next; 
      sGauge1.Progress:=i+1; 
    end; 

  sGauge1.Progress:=0; 
  MessageDlg('Всі дані експортовано у базу даних!', mtInformation, mbOKCancel,0); 

end;

Тут, конечно, немного раздуто, но красиво и передо мной стояла задача выводить ProgressBar (но я немного отошел от него) и надпись, сколько записей из скольки уже переброшено (зачем это надо - понятия не имею). Потому пришлось два запроса делать и т.д. Но код абсолютно рабочий, в принципе, всё равно, что из чего перекидывать, создаешь два подключения, два набора данных и работаешь с ними. Если что не ясно - спрашивай, я сам дуплился с этим, пока всё понял smile

SergeBS

Дата 11.1.2006, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22

shaft666
Ставишь ErWin и конвертируешь. Т.е. исходный сервер - Paradox, целевой - DBF. Кстати 4 версия и Oracle знает прекрасно.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »