Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Object command, image vb / 3 сообщений из 3, страница 1 из 1
07.01.2004, 07:01
    #32369886
zac
zac
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Object command, image vb
Госпоада подскажите можно в vb через ado вставить в поле image файл.
Recordsetом я знаю можно и все проходит но вот объектом команд и хранимую процеду не получается пишет что не поддерживается тип параметра.
Вот пример есть таблица на sql и три поля int, char, image, мне нужно положить
имя файла и сам файл. Делаю я это так. На клиенте:

Private Sub Command4_Click()
Dim cm As New Command
Dim fl As file, vF As Variant, stm As New Stream
Dim str As String, i As Long
If Ffso.FileExists("C:\mail_in\rst.rar") = True Then
Set fl = Ffso.GetFile("C:\mail_in\rst.rar")
str = fl.Name
End If
With stm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.LoadFromFile ("c:\mail_in\" & str)
.Position = 0
i = .Size
vF = .Read(.Size)
.Close
End With
With cm
.ActiveConnection = cn
.CommandType = adCmdStoredProc
.CommandText = "sam"
.Parameters(1).Type = adChar
.Parameters(1).Size = Len(str)
.Parameters(1).Direction = adParamInput
.Parameters(1).Value = str
.Parameters(2).Type = adVariant
.Parameters(2).Direction = adParamInput
.Parameters(2).Size = i
.Parameters(2).Value = vF
.Execute

End With



End Sub

вот хранимая процедура

CREATE PROCEDURE [sam]
@fl char(100),@im image

AS

insert into samp values(@fl,@im )
GO
...
Рейтинг: 0 / 0
07.01.2004, 16:02
    #32369983
Strannik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Object command, image vb
А почему тип второго параметра adVariant ? И кстати не видно кода, где эти параметры добавляются в коллекцию Parameters. Сделай .Parameters.Refresh
и ADO само заполнит тип. По идее он должен быть adLongVarChar.
...
Рейтинг: 0 / 0
09.01.2004, 15:37
    #32371691
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Object command, image vb
Индексы в коллекциях ADO начинаются с нуля(0)...
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Object command, image vb / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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