Così:
' Creiamo gli oggetti
SET objConn = .......
objConn.Open = .......
SET objRS = .........
' Impostiamo il valore da utilizzare
email = tuaemail@indirizzo_email.ext
' Impostiamo l'estrazione del valore dalla prima tabella
strSQL = "SELECT Email1 FROM Tabella1 WHERE Email1 = '" email &"';"
objRS.Open strSQL, objConn
' Eliminiamo dalla seconda tabella il record con campo email
' corrispondente all'email della prima tabella
strSQL2 = "DELETE FROM Tabella2 WHERE Email2 = '" & objRS("Email1") & "';"
objConn.Execute strSQL2
' Chiudiamo e distruggiamo gli oggetti
objRS.Close
SET objRS = Nothing
objConn.Close
SET objConn = Nothing
O più semplicemente, se esiste una relazione tra le due tabelle impostata sul campo email:
' Creazione degli oggetti
SET objConn = .......
objConn.Open = .......
' Impostazione della Query
strSQL = "DELETE Tabella2.* FROM Tabella2 INNER JOIN Tabella1 ON Tabella2.Email2 = Tabella1.Email1 WHERE Tabella1.Email1 = '" & email & "';"
objConn.Execute strSQL
' Chiusura e distruzione dell'oggetto conn
objConn.Close
SET objConn = Nothing
Ciao
Modificato da vitosulla il 08 marzo 2005 17.07 -
