johnibat

To
Ola Pessoal,

Sou novo com programação ASP, e se alguém puder me dar uma forcinha, ficaria muito agradecido..

Tenho o seguinte problema. Tenho um banco que contem varias tabelas, nessas tabelas tem duas que tem as informações que preciso pegar e mostrar na minha pagina, sei pegar de uma tabela e mostrar, até ai tudo bem; o problema começa quando tive que pegar também da outra. Verifiquei várias dicas que me passaram, só que não consegui, sempre dava erro, o erro parecia ter haver com campos que são idênticos que tenho nas duas tabelas que preciso pegar os dados. Porque tenho que pegar informação de duas tabelas diferentes??. Tenho que pegar porque tem um sistema feito em VB desenvolvido por uma empresa, e o VB grava as informações em varias tabelas, e as informações que preciso pegar estão em duas tabelas, só que nessas duas tabelas tem campos idênticos como o campo (ID), que tem a chave primaria. Como não consegui ler as duas tabelas e mostrar os dados, tomei a decisão de ler das duas tabelas, uma a uma, e gravar em outra em outro banco, só que nunca fiz isto em ASP, só sei a lógica, que seria abrir os dois bancos, ler para variáveis e gravar no outro com as variáveis.

O que eu quero de vocês??

Quero o seguinte, se algum de vocês que deve ter mais experiência que eu, se encontrar primeira solução que queria ou a segunda. Por favor poste aqui um pequeno exemplo, e prometo que assim que tiver dominando a linguagem, ajudo todo mundo..

Aqui segue as tabelas que pretendo ler.

A30caixa_detalhe
ID
Dt_Movto
Documento
Cliente
Quantidade
Vl_Venda_C
Vl_Cliente


Preciso de todos os campos da tabela acima, e os campos nome, Km e carro, da tabela de baixo.

A30caixa_prog
ID
Dt_Movto
Documento
Valor
Cliente
Nome
Placa
Km
Carro

Se alguém me encontrar uma solução de ler das duas tabelas e gravar em outra no mesmo banco, so com os campos que preciso, seria suficiente, caso contrario me passar a dica de como ler de um banco e gravar em outro.

Muito obrigado.

preciso de alguma informação de como ler de duas tabelas de um banco access, e gravar em outro banco access.

Porque estou fazendo isso??
É porque nao consigo pegar informação de duas tabelas que tenho num banco, consigo pegar apenas de uma, da segunda nao. O problema é que as informações que preciso, uma parte esta em uma tabela, e a outra esta na outra tabela. Como nao encontrei nem uma solução para ler e pegar das duas ao mesmo tempo, resolvi tentar pegar uma de cada vez e gravar em outro banco, que tem a estrutura que preciso. Assim conseguiria passar as informaçoes das tabelas que nao condigo ler, e por em uma só, assim conseguiria obter as informações sem complicação.

vou postar meu codigo aqui, para caso alguem queira dar uma olhada, e se possivel encotrar uma das duas soluções pramim.

desde já, agradeço....

Obrigado.

<%option explicit

dim dsn,dsnb,conn,connb,rs,rsb,sql,sqlb,x
dim D1Dia,D1Mes,D1Ano,D2Dia,D2Mes,D2Ano,Data1,Data2,vDataI,vDataF
dim flag,color,useraction,element
x = 0
dsn="DBQ=" & Server.Mappath("db\a30movto.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set conn = server.createObject("adodb.connection")
set rs = server.createObject("adodb.recordset")
conn.open dsn


'/***********************************************/
D1Dia = Left(request.querystring("vDataI"),2)
D1Mes = Mid(request.querystring("vDataI"),4,2)
D1Ano = Right(request.querystring("vDataI"),4)

D2Dia = Left(request.querystring("vDataF"),2)
D2Mes = Mid(request.querystring("vDataF"),4,2)
D2Ano = Right(request.querystring("vDataF"),4)

Data1 = D1Mes & "/" & D1Dia & "/" & D1Ano
Data2 = D2Mes & "/" & D2Dia & "/" & D2Ano
'/*********************************************/

if (request.querystring("vDataI") <> "" and request.querystring("vDataF") <> "") then

sql = "select * from a30caixa_detalhe where dt_movto >= " & "#" & Data1 & "#" & " and dt_movto <= " & "#" & Data2 & "#" & ""
'sql = "select * from a30caixa_prog where dt_movto >= " & "#" & Data1 & "#" & " and dt_movto <= " & "#" & Data2 & "#" & ""
'Essa linha acima com comentario, é a linha com o nome da outra tabela que preciso fazer a consulta

sql=sql & "order by dt_movto"
''response.write sql'***debug
rs.open sql,conn

if rs.eof and rs.bof then
response.write "Registro nao cadastrado ou Banco está Vazio"
else
response.write "<table width=800 border=0><th align=left>Carro</th>"
response.write "<th align=left>Data de Movimento</TH><th align=left>Doc. nº</TH>"
response.write "<th align=left>Quantidade</TH><th align=left>Preço de Venda</TH>"
response.write "<th align=left>Valor Total</TH><th align=left>Tipo Carro</TH>"
response.write "<th align=left>Placa</TH><th align=left>Km Saída</TH>"

do while not rs.eof
if flag=0 then
flag=1
color="#87CFFA"
else
flag=0
color="#FFFFFF"
end if

response.write "<TR bgcolor="& color & "><td>"
response.write RS("cliente") &"</td><td>"
response.write RS("dt_movto") &"</td><td>"
response.write RS("documento") &"</td><td>"
response.write RS("quantidade") &"</td><td>"
response.write RS("vl_venda_c") & "</td><td>"
response.write RS("vl_cliente") & "</td><td>"
'' response.write RS("nome") &"</td><td>"
''response.write RS("placa") & "</td><td>"
''response.write RS("km") & "</td>"
'Esses tres campos com commentario, sao os campos que preciso da outra tabela
rs.movenext
x=x+1
loop
response.write "<tr><td colspan=5>Total de Registros : " & x & "</table>"
''conn.close
''set conn = nothing

end if

end if

%>