'On admet que tu as récuperé le contenu de ta table dans un DataSet !
dim arr(), SQLcmd as string
dim a, b, x, y, z as short
for i = a to b
for j = x to y
if table1(i) = table2(j) Then array(z) = table1(i).Value '(en gros)
redim preserve array(z+1)
z+=1
end if
next j
next i
for i = 0 to z - 1
SQLcmd = "DELETE " & array(i) & " FROM TABLE"
SQLcon() 'fonction de lancement de commande (mode déconnecté)
next |