Платные хостинги     Раскрутка сайта     Книги по программированию

Експорт даных с Excel в Paradox, ^^^^^^^^^^^^^^^^^^^^^^

- Привет всем.Можно ли реализовать експорт даных с таблицы в excel-е в таблицу Paradox? Если можно то как?Если можно то киньте примерчик...Спасибо.

- да = подсоеденится любым способом к кекселю и гнать цыкл вставки.(это трудоемко но надежно)или не надежно .Переделать екселевкий файл в разделенный запятыми .BDE поодерживает этот тип файлов . ( или в ало есть метод сохранения в другом формате )

- Короче, все довольно просто:Код uses ActiveX, ComObj, Registry...function ActivateOLEObject(AppProgId:string):OleVariant;varhRes:HRESULT;Unknown:IUnknown;Reg:TRegistry;beginResult:=UnAssigned;try Reg:=TRegistry.Create; with Reg do begin   RootKey:=HKEY_CLASSES_ROOT;   if not KeyExists(AppProgId) then     Exit; end;finally FreeAndNil(Reg);end;hRes:=GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);if hRes=MK_E_UNAVAILABLE then Result:=CreateOleObject(AppProgID)else Result:=GetActiveOleObject(AppProgID);end;procedure TForm1.Button1Click(Sender: TObject);varExcel, WorkBook:OleVariant;i, j:integer;beginExcel:=ActivateOLEObject('Excel.Application');WorkBook:=Excel.WorkBooks.Open(ExtractFIlePath(ParamStr(0))+'Книга1.xls');for i:=1 to 3 do  for j:=1 to 3 do    ShowMessage(WorkBook.WorkSheets[1].Cells[i,j])    //Тут можешь запихивать данные куда угодно    //Добраться до количества строк можно, например, так WorkBook.WorkSheets[1].Rows.Countend;highlightSyntax('delphi0NDNmM','delphi'); Это сообщение отредактировал <Spawn> - 18.10.2003, 06:23

- <Spawn> вот только типы данных надо контролировать дополнительно...

- а можно поподробней?<Spawn> Спасибо.

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

- понял. спасибо

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD