Текущий архив: 2004.11.07;
Скачать: CL | DM;
Вниз
Конвертация Binary в String Найти похожие ветки
← →
RustiK (2004-10-05 16:34) [0]Привет всем!
есть таблица с полем MDN формата binary. Так вот открыл я сервер и зделал экспорт данных в экселевский файл и все что у меня в бинари превратилось в нормальные понятные цифры. Теперь мне понадлобилось написать прогу которая сама бы экспортировало все это в эксель.
Проблема заключается в том что когда я записываю в ячейку значения поля MDN оно у меня только одну цифру показывает или какойнить значок. Как мне это исправить.
Вот код который я использую:procedure TForm1.Button3Click(Sender: TObject);
var
xlap,xl:variant;
r,c:integer;
begin
if SaveDialog1.Execute then
begin
r:=1;
c:=1;
ADODataSet1.First;
XLap:= CreateOLEObject("Excel.Application");
xlap.workbooks.add;
XLap.visible := false;
xl:=xlap.Workbooks[1].Sheets[1];
while ADODataSet1.Eof=false do
begin
xl.Cells[c,r].Value:=ADODataSet1.Fields[0].AsInteger;
xl.Cells[c,r+1].Value:=ADODataSet1.Fields[1].AsString;
xl.Cells[c,r+2].Value:=ADODataSet1.Fields[2].AsString ;
xl.Cells[c,r+3].Value:=ADODataSet1.Fields[3].AsString;
xl.Cells[c,r+4].Value:=ADODataSet1.Fields[4].Asstring;
c:=c+1;
ADODataSet1.Next;
end;
xlap.ActiveWorkbook.SaveAs(SaveDialog1.FileName);
xlap.quit;
end;
end;
← →
Nikolay M. © (2004-10-05 16:43) [1]Data Transformation Service-ом гоняй.
← →
RustiK (2004-10-06 09:39) [2]А если у меня нет SQL сервера установленного на данной машине?
← →
RustiK (2004-10-06 09:45) [3]Вообще не существует такой функции которая бы преобразовывала byte или binary в формат string?
← →
Nikolay M. © (2004-10-06 09:50) [4]
> А если у меня нет SQL сервера установленного на данной машине?
А ты делай это на сервере.
← →
RustiK (2004-10-06 10:01) [5]
> > А если у меня нет SQL сервера установленного на данной
> машине?
>
> А ты делай это на сервере.
Ну нашел я как это сделать на сервере, только как вот это все запустить из моей проги?
← →
Nikolay M. © (2004-10-06 10:07) [6]А искать я должен?
http://www.relib.com/forums/topic.asp?id=754418
← →
RustiK (2004-10-06 10:14) [7]Сорри!
Страницы: 1 вся ветка
Текущий архив: 2004.11.07;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.042 c
