Imprimir página | Cerrar ventana

Conectar BD a Flash

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Otros Productos Microsoft
Descripción del foro: PowerPoint, Navision, Visio, FrontPage, InfoPath etc
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=51343
Fecha de impresión: 05/Abril/2020 a las 06:32


Tema: Conectar BD a Flash
Publicado por: kinetic_brain
Asunto: Conectar BD a Flash
Fecha de publicación: 06/Octubre/2008 a las 19:05
 
Hola foro
 
Alguien ha hecho algo similar conectar una base de datos access o archivo excel a flash, lo que quiero hacer es un mapa donde muestre cierta información tomada de las bd, alguien tiene un manuel o que me indique como hacerlo, de antemano gracias.



Respuestas:
Publicado por: guarracuco
Fecha de publicación: 16/Octubre/2008 a las 03:48
Crea una referencia a ShockWave Flash. Coloca un objeto flash en formulario , con nombre flasho (para que pruebes el código que adjunto) .Tenía un ejemplo que pasaba y leía variables desde la SWF pero no consigo el cd donde la guardé.
Mira la http://www.isladirectorio.com/imagesweb_/boca.jpg - imagen  para que entiendas lo que realiza el codigo. Para mover la pelicula debes acercarla (zoom).
No hace mas nada.Confused

Private Sub arrDown_Click()
flasho.Pan 0, -10, window
End Sub
Private Sub arrleft_Click()
flasho.Pan 10, 0, window
End Sub
Private Sub arrRight_Click()
flasho.Pan -10, 0, window
End Sub
Private Sub arrUp_Click()
flasho.Pan 0, 10, window
End Sub
Private Sub Cmdmas_Click()
flasho.Zoom 50
End Sub

Private Sub Cmdmenos_Click()
flasho.SetZoomRect 50, 100, 10, 10
End Sub

Private Sub Command0_Click()
Dim i As Integer, dBs As Database, rst As Recordset
Set dBs = CurrentDb
Set rst = dBs.OpenRecordset("table1")
If rst.RecordCount > 0 Then
    rst.MoveLast: rst.MoveFirst
Do While Not rst.EOF
    flasho.SetVariable "mensaje", rst!txtColor
    flasho.SetVariable "txtdiente", rst!txtdiente
    flasho.GotoFrame 2
    flasho.Playing = True
    flasho.GotoFrame 1
    rst.MoveNext
Loop
End If
rst.Close
Set dBs = Nothing
End Sub


Private Sub Form_Load()
flasho.Movie = "D:\bases de datos\dientes.swf"
End Sub




-------------
https://tucondominioaldia.net


Publicado por: silver-bullet
Fecha de publicación: 10/Noviembre/2008 a las 13:22
Gracias http://www.mvp-access.com/foro/member_profile.asp?PF=32&FID=34 - guarracuco

Esto es para manejar BD access con flash? no entiendo mucho y donde interactua la base no lo visualizo en el codigo...
 
 


Publicado por: silver-bullet
Fecha de publicación: 10/Diciembre/2008 a las 14:04
se cierra



Imprimir página | Cerrar ventana