• Viernes 15 de Noviembre de 2024, 05:07

Autor Tema:  Ayuda Mi Mi Codigo No Funciona  (Leído 2054 veces)

jodijo5

  • Miembro HIPER activo
  • ****
  • Mensajes: 518
  • Nacionalidad: pe
    • Ver Perfil
    • http://www.bluetecnologia.com
Ayuda Mi Mi Codigo No Funciona
« en: Domingo 15 de Mayo de 2005, 02:03 »
0
hola amigos, mi programa se ejecuta sin generar errores, pero tengo una instruccion de sql que no hace lo suyo, estoy queriendo leer lo que tengo en la base de datos de acces pero no sale, la sentencia LIKE no funciona, no entra y no se que hacer, no se si será incompatibilidad o nose, e revizado el codigo varias veces pero no sale, halguien me podrìa ayudar a rastrear el error>?

================================================
   Public db As New ADODB.Connection
   Public dbf As New ADODB.Recordset
Private Sub Form_Load()



    db.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\principal.mdb" & ";" & _
        "Jet OLEDB:Database Password=area51"
    db.Open
End Sub

Private Sub Text1_Change(Index As Integer)
Dim n1, n2 As String
If (Text1(0).Text = "") Then
    n1 = "*"
Else
    n1 = Text1(0) & "*"
End If
If (Text1(1) = "") Then
    n2 = "*"
Else
    n2 = Text1(1) & "*"
End If

'esta es la instruccion que no lee

Set dbf = db.Execute("SELECT * FROM paciente WHERE nombres LIKE '" & n1 & "' AND apellidos LIKE '" & n2 & "'")List1.Clear
Do Until (dbf.EOF)
    List1.AddItem (dbf!nombres & "_" & dbf!apellidos)
    dbf.MoveNext
Loop
End Sub
=====================================
=============================
Daniel Pomalaza Mendoza
visita el Dinosaurio Azul :-D
http://bluetecnologia.com

DiabloRojo

  • Miembro MUY activo
  • ***
  • Mensajes: 220
    • Ver Perfil
Re: Ayuda Mi Mi Codigo No Funciona
« Respuesta #1 en: Domingo 15 de Mayo de 2005, 04:38 »
0
Si lo que deseas es buscar coincidencias creo que deberías usar el caracter %. Revisa en el foro. Por ejemplo:

Link

DiabloRojo.

Soultaker

  • Miembro HIPER activo
  • ****
  • Mensajes: 972
  • Nacionalidad: pe
    • Ver Perfil
Re: Ayuda Mi Mi Codigo No Funciona
« Respuesta #2 en: Lunes 16 de Mayo de 2005, 03:01 »
0
Cita de: "jodijo5"
Dim n1, n2 As String
If (Text1(0).Text = "") Then
    n1 = "*"
Else
    n1 = Text1(0) & "*"
End If
If (Text1(1) = "") Then
    n2 = "*"
Else
    n2 = Text1(1) & "*"
End If
'esta es la instruccion que no lee
Set dbf = db.Execute("SELECT * FROM paciente WHERE nombres LIKE '" & n1 & "' AND apellidos LIKE '" & n2 & "'")List1.Clear
Me parece que aqui estas concatenando n1 con *, en este caso debes usar el % y no el *
http]
foros,programacion, c, c++, java,
linux, videojuegos, directX, .NET,
visual basic,robotica,microprocesadores

Para los nuevos usuarios de este Foro, por favor leerse esta discusión.
Cómo Hacer Preguntas De Forma Inteligente

Ojos que no ven... pisan caquita
Camarón que se duerme... muere electrocutado


<<< Harol Moreyra Bendezú >>>

toten

  • Miembro MUY activo
  • ***
  • Mensajes: 140
    • Ver Perfil
Re: Ayuda Mi Mi Codigo No Funciona
« Respuesta #3 en: Lunes 16 de Mayo de 2005, 17:10 »
0
pana aqui te mando un ejemplo de la forma correcta... espero que con esto logres disminuir tu ingnorancia un poco saludos cuidate y estamos a la orden

SELECT ID_pago, RECIBO, BANCO, NROLICENCIA, FECHA, monto, STATUS From PAGOS2005 WHERE PAGOS2005.RECIBO like '%1234%' order by fecha

 :P  ;)

 :comp:
[size=109]Andres Eloy Blanco Madriz [ToT3n][/b][/size]
[size=109]Voy Hablando Y Con El Maso Dando...[/size]
[size=109]Solo Soy La Sombra Del Lado Oscuro De Tu Alma...[/size]
[size=109]Y A La Hora De La Verdad Yo Solo Se Que No Se Nada...[/size]
[size=109]|**VENEZUELA**|[/size]

toten

  • Miembro MUY activo
  • ***
  • Mensajes: 140
    • Ver Perfil
Re: Ayuda Mi Mi Codigo No Funciona
« Respuesta #4 en: Lunes 16 de Mayo de 2005, 17:15 »
0
toma donde esta tu linea mala pon esta
 :comp:

Set dbf = db.Execute("SELECT * FROM paciente WHERE nombres LIKE '% n1 %' AND apellidos LIKE '% n2 %' ")



espero que tu ignorancia ala logrado disminuir un poco en el instante que leas esto cuidate salu2 estamos a la orden


sigue mejorando y quizas llegaras a ser algun dia como RADICAL

 :P
no dejes que te lleve  :devil:
[size=109]Andres Eloy Blanco Madriz [ToT3n][/b][/size]
[size=109]Voy Hablando Y Con El Maso Dando...[/size]
[size=109]Solo Soy La Sombra Del Lado Oscuro De Tu Alma...[/size]
[size=109]Y A La Hora De La Verdad Yo Solo Se Que No Se Nada...[/size]
[size=109]|**VENEZUELA**|[/size]

jodijo5

  • Miembro HIPER activo
  • ****
  • Mensajes: 518
  • Nacionalidad: pe
    • Ver Perfil
    • http://www.bluetecnologia.com
Re: Ayuda Mi Mi Codigo No Funciona
« Respuesta #5 en: Lunes 16 de Mayo de 2005, 21:34 »
0
gracias amigos si no me funciona les aviso
=============================
Daniel Pomalaza Mendoza
visita el Dinosaurio Azul :-D
http://bluetecnologia.com

toten

  • Miembro MUY activo
  • ***
  • Mensajes: 140
    • Ver Perfil
Re: Ayuda Mi Mi Codigo No Funciona
« Respuesta #6 en: Martes 17 de Mayo de 2005, 14:28 »
0
si no te funciona men la cosa no esta facil... jejejejeje resultaria que todos aqui somos unos neofitos jejejeje saludos
[size=109]Andres Eloy Blanco Madriz [ToT3n][/b][/size]
[size=109]Voy Hablando Y Con El Maso Dando...[/size]
[size=109]Solo Soy La Sombra Del Lado Oscuro De Tu Alma...[/size]
[size=109]Y A La Hora De La Verdad Yo Solo Se Que No Se Nada...[/size]
[size=109]|**VENEZUELA**|[/size]