Excell den Db ye veri aktarmak !!

[ozcank]

Excell de sütünlerde yazılmış ad- soyad- tarih gibi alanlar var ben bu alanları Db ye aktarmak istiyorum yardım edebilirmisiniz?

[husonet]

daha önce bu konuları konuştuk

Kolay Gelsin...

[ozcank]

özür dilerim kaçırdım o zaman peki yapılabilir mi yardım edebilirmisiniz veya o konuları nerden bulabilirim?

[husonet]

yapılabilir tabiki arama yaparsan çok detaylı açıklama ve kodlar bulabilirsin

Kolay gelsin...

[ozcank]

bulamadım arkadaşım yardım edersen sevinirim.

[selman]

selam,
viewtopic.php?t=1060&highlight=excel

[ozcank]

Arkadaşım buldum fakat şurda hata verior anlamadım yardım edermisin?

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); 
        try 
            Screen.Cursor := crHourGlass; 
            sheet := book.worksheets[1]; 
            for satir:=1 to 2500 do 
            begin 
                str := sheet.cells[satir, 1]; 
                if (str <> '') then 
                begin 
                    Update; 
                    Table1.Append; 
                    for sutun:=1 to 11 do 
                        Table1.Fields[sutun-1].AsString :=sheet.cells[satir, sutun]; 
                    Table1.Post; 
                end; 
            end; 
            Excel.quit; 
            excel:=Unassigned; 
        finally 
            Screen.Cursor := crDefault; 
        end; 
    end; 

End; 

procedure TForm1.FormShow(Sender: TObject); 
begin 
    Table1.Open; 
end; 

procedure TForm1.FormClose(Sender: TObject;  var Action: TCloseAction); 
begin 
    Table1.Close; 
end; 

şurası

Kod: Tümünü seç

procedure TForm1.FormShow(Sender: TObject); 
begin 
    Table1.Open; 
end; 

procedure TForm1.FormClose(Sender: TObject;  var Action: TCloseAction); 
begin 
    Table1.Close; 
end; 

procedure TForm1.FormShow(Sender:TObject);
burda hata veriyor ne yapabilirim buraya yanlış birşey mi ekledim?

[ozcank]

Arkadaşım buldum fakat şurda hata verior anlamadım yardım edermisin?
Kod:

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);
try
Screen.Cursor := crHourGlass;
sheet := book.worksheets[1];
for satir:=1 to 2500 do
begin
str := sheet.cells[satir, 1];
if (str <> '') then
begin
Update;
Table1.Append;
for sutun:=1 to 11 do
Table1.Fields[sutun-1].AsString :=sheet.cells[satir, sutun];
Table1.Post;
end;
end;
Excel.quit;
excel:=Unassigned;
finally
Screen.Cursor := crDefault;
end;
end;

End;

procedure TForm1.FormShow(Sender: TObject);
begin
Table1.Open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.Close;
end;



şurası


procedure TForm1.FormShow(Sender: TObject);
begin
Table1.Open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.Close;
end;




procedure TForm1.FormShow(Sender:TObject);
burda hata veriyor ne yapabilirim buraya yanlış birşey mi ekledim?

[selman]

formun onshow olayında table1.open demekle hata vermemmesi lazım. Hata belkide başka yerden kaynaklanıyor olabilir.Mesela
Uses kısmına , ComObj bunu eklediniz mi..Kolay gelsin.

[ozcank]

Form1 in OnShow kısmına mı yazmam gerekiyor bu alanı?

Kod: Tümünü seç

procedure TForm1.FormShow(Sender: TObject); 
begin 
Table1.Open; 
end; 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
Table1.Close; 
end; 

[selman]

farketmez .formun onshow olayıda olur başka bir eventsede.

[Uğur1982]

Tahminen kopyala yapıştır yaptığın için çalışmıyor..

Kod: Tümünü seç

procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);

Bu procedureler type kısmında olması lazım,yoksa eklemen lazım..

[undefined]

Veritabanı ne?
MS Sql server'sa direk sql'le alabilirsin.

[ozcank]

Paradox 7 1 *.Db olarak kullanıyorum başka bir kolay yolu varmı?

[aLonE CoDeR]

Selamlar.
Formun OnShow yordamına inspectordan çift tıklayıp tekrar derlemeyi dene.

Kolay gele..