|
#1
|
|||
|
|||
Из Word в бд
В Worde имеется структурированная таблица. Необходимо данные из нее переместить в Delphi в бд.
Пока что я нашла только перенос таблицы в StringGrid, но проблема в том, что мне необходимо будет данные откорректировать (то есть если какая-то ячейка в таблице пустая - удалить всю строку). Мне не нужен код сначала и до конца, а хотя бы примерный план действий и посредством каких функций. Буду очень признательна) |
#2
|
||||
|
||||
1. перенеси код из Word в Excel ... проще будет портировать данные
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#3
|
||||
|
||||
Ну в StringGrid можно тоже довольно успешно редактировать данные. Но там нет метода удаления строки, потому придется это дело ручками реализовать.
Первый этап - импорт данных вы сделали, осталось только эти данные подправить. Делаете в цикле по всем строкам StringGrid обход. Вот примерный код как будет выглядеть удаление строк если ячейка пуста: Код:
procedure TForm1.Button2Click(Sender: TObject); Var Row,Col,R: Integer; begin for Row := StringGrid1.RowCount - 1 downto StringGrid1.FixedRows do for Col := StringGrid1.FixedCols to StringGrid1.ColCount - 1 do if StringGrid1.Cells[Col,Row] = '' then begin for R := Row + 1 to StringGrid1.RowCount - 1 do begin StringGrid1.Rows[R-1] := StringGrid1.Rows[R]; StringGrid1.Rows[R].Clear; end; Break; end; end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
Yasha (21.05.2013)
|
#4
|
|||
|
|||
Большое спасибо.
Теперь такой вопрос - я создала пустую бд с нужными полями в MS Access, настроила ADO компоненты на подключение к бд, и теперь данные из StringGrid необходимо переместить в бд, видимо, с помощью sql-запросов. INSERT INTO bd1 ( поля-поля-поля...) VALUES (???); Вот что в скобках написать? |
#5
|
||||
|
||||
Значения писать. Ваш К.О.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение: | ||
Yasha (13.05.2013)
|
#6
|
||||
|
||||
Цитата:
Код:
INSERT INTO bd1 (поле1, поле2, поле3) VALUES (значение_для_поле1, значение_для_поле2, значение_для_поле3); Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#7
|
|||
|
|||
А массив как-то можно туда запихать? Или только заранее известные значения?
|
#8
|
||||
|
||||
можно написать некий парсер который будет разбирать массив по отпределенному шаблону и подставлять данные в запрос (не для каждой СУБД)
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|