Tenho duas tabelas:

IPTU (CODIMOV, ANO, PAGO, VALOR)

IMOVEIS(CODIMOV, NOME, RUA, QUADRA, LOTE, NUMER, COMPL, BAIRRO, ZONA)

 

Como fazer uma select do iptu, codimov, ano, pago, valor com o codimov da tabela imoveis?

 

Obrigado.

 

vlu//

Bom Dia

 

Pode fazer assim por exemplo

 

Select iptu.codimov,  iptu.ano,  iptu.pago,  iptu.valor,IMOVEIS.codimov where iptu.codimov=IMOVEIS.codimov

 

Ou seja, acima selecionei campos das 2 tabelas onde os campos chave ( iptu.codimov e IMOVEIS.codimov) se encontram presentes em ambas as tabelas.Lembre-se que nao estou me referindo aos nomes dos campoos e sim aos conteudos dos mesmos.

 

 

Um Abraço 

Amigo, não deu certo, veja tenho um Combo com o ano (cboANO), veja abaixo o que preciso:

 

    sSQL = "SELECT IPTU.CODIMOV,IPTU.ANO,IPTU,BARRA,IPTU.DIGITO,IPTU.PAGO,"
    sSQL = sSQL & " IMOVEIS.NOME,IMOVEIS.RUA,IMOVEIS,QUADRA,"

    sSQL = sSQL & " IMOVEIS.LOTE,IMOVEIS.NUMERO,"
    sSQL = sSQL & " IMOVEIS.COMPL,IPTU.PARCELA FROM IPTU"
    sSQL = sSQL & " WHERE IPTU.ANO='" & cboANO.Text & "'"
    sSQL = sSQL & " AND PAGO='NÃO' AND IMOVEIS.CODIMOV=IPTU.CODIMOV"

 

O usuário digita o ano, e trago os anos de IPTU, não pagos, e os campos CODIMOV, ANO, BARRA, DIGITO, PARCELA  da Tabela IPTU e com os dados Nome, Rua, Quadra, Lote, Compl, da tabela IMOVEIS.

 

vlu//

Existem alguns probleminhas na sua sintaxe:

 

IMOVEIS,QUADRA (nao e virgula e sim ponto)

 

sSQL = sSQL & " IMOVEIS.COMPL,IPTU.PARCELA FROM IPTU, IMOVEIS"
          (Voce deve especificar todas as tabelas utilizadas apos a clausula From)

 

Aparentemente parece que agora ira funcionar.

 

Um Abraço

Não, amigo, já havia visto e erro e corrigi, ele me deu a mensagem

"Erro na cláusula FROM"

 

vlu//

DEU CERTO!!

Veja como ficou, muito Obrigado!!!

 

sSQL = "SELECT IPTU.CODIMOV,IPTU.ANO,IPTU.BARRA,IPTU.DIGITO,IPTU.PAGO,"
sSQL = sSQL & "IMOV.NOMEPRO,IMOV.RUA,IMOV.QUADRA,IMOV.LOTE,IMOV.NUMERO,"
sSQL = sSQL & "IMOV.COMPL,IPTU.PARCELA FROM IPTU,IMOV"
sSQL = sSQL & " WHERE IMOV.CODIMOV=IPTU.CODIMOV AND IPTU.ANO='" & cboANO.Text  & "'"
sSQL = sSQL & " AND IPTU.PAGO='NÃO'"
sSQL = sSQL & " ORDER BY"
Select Case sORDEM
        Case "REGISTRO DO IMÓVEL"
            sSQL = sSQL & " IPTU.CODIMOV,IPTU.ANO"
        Case Else
            sSQL = sSQL & " IMOV.NOMEPRO,IPTU.CODIMOV,IPTU.ANO"
End Select

 

vlu//