Dim rm As New ADODB.Recordset
Call rm.Open("select * from <Name Table>", <connection>, adOpenStatic, adLockReadOnly, adCmdText)
   
Do While Not rm.EOF
            ....
            rm.MoveNext
Loop

Private Sub Form_Load()
Dim cn As ADODB.Connection, rs As Recordset, com As ADODB.Command
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.ConnectionString = "DSN=DB1"
    cn.CursorLocation = adUseClient
    cn.Open
    rs.Open "select top 50000 * from TABLE1", cn, adOpenStatic, adLockOptimistic, adCmdText
    rs.MoveFirst
    Do While Not rs.EOF
        rs.MoveNext
    Loop
End Sub

select * from Jour_591  where Op_numb >'0000000000' and Op_numb<='0000030000' order by Op_numb

select * from Jour_591  where Op_numb >'00000300000' and Op_numb<='0000060000' order by Op_numb

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы