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