Slm arkadaşlar sizlerden bir isteğim olacak bilgisayar mühendisliğinde okuyorum ve delphi ile yazılım geliştiriyorum...
sizlerden isteğim delphide sql veri tabanındaki bir table'a olusturduğum bir word belgesini(belgenin içeriğini text kısmını) kaydetmek istiyorum bu konuda bilgisi olan arkadaşlardan bilgi bekliyorum teşekkürler..
arkadaşlar bana yardımcı olabılıcek yokmu???
//---------------------------------------------excel i veritabanına atma
procedure TForm2.BitBtn1Click(Sender: TObject);
var
v, sayfa, r: variant;
rw, a, hId,i:Integer;
bak:boolean;
kontrol:integer;
olcum,tarih:string;
begin
if OpenDialog1.Execute then
begin
a:=length(OpenDialog1.FileName);
hId:=StrToInt(Copy(OpenDialog1.FileName,a-5,2));
v:=createoleobject('excel.application');//exceli yarat
v.workbooks.open(OpenDialog1.FileName){add};//yeni calisma kitabini ekle
sayfa:=v.workbooks[1].worksheets[1];{Birinci calisma sayfasini sayfa degiskenine ata}
r:=v.activeworkbook.worksheets[1].usedrange;
rw:=r.rows.count; // excel kayit sayisi
Application.ProcessMessages;
Adotable1.Open;
for i:=1 to rw do
begin
ADOTable1.Append;
ADOTable1.FieldByName('id').AsInteger:= hId;
ADOTable1.FieldByName('tarih').Value:=sayfa.cells[i,1];
ADOTable1.FieldByName('saat').Value:=sayfa.cells[i,2];
ADOTable1.FieldByName('olcum_no').Value:=sayfa.cells[i,3];
ADOTable1.FieldByName('olcum_deger').Value:=sayfa.cells[i,4];
end;
end;{if}
al bakalım işine yarar umarım.banada bi projede lazım olmuştu.Acil yetiştirmem gerektiği için bi yerden alıp direk projeye ekledim.Umarım anlarsın..kolay gelsin...