ERRO NA CONSULTA COM INNER JOIN HELP

COQUITO 10/08/2015 10:38:20
#449778
ola galera.

preciso de ajuda estou tentando criar uma consulta de 2 tabelas com inner join, porem estou sendo retornando com erro na consulta conforme o codigo

segue o codigo que estou usando
Private Sub buscar_numerocpf()
Using conexao As OleDbConnection = GET1()
Try
conexao.Open()
Dim sql As String
sql = [Ô]SELECT clientes.cpf, clientes.razaosocial, veiculos.placa_veic,[Ô]
sql += [Ô]veiculos.tipo_veic FROM clientes INNER JOIN veiculos ON clientes.[cpf] = veiculos.[id_cliente];[Ô]
sql += [Ô]clientes.[cpf]=[ô][Ô] & txtcpf.Text & [Ô][ô][Ô]

Dim cmd As OleDbCommand = New OleDbCommand(sql, conexao)
Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim dt As DataTable = New DataTable
da.Fill(dt)
RelacaoclientesDataGridView.DataSource = dt


Catch ex As Exception
MsgBox([Ô]problema ao carregar os dados no sistema[Ô], MsgBoxStyle.Critical, [Ô]Erro do sistema[Ô])
Finally
conexao.Close()

End Try
End Using
End Sub
JABA 10/08/2015 11:16:05
#449779 Resposta escolhida
Retire o ponto e vírgula do final dessa linha:

 sql += [Ô]veiculos.tipo_veic FROM clientes INNER JOIN veiculos ON clientes.[cpf] = veiculos.[id_cliente][txt-color=#e80000];[/txt-color][Ô]


veiculos.[id_cliente] é um CPF também? Lembre-se que para fazer a junção das tabelas, os campos precisam ser os mesmos.
COQUITO 10/08/2015 11:45:54
#449781
jaba o cpf, é igual sim, só que continua dando erro
JABA 10/08/2015 11:58:23
#449782
Acho que faltou a cláusula Where. Faça assim:

Private Sub buscar_numerocpf()
        Using conexao As OleDbConnection = GET1()
            Try
                conexao.Open()
                Dim sql As String
                sql = [Ô]SELECT clientes.cpf, clientes.razaosocial, veiculos.placa_veic,[Ô]
                sql += [Ô]veiculos.tipo_veic FROM clientes INNER JOIN veiculos ON clientes.[cpf] = veiculos.[id_cliente] [Ô]
                sql += [Ô][txt-color=#e80000]WHERE[/txt-color] clientes.[cpf]=[ô][Ô] & txtcpf.Text & [Ô][ô][Ô]

                Dim cmd As OleDbCommand = New OleDbCommand(sql, conexao)
                Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                Dim dt As DataTable = New DataTable
                da.Fill(dt)
                RelacaoclientesDataGridView.DataSource = dt

            Catch ex As Exception
                MsgBox([Ô]problema ao carregar os dados no sistema[Ô], MsgBoxStyle.Critical, [Ô]Erro do sistema[Ô])
            Finally
                conexao.Close()
            End Try
        End Using
    End Sub


Se ainda tiver dando erro, Coloque-o aí pra gente ver.
COQUITO 11/08/2015 06:09:03
#449805
vlw jaba, consegui sim..valeu
Tópico encerrado , respostas não são mais permitidas
Voltar