ERRO NA INSTRUCAO JOIN ACCESS
bom dia pessoal
Criei a instrução abaixo:
Os campos estão todo certos mais na hora de executar da erro na instrução.
alguem pode me ajudar
Grato
Criei a instrução abaixo:
Rs.Open [Ô]SELECT codigo_agrr.ferragens_N, descricao.ferragens_N, quantidade.ferragens_agr, ferragem.ferragens_agr [Ô] & _
[Ô]from ferragens_N left outer join ferragens_agr on codigo_AGRR.ferragens_n=codigo_fer.ferragens_agr [Ô] & _
[Ô]order by ferragens_n.descricao, ferragens_agr.ferragem[Ô], Conexao, adOpenStatic
Os campos estão todo certos mais na hora de executar da erro na instrução.
alguem pode me ajudar
Grato
Dim rs As New ADODB.Recordset
SQL = [Ô]SELECT codigo_agrr.ferragens_N, descricao.ferragens_N, quantidade.ferragens_agr, ferragem.ferragens_agr FROM ferragens_N LEFT OUTER JOIN ferragens_agr on codigo_AGRR.ferragens_n = codigo_fer.ferragens_agr [Ô]
SQL = SQL & [Ô]order by ferragens_n.descricao, ferragens_agr.ferragem[Ô]
rs.Open SQL, conexao
SQL = [Ô]SELECT codigo_agrr.ferragens_N, descricao.ferragens_N, quantidade.ferragens_agr, ferragem.ferragens_agr FROM ferragens_N LEFT OUTER JOIN ferragens_agr on codigo_AGRR.ferragens_n = codigo_fer.ferragens_agr [Ô]
SQL = SQL & [Ô]order by ferragens_n.descricao, ferragens_agr.ferragem[Ô]
rs.Open SQL, conexao
Eu acho que ta tudo invertido
as tabelas são feragens_N e ferragens_agr
então a query deveria ser assim
para vc não se perder pode montar a query assim , lembre-se a tabela vem na frente do campo
as tabelas são feragens_N e ferragens_agr
então a query deveria ser assim
Rs.Open [Ô]SELECT ferragens_N.codigo_agrr, ferragens_N.descricao, ferragens_agr.quantidade, ferragens_agr.ferragem, ferragens_agr.codigo_fer [Ô] & _
[Ô]from ferragens_N left outer join ferragens_agr on ferragens_n.codigo_agrr = ferragens_agr.codigo_fer [Ô] & _
[Ô]order by ferragens_n.descricao, ferragens_agr.ferragem[Ô], Conexao, adOpenStatic
para vc não se perder pode montar a query assim , lembre-se a tabela vem na frente do campo
sSQL = sSQL & [Ô]SELECT [Ô]
sSQL = sSQL & [Ô]ferragens_N.codigo_agrr,[Ô]
sSQL = sSQL & [Ô]ferragens_N.descricao,[Ô]
sSQL = sSQL & [Ô]ferragens_agr.codigo_fer,[Ô]
sSQL = sSQL & [Ô]ferragens_agr.ferragem,[Ô]
sSQL = sSQL & [Ô]ferragens_agr.quantidade [Ô]
sSQL = sSQL & [Ô]FROM [Ô]
sSQL = sSQL & [Ô]ferragens_N [Ô]
sSQL = sSQL & [Ô]LEFT OUTER JOIN [Ô]
sSQL = sSQL & [Ô]ferragens_agr [Ô]
sSQL = sSQL & [Ô]ON ferragens_n.codigo_agrr = ferragens_agr.codigo_fer [Ô]
sSQL = sSQL & [Ô]ORDER BY ferragens_n.descricao, ferragens_agr.ferragem[Ô]
Rs.Open sSQL, Conexao, adOpenStatic
eu ja faria um pouco diferente..
rs.open [Ô]select a.campo1,campo2,campo3,b.campo1,b.campo2 from tabela1 a, tabela2 b where a.codigoligacao=b.codigoligacao
Tópico encerrado , respostas não são mais permitidas