SQL - REGISTRO

USUARIO.EXCLUIDOS 18/07/2005 10:19:04
#94672

Estou tendo um problema no SQL. Ele tem que aparecer com os registros da tabela Inquilino e Fiador, mas isso não está acontecendo.

a Rotina é essa:

Private Sub apresentar_imobiliaria()

Screen.MousePointer = 11

Call Abrir_cn_Acess

On Error GoTo trata_erro

Set rs_imobiliaria = New ADODB.Recordset
' rs_imobiliaria.CursorLocation
' strsql = "SELECT Nome, Telefone_ResidencialursorLocation = , Telefone_comercial, Celular From Fiador"
' strsql = "SELECT t1.*, t2.* FROM inquilino as t1, fiador as t2 where ((t1.idfiador=t2.id) and (t1.nome='%" & txt_Nome.Text & "%'))"
' strsql = "SELECT Inquilino.Nome, Inquilino.Telefone_Residencial, Inquilino.Telefone_comercial, Inquilino.Celular, Fiador.Nome, Fiador.Telefone_Residencial, Fiador.Telefone_comercial, Fiador.Celular FROM Inquilino INNER JOIN Fiador ON Fiador.CodigoFiador = Inquilino.CodigoFiador"
strsql = "SELECT Inquilino.Nome, Inquilino.Telefone_Residencial, Inquilino.Telefone_comercial, Inquilino.Celular, Fiador.Nome, Fiador.Telefone_Residencial, Fiador.Telefone_comercial, Fiador.Celular FROM Inquilino INNER JOIN Fiador WHERE Fiador.Nome = Inquilino.Nome"
rs_imobiliaria.Open strsql, cn_acess, adOpenDynamic, adLockOptimistic
rs_imobiliaria.ActiveConnection = Nothing

Call Fechar_cn_Acess

Screen.MousePointer = 0

Exit Sub

trata_erro:

Call Fechar_cn_Acess
Screen.MousePointer = 0
' MsgBox Err.Number & vbCrLf & Err.Description
MsgBox "Erro no Inquilino x Fiador!" & vbCrLf & _
"Informe ao Técnico Responsável"

End Sub

Alguém pode me ajudar?!!

Obrigado!!