Type mismatch em consulta SQL - Inner Join

[panox]

Ola galera, tudo bom ? estou fazendo uma rotina em que o usuário irá passar o código do cliente em uma textbox e a partir desse código o SQL fará uma consulta nas tabelas PEDIDO e CLIENTES onde o código do cliente seja o mesmo, mas por algum motivo esta dando type mismatch na hora de rodar a consulta.

Vocês saberiam me dizer onde estou errando ?

r1.Open "SELECT" & _
                        "       P.CODIGO_PEDIDO," & _
                        "       P.NUMERO," & _
                        "       P.TOT_PEDIDO," & _
                        "       P.DATA," & _
                        "       C.NUMERO," & _
                        "       C.NOME," & _
                        " FROM PEDIDO P" & _
                        " INNER JOIN CLIENTES C" & _
                        "    ON P.NUMERO = C.NUMERO" & _
                        " WHERE P.NUMERO = " & Text1.Text & ";", c1, c2

P.S : c1 é a adodb.connection para a tabela PEDIDO e c2 para CLIENTES

Desde já obrigado,

Enrico

Editado Fevereiro 21, 2010 por panox

[kuroi]

você não pode passar duas connections pro open do recordset. o tercero parametro é o cursor type, um recordset so consegue se conectar a uma conexao por vez.

e o objeto connection não se conecta a tabela e sim ao banco de dados. então se as duas tabelas tão no mesmo banco, é so você usar uma unica conexao.

[panox]

Sim, me desculpe, eu me expressei errado, são 2 bancos de dados, o banco pedido e o banco clientes

Editado Fevereiro 21, 2010 por panox

[kuroi]

qual é o banco de dados??

[panox]

como estou apenas praticando, eu estou usando Access.

[kuroi]

hum, se fosse sql você podia fazer por linked server, agora com access não sei não.

pode ser ate q de, mas nunca vi fazer isso no visual basic. usar dois bancos separados.

mas tem algum motivo pra você usar dois .mdb diferentes??

você disse q ta so praticando, então acho q foi por acaso q você separou os bancos, certo??

se o banco é do mesmo projeto e tdo, não tem por q separar. se é o mesmo sistema, pode-se e deve-se usar um banco so.

[panox]

Entendi, a razão por ter varios bancos ( clientes, pedidos, produtos, etc ) é pelo fato deu ter pego os bancos assim.

Meu pai tem um sistema na loja dele feito em Clipper( com varios bancos em DBF ), e eu resolvi tentar migrar o sistema para vb apenas para matar o tempo, e a unica coisa que fiz foi converter os bancos para Access, então estou usando os bancos desse jeito.

Você acha mais correto eu criar uma tabela clientes junto com o banco de pedidos e inserir os dados nela ?

Editado Fevereiro 21, 2010 por panox

[kuroi]

sim, o melhor é todas as tabelas num banco so.

o dbf era um sistema antigo de banco de dados. cada tabela era um arquivo, hj não é mais feito assim. um banco de dados é uma coisa so e todas as informacoes ficam concentradas dentro dele.

[panox]

Feito, mas apareceu um probleminha diferente :

quando uso o select desta forma, ele diz que estou usando alguma palavra reservada ou estou errando na pontuação

r1.Open "SELECT" & _
                        "       P.CODIGO_PEDIDO," & _
                        "       P.NUMERO," & _
                        "       P.TOT_PEDIDO," & _
                        "       P.DATA," & _
                        "       C.NUMERO," & _
                        "       C.NOME," & _
                        " FROM PEDIDO P" & _
                        " INNER JOIN CLIENTES C" & _
                        " ON P.NUMERO = C.NUMERO" & _
                        " WHERE P.NUMERO = " & Text1.Text & ";", c1

então apenas mudei para o select por extenso, assim funciona!

r1.Open "SELECT P.CODIGO_PEDIDO, P.NUMERO, P.TOT_PEDIDO, P.DATA, C.NUMERO, C.NOME FROM PEDIDO P INNER JOIN CLIENTES C ON P.NUMERO = C.NUMERO WHERE P.NUMERO = " & Text1.Text & ";", c1

vou dar uma olhada para ver aonde errei nesse select.

Muito obrigado pela ajuda kuroi

Editado Fevereiro 21, 2010 por panox

[Marco Canhoto]

Perceba que no primeiro modo, você mantem a vírgula entre o C.NOME e o FROM (C.NOME, FROM).

Ai dá erro mesmo.

Editado Fevereiro 22, 2010 por Marco Canhoto

[panox]

Corrigido.

Muito obrigado