Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];

Вниз

Конвертация 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.041 c
14-1098432749
Igorek
2004-10-22 12:12
2004.11.07
Типовая КИС


1-1098446830
Алексей Петухов
2004-10-22 16:07
2004.11.07
Clipboard


14-1098080502
Prohodil Mimo
2004-10-18 10:21
2004.11.07
Цифровой фотоаппарат Canon Powershot A75. Что вы о нём думаете?


8-1091926499
Andry
2004-08-08 04:54
2004.11.07
Свет в GLScene


3-1097040092
KIR
2004-10-06 09:21
2004.11.07
На каком порте висит Intrbase





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский