- VBプログラマ質問スレ（Ver.6.0 まで） part64
806 ：デフォルトの名無しさん[sage]：2015/08/18(火) 00:19:32.93 ID:idKk+WSR - Sortプロパティで使用してるフィールドの値を変更すると
すぐに並び変わってしまうんだが
何とかならんのか？
Dim rs As New ADODB.Recordset
Dim i As Long
rs.Fields.Append "f1", adVarWChar, 50
rs.Open
For i = Asc("a") To Asc("e")
rs.AddNew "f1", Chr(i)
Next
rs.Sort = "f1 DESC"
Do While Not rs.EOF
MsgBox rs.AbsolutePosition & ": " & rs("f1").Value
If rs("f1").Value = "c" Then
rs("f1").Value = "z"
rs.Update
MsgBox "update後: " & rs.AbsolutePosition & ": " & rs("f1").Value
End If
rs.MoveNext
Loop
| - VBプログラマ質問スレ（Ver.6.0 まで） part64
810 ：806[sage]：2015/08/18(火) 00:25:33.69 ID:idKk+WSR - Filterプロパティでも同じだ。
どんどん減っちゃう
Dim rs As New ADODB.Recordset
Dim i As Long
rs.Fields.Append "f1", adVarWChar, 50
rs.Open
For i = 1 To 5
rs.AddNew "f1", "a"
Next
rs.Filter = "f1='a'"
Do While Not rs.EOF
MsgBox rs.RecordCount
If rs.AbsolutePosition = 3 Then
rs("f1").Value = "z"
rs.Update
MsgBox "update後: " & rs.RecordCount
End If
rs.MoveNext
Loop
|
|