[Rom4ik)]

короче,самому не получилось ничего... Все должно выглядить так: есть несколько файлов Excell,в них содержиться информация о выплате денег страховщикам (ФИО страховщика,тип страхования,дата выплаты,сумма выплаты, и т.д.)... И в общем из этих файлов должна загружаться эта информация автоматически в базу... Интерфейс проги должен быть простой,т.е. все те же поля что и в самом документе Excell,только плюс еще поле поиска допустим по идентификатору страховщика... Вот примерно так это должно выглядить... Может кто поможет,или что то похожее кто то уже делал... Заранее огромное спасибо... Если что стучите в асю-372504039!

[Black Raider]

а в чем помощь то нужна?
вариантов реализации кучка.
Вот только не уточнили База на чем.

ПС. когда мне надо было залить Ёкселевский файл просто добавлял колонкии в файл, так чтоб получился скрипт SQL который потом вставлял в аналайзер и запускал.

[Rom4ik)]

короче делать это можно на любом языке... Но лучше всего мне подсказали будет на Delphi... А я его только несколько дней начал учить... а сделать это надо срочно

[Black Raider]

База на чем?

[Rom4ik)]

та хз!!! На чем угодно....)))

[TOJluK]

Сообщение от Black Raider

ПС. когда мне надо было залить Ёкселевский файл просто добавлял колонкии в файл, так чтоб получился скрипт SQL который потом вставлял в аналайзер и запускал.

Поподробнее можно, а то я открывал экзель файл в гриде и оттуда в цикле постил в базу.

[Black Raider]

Сообщение от TOJluK

Поподробнее можно, а то я открывал экзель файл в гриде и оттуда в цикле постил в базу.

Просто "механический" способ.
добавь 1 столбец в нем пишем Insert into TableName(Field1,Field2,Field3) Values(
растягиваем до конца ексел-файла.
между колонок с данными добавляем столбец с "," и растягиваем до конца.
в последний ");"
Далее выделяем все и копируем.
открываем например блокнот, вставляем туда и заменяем табуляцию на пустую строчку.
вот и все. скрипт готов.
по крайней мере небольшие файлы делал так. заморочек меньше.

[Black Raider]

Сообщение от Rom4ik)

та хз!!! На чем угодно....)))

И в общем из этих файлов должна загружаться эта информация автоматически в базу...

MSSql,InterBase, Oracle, dbf ?

[Rom4ik)]

dbf!!!!

[Rat]

Гы. Гы. Гы. После этого Росгосстрахом больше не пользуюсь.

[Rom4ik)]

это впринципи непринципиально на чем будет база... эта прога просто для удобства моему начальнику.....

[Black Raider]

Вот пример импорт из Ёкселя в Interbase базу:
впринципе на основе примера можете сделать нужный вам.

SQLConnection1.Params.Values['DataBase']:=par.dbname;
SQLConnection1.Connected:=true;
excel := createoleobject('excel.application');
excel.workbooks.open(sedit1.text,false);
workbook:=excel.workbooks.item[1];
sheet := workbook.worksheets[1];
sheet.cells.specialcells(xlcelltypelastcell,emptyp aram).activate;
y := excel.activecell.row;
sProgressBar1.Max:=y;
smemo1.Clear;
stat.AllRec:=y-1;
smemo1.Lines.Add('-----------------------');
smemo1.Lines.Add('Импорт данных из файла: '+sedit1.FileName);
dtt:=now();
smemo1.Lines.Add('Статистика импорта :');
smemo1.Lines.Add('Всего строк');
smemo1.Lines.Add(' к импорту - '+inttostr(stat.AllRec));
smemo1.Lines.Add('');
for i:=2 to y do
begin
//Выбор данных из Ёкселя
st1:=trim(sheet.cells[i,1]);
st2:=trim(sheet.cells[i,2]);
st3:=trim(sheet.cells[i,3]);
st4:=trim(sheet.cells[i,4]);
st5:=trim(sheet.cells[i,5]);
//Вызов ХП
lk.TransactionID := 1;
lk.IsolationLevel := xilREADCOMMITTED;
if SQLConnection1.InTransaction then SQLConnection1.Commit(lk);
SQLConnection1.StartTransaction(lk);
try
ibquery1.Active:=false;
ibquery1.ParamByName('GR').Value:=copy(st1,1,50);
ibquery1.ParamByName('ART').Value:=copy(st2,1,30);
ibquery1.ParamByName('NM').Value:=copy(st3,1,50);
ibquery1.ParamByName('DL').Value:=strtofloat(copy( st4,1,30));
ibquery1.ParamByName('RT').Value:=strtofloat(copy( st5,1,30));
ibquery1.ParamByName('DT').Value:=dateof(sDateEdit 1.Date);
IBQuery1.Active:=true;
SQLConnection1.Commit(lk);
if ibquery1.FieldByName('ID').IsNull then begin
idf:= -1;
end
else idf:=ibquery1.FieldByName('ID').AsInteger;
smemo1.Lines.Add(ibquery1.fieldbyname('msg').AsStr ing);
except
on e:Exception do
begin
SQLConnection1.Rollback(lk);
idf:=-1;
end;
end;
if idf<0 then begin
memo1.Lines.add(st1+' '+st2+' '+st3+' '+st4+' '+st5);
smemo1.Lines.add('Ошибка:'+st1+' '+st2+' '+st3+' '+st4+' '+st5);
end;
if idf<0 then stat.AllIgnore:=stat.AllIgnore+1
else stat.AllInsert:=stat.AllInsert+1;
sprogressbar1.Position:=sprogressbar1.Position+1;
sProgressBar1.Repaint;
end;
sprogressbar1.Position:=0;
excel.quit;

[Rom4ik)]

ага... спасибо... если вдруг что то захочется еще предложить,буду ждать)))

[Black Raider]

Вы хотите чтоб за вас написали?

Могу только пояснить по коду если будут вопросы.
Ну и то что в ibquery sql запрос на вставку записи (т.е. Insert into)

И то что в процедуре берется начиная с 2-й строки файла т.к. в 1-ой шапка была.

[Rom4ik)]

было бы неплохо конечно если бы наисали,я сам еще просто не готов к этому,я начинаю только... а начальнику пофиг,сказал че хочеш делай....