Potrei con una sola query di eliminazione fare la stessa cosa su più tabelle contemporaneamente?
Potrei con una sola query di eliminazione fare la stessa cosa su più tabelle contemporaneamente?
La classica query di eliminazione è quella che ti ho postato sopra.
Se volessimo arrampicarci sui vetri si potrebbe tentare di mettere in JOIN più tabelle e poi lanciare la eliminazione
ma la vedo estremamente brutta, lo sconsiglio
invece se usi VBA lo puoi fare tranquillamente,
ti crei tante query semplici e le lanci singolarmente
codice:Public Sub ElimPiuTabelle() ' dichiaro una variabile stringa Dim strSql As String ' creo una stringa che sia una qyery DELETE da Tab 1 strSql = "DELETE * FROM Tab1 AS T WHERE T.Data=(SELECT Max(Tab1.Data) FROM Tab1;);" ' eseguo la prima query DBEngine(0)(0).Execute strSql ' Modifico la stringa per eliminare da un'altra tabella ( Tab 2 ) strSql = "DELETE * FROM Tab2 AS T WHERE T.Data=(SELECT Max(Tab2.Data) FROM Tab2;);" ' eseguo la seconda query DBEngine(0)(0).Execute strSql ' Modifico la stringa per eliminare da un'altra tabella ( Tab 3 ) strSql = "DELETE * FROM Tab3 AS T WHERE T.Data=(SELECT Max(Tab3.Data) FROM Tab3;);" ' eseguo la terza query DBEngine(0)(0).Execute strSql ' eccetera per tutte le tabelle End Sub