'START Adding column titles ==================================
list1.ColumnCount = objRecordSet.Fields.Count
i = 0
With Me.list1
.Clear
.AddItem
Dim j As Integer
Dim maxFieldsCount As Integer
maxFieldsCount = objRecordSet.Fields.Count - 1
' generic list box addition no column names !!!
For j = 0 To maxFieldsCount
.List(i, j) = objRecordSet.Fields(j).Name
Next
i = i + 1
End With
'STOP Adding column titles ==================================
'START Adding the row values =============================
If (objRecordSet.EOF = True) Then
FlagRecordsExist = True
Else
objRecordSet.MoveFirst
With Me.list1
Do
.AddItem
maxFieldsCount = objRecordSet.Fields.Count - 1
' generic list box addition no column names !!!
For j = 0 To maxFieldsCount
.List(i, j) = objRecordSet(j).Value
Next
i = i + 1
objRecordSet.MoveNext
Loop Until objRecordSet.EOF
End With
'STOP Adding the row values =============================
End If
Posts
Lost ASP.NET Identity Cookies on IIS Application Pool Restarts
-
[image: Cookie Monster Attack On Iis]
Last week I finally updated my blog and moved it to .NET 10 from the
ancient WebForms based engine I built 20 years...
2 weeks ago
No comments:
Post a Comment
- the first minus - Comments have to be moderated because of the spammers
- the second minus - I am very lazy at moderating comments ... hardly find time ...
- the third minus - Short links are no good for security ...
- The REAL PLUS : Any critic and positive feedback is better than none, so your comments will be published sooner or later !!!!