ADO update confused!

[bservello]

How can I just move thought a recordset and update records which meet my criteria, it updates the whole file.

This is what I am doing.




Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset

Set cn1 = New ADODB.Connection
cn1.ConnectionString = "Provider=MSDASQL.1;" _
& "Persist Security Info=False;" _
& "DSN=Visual FoxPro Tables;" _
& "UID=;" _
& "PWD=;" _
& "SourceDB=c:\ado;" _
& "SourceType=DBF;" _
& "Exclusive=No;" _
& "BackgroundFetch=Yes;" _
& "Collate=Machine;" _
& "Null=Yes;" _
& "Deleted=Yes;"

If cn1.State = 1 Then
cn1.Close
Else
cn1.Open
End If
cn1.CursorLocation = adUseClient

Set rs1 = New ADODB.Recordset
rs1.Open "SELECT * FROM test", cn1, adOpenKeyset, adLockOptimistic

For x = 1 To rs1.RecordCount
With rs1
!Name = "I know"
.MoveNext
End With
Next x

rs1.Close
cn1.Close

[marex]

Why going to the full table.

Use a WHERE clausule in the SELECT statement.

rs1.Open "SELECT * FROM test WHERE fieldname = '" & yourcriteria & "' ",cn1, adOpenKeyset, AdLockOptimistic

Now you have only those records matching your criteria.

cheers
Ray

[bservello]

Because I built a nth select program, say if I have 100 records and I only want to choose 10 I create a flag field move throught the records and with a fomula calculate 10 out of the 100 and mark the flag field.

I'm having a hard time because when I use this

rs!field = "K"
rs.update
rs.movenext


it updates my whole file.

Bruno