VB6, Visual Basic 6, ADODB.Recordset, ADODB.Connection, Открыть рекордсет, sql-запрос, Соединение с базой данных, перебор рекордсета, обход рекордсета, значение поля рекордсета
sql - запрос к базе данных
cn - соединение с базой данных (ADODB.connection)
rcd - рекордсет (ADODB.Recordset)
sql = ""
sql = "SELECT * FROM dbTableName"
rcd.Open sql, cn, adOpenStatic
rcd.MoveFirst
While Not rcd.EOF
MsgBox rcd("TableFieldValue")
rcd.MoveNext
Wend
cn - соединение с базой данных (ADODB.connection)
rcd - рекордсет (ADODB.Recordset)
sql = ""
sql = "SELECT * FROM dbTableName"
rcd.Open sql, cn, adOpenStatic
rcd.MoveFirst
While Not rcd.EOF
MsgBox rcd("TableFieldValue")
rcd.MoveNext
Wend
