Kako da exportujem podatke iz tabele u excel-u u postojecu tabelu na sql serveru. Problem treba da resim kroz Delphi program.
Hvala
Hvala
Potpis
NR
Export podataka iz excela na SQL server u delphij-u
Zaključano
Zakačeno
Čitanje EXCEL tabele možeš postići putem ADO-a i recimo TADOQuery komponente. Potrebno je da
ConnectionString bude otprilike ovako /naravno, putanju treba kreirati dinamički/
SQL upit (prvi slog ce se smatrati headerom):
U pojedinim slučajevima znak $ treba da bude ispred ($Sheet1)
SQL upit (dijapazon):
SQL upit (region): <--- OVO MI NIKAD NIJE PRORADILO U C++ Builderu, IAKO SAM VIDEO PAR PRIMERA ZA DELPHI
Dalje, upis ide kako si predvideo. Opet moze preko ADO-a.
ConnectionString bude otprilike ovako /naravno, putanju treba kreirati dinamički/
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\Test.xls;Extended properties=Excel 8.0
SQL upit (prvi slog ce se smatrati headerom):
Code:
select * from [Sheet1$]
select * from [Sheet1$]
U pojedinim slučajevima znak $ treba da bude ispred ($Sheet1)
SQL upit (dijapazon):
Code:
select * from [DiapasonName]
select * from [DiapasonName]
SQL upit (region): <--- OVO MI NIKAD NIJE PRORADILO U C++ Builderu, IAKO SAM VIDEO PAR PRIMERA ZA DELPHI
Code:
select * from [Sheet1$B5:C10]
select * from [Sheet1$B5:C10]
Dalje, upis ide kako si predvideo. Opet moze preko ADO-a.
Recimo primer sa TADOQuery. Imaš TADOConnection koju linkuješ na bazu, TADOQuery, sve to pospajaš. Potom ako želiš .xls fajl importovati u bazu, možeš ovako, ili slično:
Predpostavljam da ima različitih rešenja, ali probaj ovo za početak.
Code:
...
var sCopy : string;
begin
sCopy := 'SELECT * INTO Neka_Tabela FROM ["Excel 8.0;Database=' + Edit1.Text + '"].[Naziv_Sheet]';
//Edit1 - putanja ka fajlu
AdoQuery.SQL.Text:=sCopy;
AdoQuery.ExecSQL;
...
...
var sCopy : string;
begin
sCopy := 'SELECT * INTO Neka_Tabela FROM ["Excel 8.0;Database=' + Edit1.Text + '"].[Naziv_Sheet]';
//Edit1 - putanja ka fajlu
AdoQuery.SQL.Text:=sCopy;
AdoQuery.ExecSQL;
...
Predpostavljam da ima različitih rešenja, ali probaj ovo za početak.
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
Brza i efikasna resenja. Hvala
Potpis
NR