Fragment kodu jest wart wiecej niz tysiace słów
Uwaga ten kod to tylko wskazówka - moze nie dzialac
Oczywiscie do references v VBA trzeba dodac odpowiednie obiekty
(Obiekt integracji i ew. MXbtbase library)
Kod:
Public baza As New MxBtbase.BtDatabase
Dim res As New BtRecordset
Set res.BtDatabase = xxx.baza
res.Open "zapisy", "2008\06zap_b.dat"
'cos prostego
For i = 0 To res.FieldsCount - 1
msgbox res.FieldName(i)
Next i
' a tu juz operujemy podobnie jak w ambasicu
res.SetKey "virtualne"
res.KeyField("synt") = cint(0)
res.KeyField("poz1") = 0
......
res.GetRec (GETFIRST)
While res.LastError = 0
MsgBox res.Value("dokument")
MsgBox res.Value("kwota")
res.GetRec (GETNEXT)
Wend
Aha baza slownki ma oczywisice inne klucze i pola, ale akurat nie pametam jakie dokladnie stad przyklad dla mojej ulubionej tabeli zapisy