Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 2
Ir a la página 1, 2  Siguiente
 
Mostrar Registros En Cajas De Texto
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Mostrar Registros En Cajas De Texto 
 
hola nuevamente chicos

traigo un trabajo entre manos y quiero un poco de ayuda o sugerencia

 Dim ADCX As Result
 Dim ADCXX As String
 Dim asd As String
 Dim resul As Result
 
  Conectarme.moduloconexion
 
  ADCX = Conectarme.$conexion.Exec("select * from Marca")
  
  asd = ADCX["CodMarc"]
  
 If TextBox1.Text = "" Then
      
    Message("Introduzca el Codigo de  Registro")
 
 Else
    
If asd = TextBox1.Text Then
    
resul = Conectarme.$conexion.Exec("Select * from Marca")

  If TextBox1.Text = resul["CodMarc"] Then
    
   resul.MoveNext

  TextBox1.Text = resul["CodMarc"]
 
 TextBox2.Text = resul["Marca"]
  
Message("Ultimo Registro")
    
     Catch
  
   Message("Unico registro")
    
      Conectarme.$conexion.Close
    
Endif
Endif
 Endif

la idea con ese codigo es programar un boton (SIGUIENTE). que al dar clic me mostrar el registro siguiente. tomando como inicio el codigo que introduzcamos en la caja de texto numero uno.

hasta el momento me lo hace bien. me muestra el siguiente registro pero cuando doy clic otra vez en el boton lo muestra el registro siguiente no responde el boton.

creo que debo usar un for?
 



 
soldadozero - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mostrar Registros En Cajas De Texto 
 
No es algo que debas solucionar en un sólo procedimiento. Tienes que usar el evento click del botón.
Primero debes declarar el result como private, para que sea visible en todo el procedimiento.
En el evento Form_open alimentas el result
En el vento button click pasas al siguiente y lo muestras

Private ADCX as Result

public sub form_open()

    ADCX = Conectarme.$conexion.Exec("select * from Marca where codigo=&1",textobox1.text)

    if not ADCX.Available then   'previenes que falle la consulta
         message("No se encuentra" )
         button1.Enabled=false  'para que no puedan pulsar siguiente
    else
         button1.enabled=true
         textobx2.text=ADCX!Marca
    endif

end

Public sub button1_click()
    
    ADCX.movenext
    if ADCX.Available then 'para verificar que no hemos alcanzado el final de la tabla
         textbox2.text=ADCX!Marca
    endif
end


Más o menos. Adàptalo, pero esa es la idea.
Por otra parte te aconsejo seriamente que indentes tu código, empezando más a la derecha en cada if y en cada bucle y en cada procedimiento. Si sigues haciendo código espaguetti, te vas a encontrar un montón de problemas.
Saludos.
 



 
última edición por shordi el Lunes, 14 Octobre 2013, 10:03; editado 1 vez 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mostrar Registros En Cajas De Texto 
 
amigo shordi gracias por contestar nuevamente pero analice ese codigo y veo que no da con la funcionalidad ya que a la hora de cargar el formulario toma como parametro un numero introducido en la caja de texto pero como en la caja de texto esta en blanco entonces no funciona. tendria que pasar el codigo a un boton y ejecutarlo luego introducir el numero de control de la marca que este caso seria uno y luego precionar  el boton que ejecutaria este codigo

Conectarme.moduloconexion

 ADCX = Conectarme.$conexion.Exec("select * from Marca where CodMarc=&1", TextBox1.text)

    If Not ADCX.Available Then   'previenes que falle la consulta
         message("No se encuentra")
         button7.Enabled = False  'para que no puedan pulsar siguiente
    Else
         button1.enabled = True
         TextBox2.text = ADCX!Marca
    Endif

ya que reconoce el valor de la caja de texto entonces  hace una consulta a la tabla marca y seria esto como una consulta dandome solo la marca de ese codigo y no el evento click no da resultado no se mueve al sigueinte registro para mostrar.


la logica del boton es que al escribir el codigo de marca en la caja de texto. luego el usuario de click al boton siguiente y tome como inicio el codigo introducido en la caja de texto para mostrar registro por registro cada vez que se le de click ( a la hora de dar click tiene que mostrar el codigo y la marca del siguiente registro (primer registro 1 marca live al dar click al boton siguiente el codigo seria 2 marca hollister  estos valores se tienen que representar en las cajas de texto)) por otro punto de vista trate de reutilizar el codigo que me distes pero no veo como hacer que funcione segun lo que expreso gracias por leer y tener paciencia
 



 
soldadozero - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mostrar Registros En Cajas De Texto 
 
Cambia la línea del exec a uno de los eventos del textobox1, pues, o implementa otro botón, para la búsqueda. Soluciones tienes muchas.

Suerte,
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mostrar Registros En Cajas De Texto 
 
shordi escribió:  
Cambia la línea del exec a uno de los eventos del textobox1, pues, o implementa otro botón, para la búsqueda. Soluciones tienes muchas.

Suerte,



shordi da lo mismo auque el codigo de form que me distes lo pase al evento changer de la caja de texto el resultado seria el mismo siempre mostrara solo la marca del codigo que introduzcamos y el boton siguiente sera inutil en pocas palabras funcionara como una busqueda por codigo. y no un recorrido a la tabla para mostrar. pero bueno seguire leyendo para dar con este resultado
 



 
soldadozero - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mostrar Registros En Cajas De Texto 
 
soldadozero

Estos temas ya estan planteados dentro del foro yo nose porque preguntan tanto si el foro tiene opciones para buscar temas referidos, por eso es que nadie contesta a muchos mensajes.

MIra este ejemplo de consulta por textbox:

 consulta_movenext


Lo de ver registro siguiente e sporque no usas el comande movenetx, movefirst o movelast

HACES LA CONSULTA VERDAD:

Public Sub Button9_Click()
Dim I As Integer
Dim rs As Result
Dim found As Boolean
found = False
Hresul = coneccion.Hcon.Exec("select *from tabla")
I = 0
If TextBox5.Text = "" Then
    Message.Info("DEBE LLENAR EL CAMPO REQUERIDO")
Else
 juninresul.MoveFirst
 While I < Hresul.Count
  If Hresul.Available Then
     If TextBox5.Text = Hresul!codigo
        found = True
        Exit
      Else
        Hresul.MoveNext
      Endif
   Else
    Exit
   Endif
  
    Wend
    
Endif
If found Then---------SI ENCUENTRA ALGO MOSTRAR EN CAJAS DE TEXTO
TextBox1.Text = Hresul["codigo"]
TextBox2.Text = Hresul["nombre"]
TextBox3.Text = Hresul["contrasena"]
TextBox4.Text = Hresul["mascota"]
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
 Else-----------DE LO CONTRARIO NADA!
  Message.Error("CODIGO NO ENCONTRADO")
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Endif
End


PARA LOS BOTONES SIGUIENTE, EN CADA BOTON COLOCAR:

BONTON SIGUIENTE:

Public Sub Button6_Click()
If Hresul = Null
 Message.Info("NO PUEDE VER MAS REGISTROS PORQUE NO HAY")
Else
Hresul.MoveNext()
If Not (Hresul.Available) Then Hresul.MoveLast()
TUFORM.Transporte(Hresul)
Endif
End


BOTON ATRAS:

Public Sub Button7_Click()
If Hresul = Null
Message.Info("NO PUEDE VER MAS REGISTROS PORQUE NO HAY")
Else
Hresul.MovePrevious()
If Not Hresul.Available Then Hresul.Movefirst()
TUFORM.Transporte(Hresul)
Endif
End


BOTON ULTIMO:
Public Sub Button8_Click()
If Hresul = Null
If Message.Info("NO PUEDE VER MAS REGISTROS PORQUE NO HAY")
Endif
Else
Hresul.MoveLast()
TUFORM.Transporte(Hresul)----ESTO ES PARA TRAER DE NUEVO A TU FORM LOS DATOS CONSULTADOS EN Variable Transporte la (Hresul)
Endif
End


TIENES QUE USAR VARIABLES GLOBALES COMO LA "HRESUL" NO EN "DIM" EN CASO DE QUE QUIERAS MODIFICAR O ELIMINAR LOS REGISTROS QUE CONSULTES PORQUE SINO TE VA A REEMPLAZAR LO QUE ESTE EN TU PRIMER CAMPO DE LA TABLA Y NO A LA QUE QUERIAS MODIFICAR.
 



 
jousseph - Ver perfil del usuarioEnviar mensaje privadoVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mostrar Registros En Cajas De Texto 
 
hermano te comprendo se que es redundancia de preguntas. pero creo que se debe a los titulos de las publicaciones revise y una cosa te lleva a otra que no tienen nada que ver con lo que busca. el problema esta en nombrar el titulo de las publicaciones de los que preguntan y resuelven pero Disculpa de ante mano.

y por otro punto de vista tu aporte es genial pero tengo una duda
donde haces uso de esta variable juninresul?  

si haces que mueva al primer registro
juninresul.MoveFirst

pero esa no la has usado o has conectado a ninguna tabla? creo que hace falta algo de codigo verdad? o me equivoco?

y gracias por ayudar amigo
 



 
última edición por soldadozero el Lunes, 14 Octobre 2013, 20:09; editado 1 vez 
soldadozero - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mostrar Registros En Cajas De Texto 
 
Citar:
y por otro punto de vista tu aporte es genial pero tengo una duda
donde haces uso de esta variable juninresul?  

si haces que mueva al primer registro
juninresul.MoveFirst

pero esa no la has usado o has conectado a ninguna tabla? creo que hace falta algo de codigo verdad? o me equivoco?


soldadozero

Es Hresul también lo que sucedió fue que pase por alto esa parte ya que esas son mis variables y te estaba colocando un ejemplo cambiándolos a Hresul para ti ok.
 



 
jousseph - Ver perfil del usuarioEnviar mensaje privadoVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mostrar Registros En Cajas De Texto 
 
jousseph escribió:  
Citar:
y por otro punto de vista tu aporte es genial pero tengo una duda
donde haces uso de esta variable juninresul?  

si haces que mueva al primer registro
juninresul.MoveFirst

pero esa no la has usado o has conectado a ninguna tabla? creo que hace falta algo de codigo verdad? o me equivoco?


soldadozero

Es Hresul también lo que sucedió fue que pase por alto esa parte ya que esas son mis variables y te estaba colocando un ejemplo cambiándolos a Hresul para ti ok.




lo tenia en mente pero no estaba seguro bueno gracias buscare como usar bien tu codigo. en cuanto trate de terminar subo mi aplicacion en descargas de esta web

saludo y cuidate
 



 
soldadozero - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mostrar Registros En Cajas De Texto 
 
trate de usar el codigo. a como pude.

Public Sub Button7_Click()

If Hresul = Null

 Message.Info("NO PUEDE VER MAS REGISTROS PORQUE NO HAY")

Else

 Hresul.MoveNext()

 TextBox1.Text = Hresul["CodMarc"]
  
 TextBox2.Text = Hresul["Marca"]

Endif
Catch
 
 Message("Ultimo Registro")

End

de esa forma me funciona bien, pero no es nada correcto  

de esta otra forma no funciona me da un error en trasportar

Public Sub Button7_Click()

If Hresul = Null

 Message.Info("NO PUEDE VER MAS REGISTROS PORQUE NO HAY")

Else
    
 Hresul.MoveNext()

If Not Hresul.Available Then Hresul.MoveLast()

Marca.Transporte(Hresul)

Endif

End

me indica que reportar no se encuntra en la clase Marca

creo que no es una palabra o variable reservada de gambas? ese es el error
 



 
soldadozero - 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
10.00 10 10 1
 

Publicar nuevo tema  Responder al tema  Página 1 de 2
Ir a la página 1, 2  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
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