Consulta sencilla en VB

Participa en el tema Consulta sencilla en VB en el foro Programación.
El proyecto que me pasaste, en el txtopcion, no tenia ningun codigo, es obvio que ...3

Buscar en este tema:

Búsqueda avanzada

< 1 2 3 4 5 >

rmc08 escribió hace 2 meses

#1 Consulta sencilla en VB

Mostrar el primer mensaje completo
desconectado
- 1,393
  
  MENSAJES
-HeavenMight- escribió hace 2 meses ¿Mensaje inapropiado?
#21 Re: Consulta sencilla en VB
El proyecto que me pasaste, en el txtopcion, no tenia ningun codigo, es obvio que no haria nada.

Si vos te referis, a las "esferitas" que son los "option"
Lo que tenes que poner es, el "Opt1" ( cualquiera de los 4 es lo mismo ) poner:

Código:

Private Sub Opt1_Click(Index As Integer) CargarGrilla Index End Sub
Iguamente detecte varios errores, hoy te subo el proyecto bien armado con el "la busqueda" funcionando.

Pero va a ser despues de las 6 de la tarde, aprox. y media.
Responder

Citar

Me gusta este mensaje
desconectado
- 65
  
  MENSAJES
rmc08 escribió hace 2 meses ¿Mensaje inapropiado?

#22 Re: Consulta sencilla en VB

Cuando dije txtopcion si me referia al textbox (che tan duro no soy) lo que pasa que yo lo probaba oprimiendo un optionButton y de ahi escribia algo en el textbox, lo qe t dije es que cuando terminaba de escribir algo, automaticamente deberia buscar... y no lo hizo.

por eso te dije lo que decia, (ya me estoy sintiendo muy ignorante en este foro jajaja).
bueno no te hagas drama por el tiempo. saludos

Responder

Citar

Me gusta este mensaje

desconectado
- 1,393
  
  MENSAJES
-HeavenMight- escribió hace 2 meses ¿Mensaje inapropiado?
#23 Re: Consulta sencilla en VB
Bueno son las 9:23, estoy postenadote la respuesas.

Perdon por postear mas tarde,es que
Nº1 - Me retubo 1 amigo
Nº2 - En el ciber el "tecnico" no sabia configurar un router y no te podes imaginas las buenas que se mando
Nº3 - Tenia 1 cagadera de puta madre asi que estuve aprox 30 min en el baño, sin exagerar.

Moraleja: No dejes que un amigo que no tienen titulo y no termino la secundaria te diga "soy tecnico" y menos que menos le dejes configurar el router de tu ciber para "mejorarlo".

Moraleja Nº2: No tomes "NUEVO ADES VERANO", por lo general, me tomo un Jugo Ades despues de al dia anterior tener 'Actividad' - Ese 'nuevo' Ades 'verano' es lo peor que me pudo pasar.
La peor cagadera.

En fin ya estoy aca, y al menos en suficientes peizas como para postar.

El codigo de la funcion queda Asi

Código:

Option Explicit Dim i As Byte '---------------------------------------------------------------------------------------- Private Function CargarGrilla(Index As Byte) Dim StrSql As String If txtOpcion = Empty Then StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, FechadeAlta from Personas" Else Select Case Index Case 0 If IsNumeric(txtOpcion) Then StrSql = "Select id, Nombre, Apellido, Telefono,Direccion, FechadeAlta from Personas where id=" & txtOpcion Else MsgBox "El codigo de cliente solo puede ser numérico", vbInformation, "sistemas" txtOpcion = Empty txtOpcion.SetFocus Exit Function End If Case 1 StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, FechadeAlta from personas where Nombre like '" & txtOpcion & "%'" Case 2 StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, FechadeAlta from personas where apellido like '" & txtOpcion & "%'" Case 3 StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, FechadeAlta from personas where Telefono like '" & txtOpcion & "%'" End Select End If rs.Open StrSql, cn, adOpenDynamic, adLockOptimistic Dim grilla As MSFlexGrid '<----- Agregado Set grilla = MSFlexGrid1 '<------ Agregado grilla.Clear grilla.Rows = 1 grilla.FormatString = "ID | Nombre |Apellido | Teléfono | Direccion " Do While Not rs.EOF grilla.AddItem rs!id & vbTab & rs!Nombre & vbTab & rs!Apellido & vbTab & rs!Telefono & vbTab & rs!Direccion rs.MoveNext Loop rs.Close End Function
Ahora en el txtopcion, tenes que poner el siguiente codigo.

Código:

Private Sub txtOpcion_Change() For i = 0 To 3 If Opt1(i).Value = True Then CargarGrilla Int(i) Next i End Sub
Los "Opt" que tenes, no se que les tocaste, pero cuando le haces click a "Codigo ID" (Opt(0)), Se queda seleccionado por mas que los otros Opt esten seleccionados

Asi que borre los 4 y los volvi a poner y les Puse Id Codigo (No me acordaba como la habias puesto), Nombre, Apellido, Telefono ( los otros 3 quedaron Iguales, porque me acorde como los habias nombrado )

Cuando hice esto, funcionaron perfectamente.

Como veras volvi a poner los "LIKE"; como ahora me pasaste tu proyecto, no sabia que era para mostrar el parametro en una lista.
Por lo que los volvi a Agregar, nada menos que hice un pequeña modificacion a como los tenias en un principio vos.

Cuando Uso los LIKE notaras que hice lo siguiente CAMPO=' VALOR%'

Podras, divisar que use un solo % y que lo puse al final.
Esto es para que busque las que conciden desde "Izquierda a derecha".

Cuando lo ejecutes al programa te daras cuenta.

Probalo con % Valor %
Pero por ejemplo

Natalia y Mariano

tienen la "N", entonces cuando vas escribiendo "N-A-T"

Ya tenes una N; por lo que MariaNo tambien entra, apesar de que uno ya escribio "NAT" y apunta a "Natalia".

En cambio con VALOR%, hara que las "N" valga para las que Estan de Derecha a Izquierda y comienzan asi.

Bueno, si no tenes muchas ganas de dar vueltas aca tenes el proyect totalemente funcionando.

Sistema TP facu.rar

Salu2

RECORDA!!! NO TOMES ADES 'VERANO'
Responder

Citar

Me gusta este mensaje
desconectado
- 65
  
  MENSAJES
rmc08 escribió hace 2 meses ¿Mensaje inapropiado?

#24 Re: Consulta sencilla en VB

Jajaj gracias por el consejo de Ades, igual no lo tomo. Otra cosa ya voy a postear el codigo nuevo que le puse basado en el ADODC.
una pregunta tenes idea de programacion web? Php html ? .... saludos. ya subo el codigo

Responder

Citar

Me gusta este mensaje
desconectado
- 1,393
  
  MENSAJES
-HeavenMight- escribió hace 2 meses ¿Mensaje inapropiado?

#25 Re: Consulta sencilla en VB

Bajate el ejemplo que te puse [ en realidad es ya todo hecho y funcionando ]

Y si Html y Html 2.0 mas o menos tengo bastente claro el tema.
En PHP lo basico ademas de las Consultas.

Repito el link por las dudas si no lo viste.

http://www.4shared.com/file/13787561...a_TP_facu.html

Editado por -HeavenMight- - 06.10.2009 12:15 hs.

Responder

Citar

Me gusta este mensaje

desconectado

65

MENSAJES

rmc08 escribió hace 2 meses ¿Mensaje inapropiado?

#26 Re: Consulta sencilla en VB

bueno aqui esta el nuevo codigo que hice, es mas sencillo y funciona !.
esto es solo de la busqueda de clientes con los Opt y el txtopcion.

Código:

Private Sub cmdBuscar_Click()
    Criterio = txtOpcion.Text
        Do While Not OptID Or OptNom Or OptApe Or OptTel = True
        If OptID = False Then
            If OptNom = False Then
                If OptApe = False Then
                    If OptTel = False Then
                        MsgBox " no selecciono criterio"
                    End If
                End If
            End If
        End If
        Loop
        If OptID = True Then
            If Adodc.Recordset.EOF = True Then
                Adodc.Recordset.MoveFirst
            Else
                Adodc.Recordset.Find "ID = '" & Criterio & "'", 1
            End If
        End If
        If OptNom = True Then
                If Adodc.Recordset.EOF = True Then
                    Adodc.Recordset.MoveFirst
                Else
                    Adodc.Recordset.Find "Nombre = '" & Criterio & "'", 1
            End If
        End If
        If OptApe = True Then
                If Adodc.Recordset.EOF = True Then
                    Adodc.Recordset.MoveFirst
                Else
                    Adodc.Recordset.Find "Apellido = '" & Criterio & "'", 1
            End If
        End If
        If OptTel = True Then
                If Adodc.Recordset.EOF = True Then
                    Adodc.Recordset.MoveFirst
                Else
                    Adodc.Recordset.Find "Telefono = '" & Criterio & "'", 1
            End If
        End If
End Sub

Responder

Citar

Me gusta este mensaje

desconectado

1,393

MENSAJES

-HeavenMight- escribió hace 2 meses ¿Mensaje inapropiado?

#27 Re: Consulta sencilla en VB

........
lo de del Opt, Cuando habias hecho lo de el vector, funcionaba mejor...

No se porque volviste al principio, si no cambiaba nada en la consulta con ADODC

Con respecto al codigol.

Código:

  Do While Not OptID Or OptNom Or OptApe Or OptTel = True
        If OptID = False Then
            If OptNom = False Then
                If OptApe = False Then
                    If OptTel = False Then
                        MsgBox " no selecciono criterio"
                    End If
                End If
            End If
        End If

Si pusiste Do While Not ....
Poner los IF, es medio al dope-

Estarias haciendo lo mismo 2 veces.

Ahora si pones un Opt con un vector , asi tenes Opt(0),Opt(1) y demas podes hacer asi

Código:

 If txtOpcion = Empty Then
        StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, FechadeAlta from Personas"
     Else
         Select Case Index
           Case 0
             If IsNumeric(txtOpcion) Then
                    StrSql = "Select id, Nombre, Apellido, Telefono,Direccion, FechadeAlta from Personas where id=" & txtOpcion
                Else
                    MsgBox "El codigo de cliente solo puede ser numérico", vbInformation, "sistemas"
                    txtOpcion = Empty
                    txtOpcion.SetFocus
                 Exit Function
             End If
         Case 1
                StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, FechadeAlta from personas where Nombre like '" & txtOpcion & "%'"
            Case 2
                StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, FechadeAlta from personas where apellido like '" & txtOpcion & "%'"
            Case 3
                StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, FechadeAlta from personas where Telefono like '" & txtOpcion & "%'"
End Select
    End If

Si observas, yo me fijo una sola vez, si "txtpcion" esta vacio.
Si esta vacio, es obvio que voy a hacer:

StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, FechadeAlta from Personas"

Dado que no importa que Opt, este seleccionado, siempre hara la consulta de arriba.

Ahora de no estar vacio.

Preguntas por el INDEX que tenia la funcion.

Y listo. Asi es mucho mas facil.

Por cierto ¿Te bajaste el proyect que te puse en el ultimo post?
Este, tiene la consulta funcionando al 100% y cuando escribis en el textobox funciona perfecto.

Tenes que hacer asi, seleccionas un Opt y luego escribis en el txtopcion.
Repito el LINK:

http://www.4shared.com/file/13787561...a_TP_facu.html

Responder

Citar

Me gusta este mensaje

desconectado
- 1,393
  
  MENSAJES
-HeavenMight- escribió hace 2 meses ¿Mensaje inapropiado?

#28 Re: Consulta sencilla en VB

Bueno para cuando leas, te dejo aca otro LINK

http://www.4shared.com/account/file/...terminada.html
Te recomiendo que te descargues esta y no las versiones anteriores que te puse.
Esta le modifique un par de boludeces :P

Esta version tiene inicalizado el Opt y la consulta cosa que sea senicilla.[solo eso]
Por cierto me dice cuenta que escribiste "Consulta senSilla en VB"
Igual como nadie entra a este thread, porsiblemente ni se den cuenta

Responder

Citar

Me gusta este mensaje
desconectado
- 65
  
  MENSAJES
rmc08 escribió hace 2 meses ¿Mensaje inapropiado?

#29 Re: Consulta sencilla en VB

perdon el do while not... no va esa linea, van sin ella osea empezando por el If . burrada mia. despues que lo cargue me di cuenta de que no iba y lo modifique...
ahora me lo bajo a lo que me pasaste, pero igual lo que me interesa a mi es que funcione bien...mas alla del codigo utilizado.

ah otra cosa che yo puse consulta sencilla !! asi bien escrito. Y lo tengo en mis favoritos del explorer (he probado tdos los navegadores y me los conozco de memoria, asique no me digan porque elegiste el explorer 8. :-P ) como "Consulta Sencilla" asique desde el principio lo guarde asi entonces staba bien escrito, a lo mejor vos me diras de alguna parte que lo puse dentro del thread...nose... ahi me lo bajo al archivo terminado. Muchas gracias!!! .....

Ahora estoy naufragando los mundos del diseño web jajaja... Me decidi por Microsoft Expression Web 2. Lo encontre mucho mejor que Dreamweaver, mas intuitivo y facil de usar.

Saludos

Responder

Citar

Me gusta este mensaje
desconectado
- 1,393
  
  MENSAJES
-HeavenMight- escribió hace 2 meses ¿Mensaje inapropiado?

#30 Re: Consulta sencilla en VB

Es verdad el titulo esta bien, no se porque entonces la otra vez con google puse "Psicofxp consulta sencilla VB" y me salto con S
O_O

En fin mejor.

Por cierto para HTML esta el DHTML que trae visual basic, que hace que puedas crear todo de forma BASIC, inclusive formularios, para que no tengas que usar javascript.

Y la verdad, el dreamweaver es muy bueno, pero es menos intuitivo que la consola de comando de un avion.

Mas aun ahora, yo lo habia agarrado hace 3 años al MX 2001 y era malismo,ahora es peor, es mas estetico, pero menos organizado

Responder

Citar

Me gusta este mensaje

< 1 2 3 4 5 >

Estás en: Inicio >> Foros

« Tema anterior | Siguiente tema »

Relacionados
Populares
Usuarios Destacados

Estadísticas del tema

43 RESPUESTAS
1077 VISTAS
3 USUARIOS RESPONDIERON

Ir arriba

Consulta sencilla en VB

Participa en el tema Consulta sencilla en VB en el foro Programación. El proyecto que me pasaste, en el txtopcion, no tenia ningun codigo, es obvio que ...3

Participa en el tema Consulta sencilla en VB en el foro Programación.
El proyecto que me pasaste, en el txtopcion, no tenia ningun codigo, es obvio que ...3