Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Опять blob поле, опять проблема / 8 сообщений из 8, страница 1 из 1
04.09.2003, 18:08
    #32256297
Dmitry_1
Dmitry_1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять blob поле, опять проблема
Что-то делаю не так, но что и где?

необходимо сохранить значение из поля TMemo в базу данных (Access2000, тип MEMO). В результате напрочь изменяется кодировка сохраняемых данных



Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
var
    blobstream_Adress:TMemoryStream;
begin
    ADOQuery_data_write.Prepared;
    blobstream_Adress:=TMemoryStream.Create;
    ADOQuery_data_write.SQL.Clear;
    ADOQuery_data_write.sql.Text:='UPDATE tblDriver SET Adress =:blobAdress    WHERE tblDriver.ID_client=' + IntToStr(intStatus_open);
     me_Adress.Lines.SaveToStream(blobstream_Adress);
     ADOQuery_data_write.Parameters.ParamByName('BlobAdress').DataType:= ftBLOB;
     ADOQuery_data_write.Parameters.ParamByName('BlobAdress').Direction:= pdInput;
     ADOQuery_data_write.Parameters.ParamByName('BlobAdress').LoadFromFile(DirectoryEdit1.Text,ftGraphic);
     ADOQuery_data_write.Parameters.ParamByName('BlobAdress').LoadFromStream(blobstream_Adress,ftBlob);

      try
           ADOQuery_data_write.ExecSql;
      except
            exit;
      end;

 blobstream_Adress.Free;
 Blobstream_Adress:=nil;

end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.09.2003, 18:08
    #32256298
Dmitry_1
Dmitry_1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять blob поле, опять проблема
Что-то делаю не так, но что и где?

необходимо сохранить значение из поля TMemo в базу данных (Access2000, тип MEMO). В результате напрочь изменяется кодировка сохраняемых данных



Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
var
    blobstream_Adress:TMemoryStream;
begin
    ADOQuery_data_write.Prepared;
    blobstream_Adress:=TMemoryStream.Create;
    ADOQuery_data_write.SQL.Clear;
    ADOQuery_data_write.sql.Text:='UPDATE tblDriver SET Adress =:blobAdress    WHERE tblDriver.ID_client=' + IntToStr(intStatus_open);
     me_Adress.Lines.SaveToStream(blobstream_Adress);
     ADOQuery_data_write.Parameters.ParamByName('BlobAdress').DataType:= ftBLOB;
     ADOQuery_data_write.Parameters.ParamByName('BlobAdress').Direction:= pdInput;
     ADOQuery_data_write.Parameters.ParamByName('BlobAdress').LoadFromFile(DirectoryEdit1.Text,ftGraphic);
     ADOQuery_data_write.Parameters.ParamByName('BlobAdress').LoadFromStream(blobstream_Adress,ftBlob);

      try
           ADOQuery_data_write.ExecSql;
      except
            exit;
      end;

 blobstream_Adress.Free;
 Blobstream_Adress:=nil;

end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.09.2003, 18:08
    #32256299
Dmitry_1
Dmitry_1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять blob поле, опять проблема
Что-то делаю не так, но что и где?

необходимо сохранить значение из поля TMemo в базу данных (Access2000, тип MEMO). В результате напрочь изменяется кодировка сохраняемых данных



Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
var
    blobstream_Adress:TMemoryStream;
begin
    ADOQuery_data_write.Prepared;
    blobstream_Adress:=TMemoryStream.Create;
    ADOQuery_data_write.SQL.Clear;
    ADOQuery_data_write.sql.Text:='UPDATE tblDriver SET Adress =:blobAdress    WHERE tblDriver.ID_client=' + IntToStr(intStatus_open);
     me_Adress.Lines.SaveToStream(blobstream_Adress);
     ADOQuery_data_write.Parameters.ParamByName('BlobAdress').DataType:= ftBLOB;
     ADOQuery_data_write.Parameters.ParamByName('BlobAdress').Direction:= pdInput;
     ADOQuery_data_write.Parameters.ParamByName('BlobAdress').LoadFromFile(DirectoryEdit1.Text,ftGraphic);
     ADOQuery_data_write.Parameters.ParamByName('BlobAdress').LoadFromStream(blobstream_Adress,ftBlob);

      try
           ADOQuery_data_write.ExecSql;
      except
            exit;
      end;

 blobstream_Adress.Free;
 Blobstream_Adress:=nil;

end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.09.2003, 18:16
    #32256305
Lepsik
Lepsik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять blob поле, опять проблема
зачем тебе текст в блобах хранить ? ну и клади в text поле.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.09.2003, 18:24
    #32256312
Dmitry_1
Dmitry_1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять blob поле, опять проблема
А если его много?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.09.2003, 18:28
    #32256319
Dmitry_1
Dmitry_1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять blob поле, опять проблема
Спасибо всем, но методом интуиции (информации таки нигде не нашел) проблему решил:

Код: plaintext
1.
2.
3.
4.
5.
6.
...
ADOQuery_data_write.Parameters.ParamByName('BlobAdress').DataType:= ftMEMO;
...
ADOQuery_data_write.Parameters.ParamByName('BlobAdress').LoadFromStream(blobstream_Adress,ftMEMO); < ---------изменить тип поля
 
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.09.2003, 19:29
    #32256381
Lepsik
Lepsik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять blob поле, опять проблема
--А если его много?
сколько много ?

text как и блоб для MS SQL2000 может хранить до 2 Гб.

и в случае с text просто field->AsString = "твой текст 2Гб";
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.09.2003, 19:31
    #32256384
Lepsik
Lepsik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять blob поле, опять проблема
пардон был не прав
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Опять blob поле, опять проблема / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]