exelden firebird e aktarma

[sistem02]

s.a.

bir programın veritabanındaki kayıtları firebirde aktarmak istiyorum. programın kullandığı veri tabanı access, veri tabanı şifreli açamıyorum. access de parodoxtaki gibi girebileceğim bir şifre varmı?. yada programda örneğin stok kartını exele atabiliyor, exelden firebirde aktarabilirmiyim.

[kadioglu]

Öncelikle şunu söyleyeyim,
Türkçe karşılığı ile acceess şifreleri kolayca kurtarılabilir;
yani access veri tabanına koyulmuş şifreyi öğrenmek için (çok uzun olsada)
çok uzun süre beklemeniz gerekmez..

exelden bilgi alma ve veri tabanına kayıt kodlarını
gönderebilirim;
ama şu an yanımda değiller;

iyi çalışmalar..

[volkancesur]

Arkadaşlar dün ben biraz kaynaklardan araştırdım ve oldu kodu veriyorum

Kod: Tümünü seç

var
  book:variant;
  excel,sheet:variant;
  satir, sutun:integer;
  str:string;
begin
  excel := createOleObject('Excel.application');
  OpenDialog1.Filter := 'Excel Dosyaları (*.xls)|*.xls';
  if opendialog1.Execute then
    begin
      book:= Excel.WorkBooks.Open(OpenDialog1.FileName);
      //MyClass := TComponent.Create(Self);
      try
      finally
      //MyClass.Free;
    end;
  Screen.Cursor := crHourGlass;
  sheet := book.worksheets[1];
  for satir:=2 to 4000 do
    begin
      str := sheet.cells[satir, 1];
      if (str <> '') then
        begin
          Update;
          dm.tbKimlik.Insert;
          for sutun:=2 to 31 do
          dm.tbKimlik.Fields[sutun-1].AsString :=sheet.cells[satir,sutun];
          dm.tbKimlik.Post;
        end;
    end;
  Excel.quit;
  excel:=Unassigned;
  Screen.Cursor := crDefault;
  ShowMessage(''+' Kayıtlar Alınmıştır ! ');
  end;
  //finally
end;

Burada opendialog ile dosya seçiyorum ve seçilenleri kimlik tablosuna atıyorum .Ama burda önemli olan alanlarının birbirine eşdeğer olması bunun içinde şunu yaptım.
Önce veritabanındaki kimlik tablosunu excel e export ettim .Sonrada exceldeki alanları bu şablona uyarladım.Hiç problemsiz aldım.Kolay gelsin iyi çalışmalar