Главная страница
    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.037 c
1-1098715274
aap
2004-10-25 18:41
2004.11.07
Доработать PageControl


14-1098369580
programmer
2004-10-21 18:39
2004.11.07
Документация исходника


3-1097063337
Denis
2004-10-06 15:48
2004.11.07
Помогите написать запрос


9-1088328168
Uns
2004-06-27 13:22
2004.11.07
Mipmapping в OpenGL


1-1098689033
half_litre
2004-10-25 11:23
2004.11.07
Не срабатывает wm_DrawItem и wm_MeasureItem





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский