Devo fare la seguente operazione:
- prendere tutti i valori (tra loro diversi) della colonna "Cod_OBS" della tabella "Competenze" del database "ProgStratFA_Gestione.mdb";
- ognuno dei valori trovati nel punto precedente mi serve come chiave per cancellare un record della tabella "OBO" del database "ProgStratFA_Dati.mdb".
Vorrei fare qualcosa del genere:
ma sò che non posso aprire contemporaneamente due database.codice:<% url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.mappath("DATABASE/ProgStratFA_Gestione.mdb") set connobj = Server.CreateObject( "ADODB.Connection" ) connobj.Open url_DB str_OBS = "SELECT Cod_OBS FROM Competenze WHERE ANNO='" & anno & "' and UTENTE='" & utente & "' and COD_PP='" & pp & "'" set Mostra_OBS = server.createobject("adodb.recordset") Mostra_OBS.open str_OBS, connobj, 3, 3 url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.mappath("DATABASE/ProgStratFA_Dati.mdb") set connobj_ = Server.CreateObject( "ADODB.Connection" ) connobj_.Open url_DB while not Mostra_OBS.eof SQL= "DELETE * FROM OBO WHERE ANNOOBS='" & anno & "' and CODOBS='" & Mostra_OBS("Cod_OBS") & "'" connobj_.Execute SQL Mostra_OBS.MoveNext wend Mostra_OBS.Close set Mostra_OBS = nothing connobj_.close set connobj_ = nothing connobj.close set connobj = nothing %>
Grazie.
Vincenzo

Rispondi quotando
