Como Enviar Un Valor De Un Formulario A Otro(para Que Me Imprima De La Base De Datos)


Objetivo: 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

Perfil MP  
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
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..

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:

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

Perfil MP  
Objetivo: 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

ú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.

Perfil MP  

Página 1 de 1


  
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

   

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.0967s (PHP: 14% SQL: 86%)
Consultas SQL: 20 - Debug off - GZIP Activado