Private Sub Command1_Click()
sql = "SELECT DISTINCT A FROM t1"
'SQLs = "Select * From t1"
If RS.State = adStateOpen Then RS.Close
'RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
RS.Open sql, DB, adOpenStatic, adLockOptimistic, adCmdText
With RS
.MoveFirst
Do Until .EOF
f (![a])
DoEvents
.MoveNext
Loop
End With
MsgBox "تمت العملية بنجاح "
End Sub
Sub f(n As String)
Dim F99 As New ADODB.Recordset
Dim R As Long
sql = "SELECT * FROM t1 WHERE A ='" & Trim(n) & "'"
F99.Open sql, DB, adOpenStatic, adLockOptimistic, adCmdText
R = F99.RecordCount
If R < 2 Then: Exit Sub
F99.MoveFirst
F99.MoveNext
Do Until F99.EOF
F99.Delete
F99.MoveNext
Loop
F99.Close
End Sub
Private Sub Form_Load()
PoolConnection
End Sub