** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Otros Productos Microsoft
  Mensajes nuevos Mensajes nuevos RSS - Conectar BD a Flash
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoConectar BD a Flash

 Responder Responder
Autor
Mensaje
kinetic_brain Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 23/Agosto/2007
Estado: Sin conexión
Puntos: 258
Enlace directo a este mensaje Tema: Conectar BD a Flash
    Enviado: 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.
Arriba
guarracuco Ver desplegable
Moderador
Moderador
Avatar

Unido: 24/Abril/2004
Localización: EEUU
Estado: Sin conexión
Puntos: 3123
Enlace directo a este mensaje Enviado: 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 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
Arriba
silver-bullet Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Octubre/2008
Estado: Sin conexión
Puntos: 547
Enlace directo a este mensaje Enviado: 10/Noviembre/2008 a las 13:22
Gracias guarracuco

Esto es para manejar BD access con flash? no entiendo mucho y donde interactua la base no lo visualizo en el codigo...
 
 
Arriba
silver-bullet Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Octubre/2008
Estado: Sin conexión
Puntos: 547
Enlace directo a este mensaje Enviado: 10/Diciembre/2008 a las 14:04
se cierra
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable