| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Конвертация Binary в String [MSSQL]

RustiK ©   (2004-10-05 16:34:00) 

Привет всем!
есть таблица с полем 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;

---

RustiK   (2004-10-06 10:14:00) [1]

Сорри!

---

Nikolay M.   (2004-10-06 10:07:00) [2]

А искать я должен?
http://www.relib.com/forums/topic.asp?id=754418

---

RustiK   (2004-10-06 10:01:00) [3]

> > А если у меня нет SQL сервера установленного на данной
> машине?
>
> А ты делай это на сервере.


Ну нашел я как это сделать на сервере, только как вот это все запустить из моей проги?

---

Nikolay M.   (2004-10-06 09:50:00) [4]

> А если у меня нет SQL сервера установленного на данной машине?

А ты делай это на сервере.

---

RustiK   (2004-10-06 09:45:00) [5]

Вообще не существует такой функции которая бы преобразовывала byteили binaryв формат string?

---

RustiK   (2004-10-06 09:39:00) [6]

А если у меня нет SQL сервера установленного на данной машине?

---

Nikolay M.   (2004-10-05 16:43:00) [7]

Data Transformation Service-ом гоняй.

---

Наверх