vill gämföra innehållet i ett rs med innehållet i en array. vid lika ska det recordet tas bort. får det ej att fungerar , vad gör jag för fel??



while not rsSql.Eof

for i = 0 to ubound(arrID)
if strComp( rsSql(0),arrID(i) ) = 1 then
rsSql.delete
end if
i=i+1
next
rsSql.MoveNext
'wend

Kansk ska avsluta for satsen när du tagit bort posten...

Dim i
Dim fldField

Set fldField = rsSql(0),

Do Until rsSql.Eof
For i = 0 to ubound(arrID)
if strComp(fldField, arrID(i)) = 0 Then
rsSql.delete
Exit for
end if
i=i+1
next
rsSql.MoveNext
Loop

Skulle nog vara bätre med en delete fråga:

conn.Execute "DELETE * FROM Table1 WHERE Field1='" & Value1 & "' OR Field2='" & Value2 & "'

Jag använder adUseClient och vill inte påverka datan i db.
Det som inte fungerar är själva "delete metoden".

kanske denna:

Dim i
Dim fldField

Set fldField = rsSql(0),

Do Until rsSql.Eof
For i = 0 to ubound(arrID)
if strComp(fldField, arrID(i),1) = 0 Then
rsSql.delete
Exit for
end if
i=i+1
next
rsSql.MoveNext
Loop

la till en etta i strComp funktionen. kan testa med 0 där oxå om inte 1 funkar.

cya,
PatrikB