VB6 varios resultados SQL

[MeXiCaN]

Hola!!

Tengo es te código:

Public Function Añadir(palabras As String) As String

Dim base As Database
Dim ttablaAs Recordset
Dim campo_campo3 As Field

Set base = OpenDatabase(App.Path & "\basededatos.mdb")
Set tmiha = base.OpenRecordset("SELECT * FROM tabla WHERE campo1='" & (LCase(palabras)) & "'")
Set campo_campo3 = ttabla.Fields("tercercampo")

If ttabla.RecordCount < 1 Then
Añadir = palabras & " " & "[Sin Concordancia]"
Else
Añadir = palabras & " " & "[" & campo_campo3 & "]"

Aqui deberia hacer algo pero no se el qué, porque de esta forma solo me muestra un solo registro. Y hay registros con más de un tercercampo.

End If

ttabla.Close
Set ttabla= Nothing
base.Close
Set base = Nothing

End Function

¿como puedo hacer para que si la sentencia sql devuelve más de un valor los añada? Porque de esta forma solo me devuelve el primero que encuentra.

Muchas gracias.

[Frehley]

Proba esto:

While not ttabla.eof
If ttabla.RecordCount < 1 Then
Añadir = palabras & " " & "[Sin Concordancia]"
Else
Añadir = palabras & " " & "[" & campo_campo3 & "]"
doevents
wend

No estoy seguro si es lo que pedis, pero espero te ayude, cualquier cosa avisa.

Salu2!

[hernanmdq]

Personalmente no termino de enterder el problema, capas si nos cuentas mas sobre la estructura de la tabla, podamos ayudarte. Salu2 y suerte

[MeXiCaN]

Estrucutura de la tabla

campo1, campo2, campo3, campo4

Public Function Añadir(palabras As String) As String

Dim base As Database
Dim ttablaAs Recordset
Dim campo3 As Field

Set base = OpenDatabase(App.Path & "\basededatos.mdb")
Set tmiha = base.OpenRecordset("SELECT * FROM tabla WHERE campo1='" & (LCase(palabras)) & "'")
Set campo3 = ttabla.Fields("campo3")

If ttabla.RecordCount < 1 Then
Añadir = palabras & " " & "[Sin Concordancia]"
Else
Añadir = palabras & " " & "[" & campo3 & "]"

Aqui deberia hacer algo pero no se el qué, porque de esta forma solo me muestra un solo registro. Y hay registros con más de un tercercampo.

End If

ttabla.Close
Set ttabla= Nothing
base.Close
Set base = Nothing

End Function

Resulta que la sentencia SQL puede tener varios campo tres. EJ.

campo1 campo2 campo3 campo4
1 casa 1 roja
2 casa 1 azul
3 autopista 1 grande
4 autopista 1 pequeña
5 botella 1 tequila
6 autopista 1 llena

ejecutamos sentencia SQL

select * from tabla where campo1 = casa

Resultados:

casa [roja][azul]

Hasta ahora solo consigo mostar esto:

casa [roja]

¿como hago para mostrar el/los resultado/s que me falta/n?

Muchas GRacias

[MeXiCaN]

ok, ya lo arreglé. Gracias a Frehley. Tuve que modificar unas cosillas pero ya esta.