urgente: mostrar imagen de oracle en una forma visual basic 6.00

mayka
28 de Diciembre del 2004
Hola,

Necesito mostrar una imagen almacenada en una tabla de oracle desde un formulario visual basic 6.
estoy conectandome a la base de datos oracle a traves de un odbc,. y puedo consultar los datos perfectamente, pero necesito tambien mostrar la foto de la persona, y no se como hacer.

alguien puede ayudarme?
gracias
mayka

Marck-x
28 de Diciembre del 2004
Porfa necesito informacion detallada de como utilizar oracle como una base de datos multimedia, es decir, almacenar en tablas de oracle los archivos de medios ayudeme porque de eso depende mi carrera.

Angel_Jara
28 de Diciembre del 2004
hola me llamo ngel quisiera porfavor que me puedas ayudar con la conexion para insertar, actualizar y selecionar datos desde java script a una base de datos de oracle 9i
te agradesco desde ya
gracias
atentamente:
Angel_jara

maverick2kevolution
28 de Diciembre del 2004
Hola Mayka:

No tengo tiempo para acortar lo que voy a poner, pero te sirve el Anexo, ojala que lo entiendas, mi msn es el mismo que mi correo por si acaso.

Nota: esto sirve para fotos, videos, etc, cualquier tipo de archivos. Use una conexion ADO.

1.- Crear tablespace para almacenar archivos.
Ej:
create tablespace Multimedia
datafile 'd:oracleora92oraex9iMultimedia.dbf' size 100 M
autoextend on;

2.- Crear usuario con sus correspondientes tablas (Fotos, Videos y Mp3)
Ej:
create user Multimedia identified by Multimedia
default tablespace Multimedia
quota 100 M on Multimedia;
grant connect, resource to Multimedia;

Create Table Multimedia.Fotos
(
CodigoFoto Integer,
Descripcion Varchar2(30),
Foto Blob,
Constraint Pk_CodigoFoto Primary Key(CodigoFoto)
);

3.- Insertar datos en las tablas (2 archivos por tabla), utilizando PL/SQL Developer.
(Edit Data)


4.- Crear formas en Visual Basic para ¿?? los archivos binarios de las tablas, utilizar plantilla base. formaMultimedia.rar











Anexo: Script Base Visual Basic para ¿?? Archivos Binarios en Base de Datos

'Utilizado para archivo
Dim Chunk() As Byte

'Utilizado para guardar tamaño archivo
Dim TamañoTotal As Long

‘Crea dos variables del tipo RecordSet
Set rsTamaño = New ADODB.Recordset
Set rsRecordSet = New ADODB.Recordset

‘Activa la conexión de acuerdo a la variable global cnConexion
rsTamaño.ActiveConnection = cnConexion

'Select que devuelve el tamaño en bytes del archivo
SelectSql = "Select length(Foto) From multimedia.fotos "
SelectSql = SelectSql & "where Descripcion='" & cboFotos.Text & "';"
rsTamaño.Open (SelectSql)

'Tamaño total archivo mas 1000 (bytes )
TamañoTotal = rsTamaño.Fields(0) + 1000

‘Activa la conexión de acuerdo a la variable global cnConexion
rsRecordSet.ActiveConnection = cnConexion

'Devuelve el archivo
SelectSql = "Select Foto From multimedia.fotos "
SelectSql = SelectSql & "where Descripcion='" & cboFotos.Text & "';"
rsRecordSet.Open (SelectSql)


'Crea o abre archivo pictemp en canal 1
Open "c:TBDpictemp" For Binary As #1

'Guarda el archivo en un campo byte
Chunk() = rsRecordSet.Fields(0).GetChunk(TamañoTotal)

'Pone contenido en archivo chuck() en archivo pictemp por medio del canal 1
Put #1, , Chunk()

'Se carga la imagen en el form
imgFoto.Picture = LoadPicture("C:TBDpictemp")
Close #1 'cierra el canal