из экселя в БД

[kate158]

Вопрос.
Есть экзель файл. Пример -
Имя____|Данные|
Объект 1|0.5____|
Объект 2|0.3____|
Объект 3|0.75___|
Объект 4|0.12___|
Нужно добавить данные в БД таким образом сделав проверку, что, если определенный столбец называется "Данные", а столбец Имя=Объект 1, то добавить в БД 0.5.
С чего можно начать? Чего то нет мыслей. Была одна - начать с поиска значений в экселе, а что дальше не догоняю..

[quit]

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

Вопрос.
Есть экзель файл. Пример -
Имя____|Данные|
Объект 1|0.5____|
Объект 2|0.3____|
Объект 3|0.75___|
Объект 4|0.12___|
Нужно добавить данные в БД таким образом сделав проверку, что, если определенный столбец называется "Данные", а столбец Имя=Объект 1, то добавить в БД 0.5.
С чего можно начать? Чего то нет мыслей. Была одна - начать с поиска значений в экселе, а что дальше не догоняю..

Дальше, грузим нужную информацию циклом в MemData или в StringGrid...

[kate158]

интересен именно момент, когда выполняются два условия поиска..
вот код мой.

  
var
    eee_:string ; 
    FindRange:variant ;
    E : Variant;
    i: integer;
  E  := CreateOleObject('Excel.Application');
  E.DisplayAlerts  := False;
  E.WorkBooks.Open(trim(Memo1.Lines[i]), ReadOnly:=True);
   try
   FindRange:=E.Cells.Find(What:='Данные');
   eee_:= FindRange.text ;
showmessage( eee_);
except
messagebox(handle,'Искомый текст не найден!','Внимание!',0) ;
end;

но это не то, что нужно...как выцепить значение, удовлетворяющее двум условиям поиска?

как добавить значение в БД на пересечении строки и столбца? кто нить знает?столбец и строка не задаются пользователем...

[quit]

не совсем понятны ваши вопросы...
посмотрите тут и есть такая книжка Программирование документов и приложений MS Office в Delphi [В. Корняков]

[kate158]

эту книгу я знаю наизусть!я наверно плохо объясняю..смотрите 1 пост.
программа должна сначала определить в какой ячейке находится название столбца - "Данные". Затем определить,в какой строке находится значение "Объект1". И НА ИХ ПЕРЕСЕЧЕНИИ будет находится значение, которое добавляется в БД

[quit]

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

эту книгу я знаю наизусть!

тогда посмотрите статьи в delphiworld, ссылку на которую я вам давал выше или напишите более подробно в чем суть вашего вопроса

[kate158]

вот еще подробнее

[quit]

Вот пример, делал давно, исправил под вас... разбирайтесь, будут вопросы задавайте! Здесь я записываю из Экселя в СтрингГрид.

    i := 1;
    j := 2;
    row := 1;

while Excel.Sheets[index_sheet].Cells[1,i].Value <> '' do//бежим по 1ой строке
    begin
      //если 'Имя' то берем строку и ищем в ней нужные нам столбцы
      if (Excel.Sheets[index_sheet].Cells[1,i].Value = 'Имя') then
      begin
        while Excel.Sheets[index_sheet].Cells[j,i].Text <> '' do//до тех пор пока не конец
        begin//проверка не очень хорошая придумайте по оригинальнее
          if (Excel.Sheets[index_sheet].Cells[j,i].Value = 'Объект 1')or(Excel.Sheets[index_sheet].Cells[j,i].Value = 'Объект 2') then
          begin
              k := 1;
              StringGrid.RowCount := row+1;
              StringGrid.Cells[0,row] := Excel.Sheets[index_sheet].Cells[j,i].Text;//пишем заголовок
              while Excel.Sheets[index_sheet].Cells[1,k].Text<>'' do
              begin
                //ищем столбец
                if Excel.Sheets[index_sheet].Cells[1,k].Value = 'Данные' then
                  StringGrid.Cells[1,row] := Excel.Sheets[index_sheet].Cells[j,k].Text;//записываем
                inc(k);
              end;
              inc(row);
          end;
          inc(j);
        end;
        break;
      end;
      inc(i);
    end;

[kate158]

quit, спасибо за помощь. но:
1. зачем нагружать программу стринггридами, нужно будет обработать около сотни файлов, думаю, она зависнет очень надолго.
2. что есть "row+1"?
ведь у меня в таблице на месте столбца "Данные" может быть другой столбец или несколько, со значениями, ктр мне не нужны.

[quit]

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

1. зачем нагружать программу стринггридами, нужно будет обработать около сотни файлов, думаю, она зависнет очень надолго.

Это просто пример вывода значение ячейки Excel в StringGrid, так сказать, для наглядности

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

2. что есть "row+1"?
ведь у меня в таблице на месте столбца "Данные" может быть другой столбец, со значениями, ктр мне не нужны.

это увеличение количество строк при добавлении значения столбца "данные", так как если Вы не укажите для СтрингГрида значение строк заранее, до записи в него, могут возникнуть проблемы с записью в не существующую строку... объяснил коряво, но думаю суть ясна..