Delphi Dünyası Facebook'ta

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

Gönderen Konu: dosya aç  (Okunma sayısı 1402 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Biruni

  • Delphi 1 Level 2
  • **
  • İleti: 10
  • Rep: +0/-0
dosya aç
« : 03 Mart 2009 07:23:57 »
merhaba arkadaşlar delphide databasede dosya açma (access kullanıyorum) ve açılan dosya üzerinden işlem yapmak istiyorum... yardımlarınız bekliyorum  teşekkürler.
örnek: klasörde met.mdb adlı  dosyaya bağlanıyorum 
ama her yeni  proje başladığında met.mdb yi  boşaltmam gerekiyor bu  da mantıksız...

AÇILIŞ:yeni proje ile başaldığımda  met.mdb boş  gelmesini istiyorum ...  ortak kullanlan sistem dosyalarının içine bu  dosyayı atmayı orda yer vermeyi düşünüyorum... program her yeni  dosya veya proje başlangıcında default değerli  dosyamızdan başlamış  olur böylece... burda sorun yok burayı  çözüyorum

KAYIT (SAVE) :örneğin çalıştık yükledik bilgileri proje sonunda kayıt yapalım diyelim yaptım dosya farklı  isim ile kayıt oluyor kod:

var
  fileSource, fileDest: string;

begin
  fileSource := ExtractFilePath(Application.ExeName)+data.ADOBinaDosyaAdi.Value+'.mdb';
  fileDest := ExtractFilePath(Application.ExeName)+Data.adobinaDosyaAdi.value+'.mdb';
  CopyFile(PChar(fileSource), PChar(fileDest), False);
end;

DOSYA AÇ(FİLE OPEN): mevcut bir dosyayı açıp bunun üzerinden çalışma yapmayı başaramadım ilgileriniz için  çok  teşekkür ediyorum..
iyi çalışmalar diliyoru...