VPF::BLOB поле - Форум программистов

pavelv

Дата 31.8.2006, 09:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 245
Регистрация: 5.2.2006

Репутация: нет
Всего: нет

Здравствуйте.
Пытался скопировать данные из одного BLOB поля Table1 в другое BLOB Table2. Если BLOB поле содержит только текст, то всё нормально(под FireBird 1.5 копируется обычным AsString), но изображения таким образом конечно не копирует smile

. Может есть какой способ скопировать все данные из одного BLOB в другое?
Если установлен InterBase 6.0 то текст тоже не копируется, вылетает:
Overflow occurred during data type conversion.
conversion error from string "BLOB"

Тьма

Дата 31.8.2006, 09:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

Репутация: нет
Всего: 4

попробуй использовать промежуточный тип TBlob

ЗЫ ты не тот раздел выбрал, надо было про базы данных

--------------------

Vir magni ingenii

Yanis

Дата 31.8.2006, 10:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111

А AssignValue не пробовал?

--------------------

*щёлк*

pavelv

Дата 31.8.2006, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 245
Регистрация: 5.2.2006

Репутация: нет
Всего: нет

Цитата

попробуй использовать промежуточный тип TBlob

Поподробнее можно? Тут дело вот в чем, я перебрасываю данные из одной БД в другую, с помощью sql "insert into Table1 value *". Как туда TBlob записать? В принципе думаю использовать Variant или TBlob нет разницы .

Не AssignValue не пробовал, думаю не спасет. Ниже привожу код в инете нашел:

Код


  Public Shared Sub AddEmployee(lastName As String, firstName As String, title As String, hireDate As DateTime, _
                                reportsTo As Integer, photoFilePath As String)

    Dim photo() as Byte = GetPhoto(photoFilePath)

    Dim nwindConn As SqlConnection = New SqlConnection("Data Source=localhost;Integrated Security=SSPI;Initial Catalog=Northwind;")

    Dim addEmp As SqlCommand = New SqlCommand("INSERT INTO Employees (LastName, FirstName, Title, HireDate, ReportsTo, Photo) " & _
                                              "Values(@LastName, @FirstName, @Title, @HireDate, @ReportsTo, @Photo)", nwindConn) 

    addEmp.Parameters.Add("@LastName",  SqlDbType.NVarChar, 20).Value = lastName
    addEmp.Parameters.Add("@FirstName", SqlDbType.NVarChar, 10).Value = firstName
    addEmp.Parameters.Add("@Title",     SqlDbType.NVarChar, 30).Value = title
    addEmp.Parameters.Add("@HireDate",  SqlDbType.DateTime).Value     = hireDate
    addEmp.Parameters.Add("@ReportsTo", SqlDbType.Int).Value          = reportsTo

    addEmp.Parameters.Add("@Photo",     SqlDbType.Image, photo.Length).Value = photo

    nwindConn.Open()

    addEmp.ExecuteNonQuery()

    nwindConn.Close()
  End Sub

Только одно не ясно. В делфи в качестве параметров можно сделать вот такую штуку:
Query1.PARAMS[0].AsBlob...и в конце идёт приписка : String. Если даже он подобным образом запишет информацию, то видимо это будет только текст. Сейчас попробую сделать так и просто передать value в качестве параметра.

Vit

Дата 31.8.2006, 18:52 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

А обычный SQL запрос с Insert/Update в одну таблицу из другой разве не работает?

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »