Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Como Enviar Un Valor De Un Formulario A Otro(para Que Me Imprima De La Base...
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Como Enviar Un Valor De Un Formulario A Otro(para Que Me Imprima De La Base De Datos) 
 
Hola a todos bueno tengo una duda que no se como hacerlo
tengo 2 formulairos  el primero es para ingresar datos en mi caso es un campo clave de la base de datos y quisiera que el formulario primero me redireccione al otro formualrio moestrandome los resulados solicitados en la bse de datos
bueno lo mas facil es redirrecionar de un formualrio a otro , pero como solicito la informacion del formulario y me lo imprima en otro

GRacias anticipadas a todos
 



 
metalgearxd - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Enviar Un Valor De Un Formulario A Otro(para Que Me Imprima De La Base De Datos) 
 
Hola que tal  antes que nada un saludo.

Si los datos que introdujiste en el Formulario-A ya se salvaron en la base de datos lo que tienes que hacer es construir una consulta en el otro formulario a la hora de que cargue.

Lo esencial seria tener una variable global en un modulo aparte para que te almacene el dato con el que va generar la consulta. Por ejemplo creas un modulo con el nombrel modulo misvariables.module o como quieras llamarlo
Public $ClaveConsulta as String

Luego en Formulario-A el dato clave con el que se va hacer la consulta es ( Clave Servicios )
cuando llegues a la rutina de grabar los datos en la base de datos...
PRIVATE SUB Graba_click()
  Dim $conSulta As String
  Dim $tAblareS As Result
  $conSulta = "INSERT INTO servicios(fech_serv, hora_serv, capt_serv, clav_serv, serv_serv, cost_serv, perm_serv, peni_serv) VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & ModulConexion.$noMbtabL & "." & ModulConexion.$pasTablA & "','" & ModulConexion.$nivtAblA & "')"
  Try $tAblareS = ModulConexion.$cOneX.Exec($conSulta)
  If Error Then
    ModulMensajes.$desCerroR = Error.Text
    ModulMensajes.msGerrorMysql
  Else
    znoKaptuRa
    cArgaTablA
    misvariables.$ClaveConsulta = Textbox4.Text
    ModulMensajes.msGdatGrabAdoS
    ToolButton1.SetFocus
'si todo esta bien llamamos a nuestro otro formulario.
Formulario-B.show
'aqui podemos cerrar o dejar inactivo el Formulario-A como queramos.
  Endif  
END SUB
 

cuando cargue nuestro otro formulario estará programado para hacer una consulta con el valor que tiene guardada la variable...
Public Sub Formulario_B_Open()
zbusKvaLor()
End Sub
'Creas un procedimiento aparte para que tengas un mejor control en los eventos.
Private Procedure zbusKvaLor()
  Dim $conSulta As String
  Dim $tAblareS As Result
  $conSulta = "SELECT clav_serv FROM servicios WHERE clav_serv='" & misvariables.$ClaveConsulta  & "'"
  Try $tAblareS = ModulConexion.$cOneX.Exec($conSulta)
  If Error Then
    ModulMensajes.$desCerroR = Error.Text
    ModulMensajes.msGerrorMysql
  Else
    If $tAblareS.Available Then
      Textbox1.Text = $tAblareS!clav_serv
      Textbox2.Text = $tAblareS!serv_serv
      Textbox3.Text = $tAblareS!cost_serv
'y asi te sigues si tienes mas datos que requieras cargar los vas asignando..
    Else
      'si no hay ningun valor parecido o cargado en la variable puedes optar por poner una rutina o algo que le diga al usuario porque no se hizo la consulta.
    Endif
  Endif
End
 


Espero me haya dado a explicar y te funcione nos comentas saludos desde México..
 



 
RodSanRey - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Enviar Un Valor De Un Formulario A Otro(para Que Me Imprima De La Base De Datos) 
 
La forma más ortodoxa es pasar los valores que quieres de uno a otro en el método constructor _new

En el formulario A:

    Dim miFormularioB as Object
    Dim miVariable as string

    miVariable="datos que paso"
    miFormularioB= new FormularioB(miVariable)
    miformularioB.Show

 


En el formulario B

private Valorpasado as string

public sub _new(elvalor as string)

    Valorpasado = elvalor

end
 

Al declarar como private Valorpasado, ya lo tienes disponible en todo el formulario B.

Suerte
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Enviar Un Valor De Un Formulario A Otro(para Que Me Imprima De La Base De Datos) 
 
metalgearxd:

Esta pregunta ya esta respondida en el foro, usa el botón de "Buscar", pon alguna palabra del tema que busques, por ejemplo yo he puesto "pasar valor formulario", y salen un motón de entradas, lees los titulos y lee los mensajes que se asemejen a tu problema.

Por ejemplo te sale este enlace:


Pasar Inf De Una Pantalla A Otra

Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
última edición por jsbsan el Martes, 19 Febrero 2013, 12:41; editado 1 vez 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Enviar Un Valor De Un Formulario A Otro(para Que Me Imprima De La Base De Datos) 
 
Aquí te dejo un ejemplo sencillo.
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Cargar Datos De Un Formulario En Otro Form... Josec General 1 Martes, 08 Noviembre 2011, 17:57 Ver último mensaje
jsbsan
No hay nuevos mensajes Problema Con Formulario Al Conectar A Base... metalgearxd General 8 Jueves, 31 Enero 2013, 13:52 Ver último mensaje
metalgearxd
No hay nuevos mensajes Problemática Al Insertar Valores En Una B... leonel Bases de Datos 15 Viernes, 11 Abril 2014, 19:08 Ver último mensaje
shordi
No hay nuevos mensajes Tomar Un Valor De Una Base De Datos Y Inse... vuott Bases de Datos 2 Lunes, 29 Junio 2015, 13:46 Ver último mensaje
Shell
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario