Foros del Web » Programación para mayores de 30 ;) » Bases de Datos General » Mysql »

Consultas Sensitivas En Mysql

Estas en el tema de Consultas Sensitivas En Mysql en el foro de Mysql en Foros del Web. Estoy haciendo una consulta sensitiva a una base de datos en mysql desde vb, lo raro es que siempre que escribo la palabra o letra ...
  #1 (permalink)  
Antiguo 21/12/2005, 00:53
 
Fecha de Ingreso: mayo-2004
Ubicación: Cartago
Mensajes: 58
Antigüedad: 19 años, 11 meses
Puntos: 0
Consultas Sensitivas En Mysql

Estoy haciendo una consulta sensitiva a una base de datos en mysql desde vb, lo raro es que siempre que escribo la palabra o letra me pone que no existe ningun apellido en la bd que empiece con ese nombre, lo más raro es que lo probe el codigo en una bd en access y si funciona a la perfeccion pero a la hora de hacerla en la bd en mysql no me funciona

Código:
Public Sub confgrid()
grid.Clear
With grid
   .Cols = 7
   .Rows = 2
   
   .ColWidth(0) = 500
   .ColWidth(1) = 1000
   .ColWidth(2) = 1500
   .ColWidth(3) = 1000
   .ColWidth(4) = 2500
   .ColWidth(5) = 2500
   .ColWidth(6) = 2500
   
   
   
   .TextMatrix(0, 0) = "#"
   .TextMatrix(0, 1) = "Cédula"
   .TextMatrix(0, 2) = "Nombre"
   .TextMatrix(0, 3) = "Apellido"
   .TextMatrix(0, 4) = "Telefono"
   .TextMatrix(0, 5) = "Dirección"
   .TextMatrix(0, 6) = "E-mail"
   
   .Col = 0
   .Row = 1
   .ColSel = .Cols - 1
   
End With
End Sub

Private Sub txtape_KeyUp(KeyCode As Integer, Shift As Integer)
Dim LETRA As String

Dim ape As String
ape = txtape.Text
LETRA = ape
Me.confgrid
cmd.CommandText = "Select * From Clientes where  Apellido Like ('" & LETRA & "' & '%');"

Set rs = cmd.Execute
With grid

cont = 1

If Not rs.EOF Then
While Not rs.EOF

   
      cont = .Rows - 1
   
           .TextMatrix(cont, 0) = cont
           .TextMatrix(cont, 1) = rs(0)
           .TextMatrix(cont, 2) = rs(1)
           .TextMatrix(cont, 3) = rs(2)
           .TextMatrix(cont, 4) = rs(3)
           .TextMatrix(cont, 5) = rs(4)
           .TextMatrix(cont, 6) = rs(5)
'            .TextMatrix(cont, 7) = rs(6)
           .Rows = .Rows + 1
           rs.MoveNext
       Wend
   .Col = 0
   .Row = 1
   .ColSel = .Cols - 1
   
   Else
       MsgBox "No existen clientes que empiezen con: " & LETRA, vbCritical
       End If
       End With
End Sub
Ese mismo codigo estoy utilizando para hacer la consulta en accessy si funciona.

Gracias por todo y salu2
  #2 (permalink)  
Antiguo 21/12/2005, 02:31
Avatar de Jose_minglein2  
Fecha de Ingreso: noviembre-2004
Mensajes: 2.344
Antigüedad: 19 años, 5 meses
Puntos: 8
Así únicamente debería funcionar.

"Select * From Clientes where Apellido Like ('" & LETRA & "%');"
  #3 (permalink)  
Antiguo 21/12/2005, 13:02
 
Fecha de Ingreso: mayo-2004
Ubicación: Cartago
Mensajes: 58
Antigüedad: 19 años, 11 meses
Puntos: 0
Cita:
Iniciado por Jose_minglein2
Así únicamente debería funcionar.

"Select * From Clientes where Apellido Like ('" & LETRA & "%');"
Demasiadas gracias si funciono!!!

PD: Que raro de la otra forma si funciona en access...
  #4 (permalink)  
Antiguo 22/12/2005, 01:58
Avatar de Jose_minglein2  
Fecha de Ingreso: noviembre-2004
Mensajes: 2.344
Antigüedad: 19 años, 5 meses
Puntos: 8
en la mysql estás haciendo un like nombre'
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:19.