dolu.mdb ve dolacak.mdb adında 2 access dosyam var.
Aşağıdaki kod ile table1deki tabloyu table2 ye aktarıyorum.
table1 i dolu.mdbye table2yi dolacak.mdb ye bağladım.bu şekilde çalışıyor.
Ancak bilgisayarın farklı yerlerindeki dosyaları seçip tek dosyaya kopyalamak istiyorum
yani formun üstüne 10 tane edit koyup access dosyalarını seçip yollarını editlere yazdırıp sonra butona basınca
kopyalama işinin yapılmasını istiyorum.
şimdi form üzerine 11 tane edit koyacağım ,10tanesi kopyalanacak dosyaların yolu yazacak, 1 tanesi de 10dosyanın kopyalanacağı dosyanın yolu yazacak.
1.form üzerine 11editten başka hangi nesneleri koymam gerekiyor
2.farklı yerlerdeki 10 access dosyasını seçip yollarını editlere hangi kodla yazdırabilirim
3.10tane editte yolu belirtilen accessleri, 11.editte yazn yoldaki accesse hangi kodlarla yazdırabilirim
Şimdiden Allah razı olsun.
çalışan kodlarım:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i:integer;
begin
adotable1.First;
while not adotable1.eof do
begin
adotable2.Append;
for i:=0 to Pred (adotable1.FieldCount) do
adotable2.Fields.Value := adotable1.fieldbyname(adotable1.Fields.fieldname).value;
adotable2.Post;
adotable1.Next;
end;
windows.MessageBox(form1.Handle,'Aktarma başarı ile gerçekleşti.','Bilgi',mb_ok or mb_iconinformation);
end;
end.
Aşağıdaki kod ile table1deki tabloyu table2 ye aktarıyorum.
table1 i dolu.mdbye table2yi dolacak.mdb ye bağladım.bu şekilde çalışıyor.
Ancak bilgisayarın farklı yerlerindeki dosyaları seçip tek dosyaya kopyalamak istiyorum
yani formun üstüne 10 tane edit koyup access dosyalarını seçip yollarını editlere yazdırıp sonra butona basınca
kopyalama işinin yapılmasını istiyorum.
şimdi form üzerine 11 tane edit koyacağım ,10tanesi kopyalanacak dosyaların yolu yazacak, 1 tanesi de 10dosyanın kopyalanacağı dosyanın yolu yazacak.
1.form üzerine 11editten başka hangi nesneleri koymam gerekiyor
2.farklı yerlerdeki 10 access dosyasını seçip yollarını editlere hangi kodla yazdırabilirim
3.10tane editte yolu belirtilen accessleri, 11.editte yazn yoldaki accesse hangi kodlarla yazdırabilirim
Şimdiden Allah razı olsun.
çalışan kodlarım:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i:integer;
begin
adotable1.First;
while not adotable1.eof do
begin
adotable2.Append;
for i:=0 to Pred (adotable1.FieldCount) do
adotable2.Fields.Value := adotable1.fieldbyname(adotable1.Fields.fieldname).value;
adotable2.Post;
adotable1.Next;
end;
windows.MessageBox(form1.Handle,'Aktarma başarı ile gerçekleşti.','Bilgi',mb_ok or mb_iconinformation);
end;
end.