ActiveX - Gráficos en un mdb

 
Vista:

Gráficos en un mdb

Publicado por Hidden37 (1 intervención) el 06/08/2004 09:09:49
Tengo las imágenes metidas en un campo OLE, es decir, stream o binario de una DB mdb. Necesito sacarlas del mdb y mostrarlas en una página htm o hta, mediante VBScript. NO ASP, PHP etc. Ya que debe ser independiente de cualquier webserver.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro Andrade

Gráficos en un mdb

Publicado por Alejandro Andrade (213 intervenciones) el 23/03/2023 16:27:18
Para mostrar las imágenes almacenadas en un campo OLE de una base de datos mdb en una página HTML o HTA, se puede utilizar la tecnología ActiveX. A continuación, te proporciono un ejemplo de cómo hacerlo con VBScript:

1. Crea un nuevo archivo HTA y guarda el siguiente código en él:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
<html>
<head>
<title>Mostrar Imagen</title>
<script language="VBScript">
Sub MostrarImagen()
    Set cn = CreateObject("ADODB.Connection")
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ruta\a\la\base\de\datos.mdb;"
    cn.Open
    Set rs = cn.Execute("SELECT imagen FROM tabla WHERE id = 1") 'Cambiar "tabla" y "id" por los nombres correctos
    If Not rs.EOF Then
        Set stream = CreateObject("ADODB.Stream")
        stream.Type = 1 'adTypeBinary
        stream.Open
        stream.Write rs("imagen").Value
        stream.SaveToFile "C:\ruta\a\la\imagen.jpg", 2 'adSaveCreateOverWrite
        stream.Close
        Set stream = Nothing
        Set img = Document.getElementById("imagen")
        img.src = "C:\ruta\a\la\imagen.jpg"
    End If
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub
</script>
</head>
<body>
<input type="button" value="Mostrar Imagen" onclick="MostrarImagen()">
<br><img id="imagen">
</body>
</html>

2. En el código anterior, reemplaza "C:\ruta\a\la\base\de\datos.mdb", "tabla", "id" y "C:\ruta\a\la\imagen.jpg" por las rutas y nombres correctos de la base de datos mdb, la tabla que contiene las imágenes, el campo de identificación y el archivo donde deseas guardar temporalmente la imagen, respectivamente.

3. Ejecuta el archivo HTA y haz clic en el botón "Mostrar Imagen". Debería aparecer la imagen en la página.

Nota: El código anterior utiliza la tecnología ActiveX para acceder a la base de datos y al archivo. Ten en cuenta que la ejecución de ActiveX puede estar restringida en algunos navegadores y sistemas operativos. Además, el código anterior puede presentar problemas de seguridad si no se maneja adecuadamente la validación de los datos provenientes de la base de datos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar