Hola,
necesito recuperar una imagen que tengo guardada en SQL Server 2005, en un campo de tipo varbinary(MAX). Para ello he creado un procedimiento almacenado con un campo de entrar, y el campo de salida correspondiente a la imagen.
El caso es que no tengo claro cómo definirlo en el programa de Visual Basic para poder recogerlo correctamente. No sé por ejemplo la longitud que ponerle al parámetro ni el tipo.
De momento el código que tengo es:
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim prm, prm2 As ADODB.Parameter
Dim rst As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "DSN=SqlFirmas", "USER", "XXXX"
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cn
' Set the criteria
strSQL = "SPDC8I02"
cmd.CommandText = strSQL
cmd.CommandType = adCmdStoredProc
cmd.CommandTimeout = 15
' Define the stored procedure's input parameter
Set prm = New ADODB.Parameter
prm.Type = adChar
prm.Size = 8
prm.Direction = adParamInput
prm.Value = "AA10"
Set prm2 = New ADODB.Parameter
prm2.Type = adVarBinary
prm2.Size = 80000
prm2.Direction = adParamOutput
cmd.Parameters.Append prm
cmd.Parameters.Append prm2
' Create a recordset by executing the command.
Set rst = cmd.Execute()
End Sub
el cual no me está devolviendo nada.
