ho due tabelle db
tab1
tab2
devo aggiornare il campo codice
della tabella 1 in base al confronto con i campi della tabella 2
il mio ragionamento è stato:
apro un record set della tabella 1 e inizio il ciclo
per ogni record di tab1 apro un ciclo dei record della tab2 e verifico le condizioni
in base al risultato aggiorno il campo della tab1 che mi serve
il codice è questo:
<%percorso="/mdb-database/db2.mdb"%>
<%
set cn=server.CreateObject ("ADODB.Connection")
cn.connectionString="DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)};"& "DBQ=" & SERVER.MapPath(percorso)
cn.open cn
strSql="Select * FROM tab1"
set rs=cn.Execute(strSql)
do while not rs.eof
id=rs("id")
campo1=rs("campo1")
campo2=rs("campo2")
codice=rs("codice")
strSql2="Select * FROM tab2"
set rs2=cn.Execute(strSql2)
id_tab2=rs2("id")
campo1_tab2=rs2("campo1")
campo2_tab2=rs2("campo2")
codice_tab2=rs2("codice")
do while not rs2.eof
if codice=codice_tab2 or campo2=campo2_tab2 then
strSQL3="UPDATE tab1 SET " & _
"codice='" &codice_tab2 & "'" & _
" WHERE id="&id
set rs=cn.Execute(strSql3)
else
codice="00"
end if%>
<% rs2.Movenext
loop%>
<% rs.Movenext
loop%>
ma non funziona dove sto sbagliando?
Rispondi quotando
