Nabucodonosor
20 de Julio del 2004

Hola a todos, mi pregunta es si puedo hacer correr una consulta compuesta es VB 6.0
Lo que quiero es que en un listview me muestre los campos de dos tablas que tengo en mi base de datos pero al correr el programa que
se encuentra adjunto, me sale error.

Tengo dos tablas, Clientes y cheques

Como puedo hacer para que me corra la consulta SQL sBuscar, y no me salga error?????

Por la ayuda les agradezco de antemano

A qui les envio el codigo



Private Sub cmd_con_Click()
Dim sBuscar As String
Dim tRs As Recordset
Dim tLi As ListItem
'
' Formar la cadena de la consulta:

sBuscar = "SELECT Clientes.NOMBRES, Cheques.Valor,Cheques.Fec_Emision, Cheques.Fec_cobro, Cheques.Status FROM Cheques, Clientes WHERE Clientes.Nombres = '" & txt_con.Text & "'AND Clientes.Cod_clientes=Cheques.Cod_cli"

Set tRs = db.OpenRecordset(sBuscar, dbOpenSnapshot)

With tRs

If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados"
Else

ListView1.ListItems.Clear
.MoveFirst
Do While Not .EOF
Set tLi = ListView1.ListItems.Add(, , .Fields("Valor") & "")
tLi.SubItems(1) = .Fields("Status") & ""
tLi.SubItems(1) = .Fields("Fec_emision") & ""
tLi.SubItems(3) = .Fields("Fec_cobro") & ""
.MoveNext
Loop
End If
End With

krizall
20 de Julio del 2004

hola, me parece que te falta despues del from cheques,cliente algo asi

in cheques.cod_cli=clientes.codigo_clientes
y ya despues pones el where y tu condicion,
claro quitas lo ultimo eso va antes

otra puedes hacer esto

sBuscar = "SELECT Clientes.NOMBRES, Cheques.Valor,Cheques.Fec_Emision, Cheques.Fec_cobro, Cheques.Status FROM Cheques, inner join clientes on Clientes.Cod_clientes=Cheques.Cod_cli
where Clientes.Nombres = '" & txt_con.Text & "'

espero te sirva