Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
counter = 0 limit = 5 Dim cConnection Set cConnection = CreateObject("ADODB.Connection") //setting variables here for connection string, username, password. cConnection.Open DBConString,DBUser,DBPass SQLstmt = "SELECT field1, field2 from Table1 WHERE Field1 IS NULL" Set RS = cConnection.Execute(SQLstmt) while (not RS.EOF) AND (counter < limit) msgbox("Field1: " & RS.Fields.Item("field1").value) //do other stuff counter = counter + 1 RS.Movenext() wend
Join the community of 500,000 technology professionals and ask your questions.