Hi
This code works fine in Desktop application with and without records Limit, but it doesn’t work in Web application. I have to Limit to max 20 records otherwise it crashes. Max records is 99 in DB.
Any Ideas?
Thanks.
If vpdatabase.Connect then //If the database connected:
Dim sql As String
sql = “SELECT * FROM PersonCmp LIMIT 20”
Dim data As RecordSet
data = vpdatabase.SQLSelect(sql)
If vpdatabase.Error Then
MsgBox("DB Error: " + vpdatabase.ErrorMessage)
Return
End If
If data <> Nil Then
While Not data.EOF
listbox1.AddRow(data.IdxField(1).StringValue, data.IdxField(2).StringValue, _
data.IdxField(3).StringValue, data.IdxField(4).StringValue)
data.MoveNext
Wend
data.Close
End If
end if