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
Como Enviar Un Valor De Un Formulario A Otro(para Que Me Imprima De La Base De Datos)
Objetivo: 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
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...
cuando cargue nuestro otro formulario estará programado para hacer una consulta con el valor que tiene guardada la variable...
Espero me haya dado a explicar y te funcione nos comentas saludos desde México..
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
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
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
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..
Objetivo: 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:
En el formulario B
Al declarar como private Valorpasado, ya lo tienes disponible en todo el formulario B.
Suerte
En el formulario A:
En el formulario B
Al declarar como private Valorpasado, ya lo tienes disponible en todo el formulario B.
Suerte
Objetivo: Re: Como Enviar Un Valor De Un Formulario A Otro(para Que Me Imprima De La Base De Datos)
última edición por jsbsan el Martes, 19 Febrero 2013, 12:41; editado 1 vez
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
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
última edición por jsbsan el Martes, 19 Febrero 2013, 12:41; editado 1 vez
Objetivo: 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.
| pasandoValores.tar.gz | ||
| Descripción: | Ejemplo del paso de un valor de un formulario a otro. |  Descargar |
| Nombre del archivo: | pasandoValores.tar.gz | |
| Tamaño: | 6.11 KB | |
| Descargado: | 91 veces | |
| pasandoValores.tar.gz | ||
| Descripción: | Ejemplo del paso de un valor de un formulario a otro. | Descargar |
| Nombre del archivo: | pasandoValores.tar.gz | |
| Tamaño: | 6.11 KB | |
| Descargado: | 91 veces | |
| pasandoValores.tar.gz | ||
| Descripción: | Ejemplo del paso de un valor de un formulario a otro. | Descargar |
| Nombre del archivo: | pasandoValores.tar.gz | |
| Tamaño: | 6.11 KB | |
| Descargado: | 91 veces | |
Página 1 de 1
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.7072s (PHP: -84% SQL: 184%)
Consultas SQL: 48 - Debug off - GZIP Activado