ник: Igor_R
Уважаемые господа!
Буду признателен за помощь в таком вопросе:
Создал пустую форму без привязки к какой либо таблице.
На событие Load этой формы создаю ADO connection к Фоксовской базе,
получаю рекордсет.
После чего пишу Set Form_Имя.Form.Recordset = rs.
или Me.Recordset=rs
При загрузке форма успешно все проглатывает
Но остаётся пустой и рекордсет не отображает, хотя внизу, на счетчике записей указывает правильное количество записей и показывает, что можно перемещаться по записям. Код такой:
Dim con, con1 As ADODB.Connection
Set con = New ADODB.Connection
Dim st As String
st = "Provider=MSDASQL.1;Persist Security Info=False;Mode=Read;Extended Properties= Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=C:\Дэбээф;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
con.Open st
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sq As String
sq = "SELECT * FROM Фокс_таблица "
Set rs.ActiveConnection = con
With rs
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.LockType = adLockBatchOptimistic
End With
rs.Open (sq)
Set Form_s.Recordset = rs
End Sub