• Viernes 8 de Noviembre de 2024, 21:01
« anterior próximo »
Páginas: [1]

Autor Tema:  Consultas Sensitivas En Mysql  (Leído 1618 veces)

JPVM

  • Miembro activo
  • **
  • Mensajes: 40
    • Ver Perfil
Consultas Sensitivas En Mysql
« en: Miércoles 21 de Diciembre de 2005, 07:26 »
0
Compañeros muchos saludos y felices fiestas.

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: Text
  1. Public Sub confgrid()
  2. grid.Clear
  3. With grid
  4.     .Cols = 7
  5.     .Rows = 2
  6.    
  7.     .ColWidth(0) = 500
  8.     .ColWidth(1) = 1000
  9.     .ColWidth(2) = 1500
  10.     .ColWidth(3) = 1000
  11.     .ColWidth(4) = 2500
  12.     .ColWidth(5) = 2500
  13.     .ColWidth(6) = 2500
  14.    
  15.    
  16.    
  17.     .TextMatrix(0, 0) = "#"
  18.     .TextMatrix(0, 1) = "Cédula"
  19.     .TextMatrix(0, 2) = "Nombre"
  20.     .TextMatrix(0, 3) = "Apellido"
  21.     .TextMatrix(0, 4) = "Telefono"
  22.     .TextMatrix(0, 5) = "Dirección"
  23.     .TextMatrix(0, 6) = "E-mail"
  24.    
  25.     .Col = 0
  26.     .Row = 1
  27.     .ColSel = .Cols - 1
  28.    
  29. End With
  30. End Sub
  31.  
  32. Private Sub txtape_KeyUp(KeyCode As Integer, Shift As Integer)
  33. Dim LETRA As String
  34.  
  35. Dim ape As String
  36. ape = txtape.Text
  37. LETRA = ape
  38. Me.confgrid
  39. cmd.CommandText = "Select * From Clientes where  Apellido Like ('" & LETRA & "' & '%')&#59;"
  40.  
  41. Set rs = cmd.Execute
  42. With grid
  43.  
  44.  cont = 1
  45.  
  46.  If Not rs.EOF Then
  47.  While Not rs.EOF
  48.  
  49.    
  50.        cont = .Rows - 1
  51.      
  52.             .TextMatrix(cont, 0) = cont
  53.             .TextMatrix(cont, 1) = rs(0)
  54.             .TextMatrix(cont, 2) = rs(1)
  55.             .TextMatrix(cont, 3) = rs(2)
  56.             .TextMatrix(cont, 4) = rs(3)
  57.             .TextMatrix(cont, 5) = rs(4)
  58.             .TextMatrix(cont, 6) = rs(5)
  59. '            .TextMatrix(cont, 7) = rs(6)
  60.             .Rows = .Rows + 1
  61.             rs.MoveNext
  62.         Wend
  63.     .Col = 0
  64.     .Row = 1
  65.     .ColSel = .Cols - 1
  66.    
  67.     Else
  68.         MsgBox "No existen clientes que empiezen con: " & LETRA, vbCritical
  69.         End If
  70.         End With
  71. End Sub
  72.  
  73.  
  74.  

Ese mismo codigo estoy utilizando para hacer la consulta en accessy si funciona.

Gracias por todo y salu2

JPVM

  • Miembro activo
  • **
  • Mensajes: 40
    • Ver Perfil
Re: Consultas Sensitivas En Mysql
« Respuesta #1 en: Miércoles 21 de Diciembre de 2005, 20:08 »
0
ya descubri co9mo era el problema lo que hice fue a la hora de hacer el select meti en % dentro de lo que le estoy mandando por parametro
Código: Text
  1.  
  2. "Select * From Clientes where Apellido Like ('" & LETRA & "%');"
  3.  

Pd: Lo raro que de la otra forma si funcionaba en access pero en mysql no...
Páginas: [1]
« anterior próximo »