1 reply to this topic

[johnibat]

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

%>

[K I L L I N G]

vc quer ler uma e gravar o que leu nessa no outro bd?
eu fiz um sistema desse para passar os dados de um MySQL para access sabia? eh muito massa...
eh soh fazer duas conexões com nomes diferentes, dois recordsets e criar um Do while !

VALEW?