Imagenes(BLOB) Firebird con VB6

[pzhero]

Baje es instale el oledb, y todo ok. hice mis promeras pruebas y pude insertar una imagen, pero al despues ya no me inserta nada, me manda el siguente error

Execute:
SQLCODE=-303:
Dynamic SQL Error
SQL error code = -303
feature is not supported
BLOB and array data types are not supported for move operation
IBCODE=isc_dsql_error

puedodescargar la unica imagen que cargue, pero no puedo subir más imagenes, qeu estará pasando?? esta es mi linea de codigo que genera el error lo saque de la documentacion del IBProvider

StrM.LoadFromFile "c:\monofasico1.gif"
Dim ins_cmd As New ADODB.Command
ins_cmd.ActiveConnection = Cnn

ins_cmd.CommandText = "insert into fotos" & Chr(13) & _
"(idfoto,foto)" & Chr(13) & _
"values(?,?)"
Debug.Print ins_cmd.CommandText

ins_cmd.Parameters.Append ins_cmd.CreateParameter("idfoto", adBSTR, , , "123")
ins_cmd.Parameters.Append ins_cmd.CreateParameter("foto", adBSTR, , , StrM.Read)
ins_cmd.Execute

la cadena de conexión es la siguiente



server = "Provider=LCPI.IBProvider;data source=localhost:l:\firebird\PRUBABLOBLS.FDB;ctype=win1251;" & _
"user id=sysdba;password=masterkey"

Set Cnn = New ADODB.Connection
Cnn.ConnectionString = server
Cnn.CursorLocation = adUseClient
Cnn.Open
Cnn.Properties("Session AutoCommit") = True 'enable auto commit
Cnn.Properties("Autocommit Isolation Levels") = 4096 'read commited=0x1000


gracias por su ayuda

[guillotmarc]

Hola.

No sé si estos Foros són los mas adecuados para esta consulta. Por mi parte hace bastantes años que no trabajo con Visual Basic, así que no te puedo ayudar mucho.

Quizá obtengas mejor resultado, si envias este código al creador del driver mailto:ibprovider@ibprovider.com

También puedes probar con algún Foro más específico de Visual Basic.

NOTA: Si yo hubiese de hacer esto en Visual Basic, en lugar de utilizar un Comando creado en tiempo de ejecución, probaria añadiendo un DataEnvironment al proyecto, y añadiendole la conexión y el Query. De esta forma, no tienes que crear nada en tiempo de ejecución (comando, parámetros, ...), solo pasar valores a los parámetros, y ejecutar el query. (solo lo digo para simplificar el código, aunque no tengo ni idea si puede ayudar en este problema).

Saludos.

[Gydba]

Buenos días,

En primer lugar no comprendo porque querés realizar un insert mediante un comando, lo más natural sería utilizar un recordset o en su defecto la función execute del objeto connection, aunque el comentario de guillotmarc también es interesante.

En segundo lugar ADO no es completamente compatible con muchas de las BD del mercado (Aun hoy por hoy sigo luchando con los parámetros de las SP de Oracle), de hecho ultimamente creo que M$ es unicamente compatible con M$

Y en tercer lugar nada, solo quería completar este post.

PD: Opino igual que guillotmarc de que deberías visitar foros mas específicos de VB.

[pzhero]

ok. gracias por su ayuda chicos

hasta luego