VS Flex Grid 7 : сохранить результаты запроса
От: Russel  
Дата: 20.02.02 07:31
Оценка:
Имеем элемент управления VSFlexGrid
Там отображается результат какого-нибудь запроса
я хочу сохранить данные в файле, чтобы потом можно было восстановить рекордсет.
Какие варианты есть?
Можно использовать BindToArray, а затем сохранить в простом текстовом файле(если кто знает как, напишите, плз.)
Может кто предложит получше что-нибудь?
Re: VS Flex Grid 7 : сохранить результаты запроса
От: Toughpheeckouse Россия  
Дата: 20.02.02 07:45
Оценка:
Здравствуйте Russel, Вы писали:

R>Имеем элемент управления VSFlexGrid

R>Там отображается результат какого-нибудь запроса
R>я хочу сохранить данные в файле, чтобы потом можно было восстановить рекордсет.
R>Какие варианты есть?
R>Можно использовать BindToArray, а затем сохранить в простом текстовом файле(если кто знает как, напишите, плз.)
R>Может кто предложит получше что-нибудь?

попробуй:

Syntax     
[form!]VSFlexGrid.SaveGrid FileName As String, SaveWhat As SaveLoadSettings, [ FixedCells As 
Boolean ]
Remarks    
This method saves a grid to a binary or to a text file. The grid may be retrieved later with
the LoadGrid method. Grids saved to text files may also be read by other programs, such as 
Microsoft Excel or Microsoft Word.
Думайте сами, решайте сами...
Re: VS Flex Grid 7 : сохранить результаты запроса
От: Hens Россия  
Дата: 22.12.02 12:12
Оценка:
Здравствуйте, Russel, Вы писали:

R>Имеем элемент управления VSFlexGrid

R>Там отображается результат какого-нибудь запроса
R>я хочу сохранить данные в файле, чтобы потом можно было восстановить рекордсет.
R>Какие варианты есть?
R>Можно использовать BindToArray, а затем сохранить в простом текстовом файле(если кто знает как, напишите, плз.)
R>Может кто предложит получше что-нибудь?


Лучше всего сохранится в XML вот так это делается(код под формой):

Dim rs As ADODB.Recordset

Private Sub cmdLoad_Click()
Set rs = New ADODB.Recordset
rs.Open App.Path + "\DATA\00_2.xml", "Provider=MSPersist;", adOpenStatic, adLockOptimistic, False
Set Me.VSFlexGrid1.DataSource = rs
End Sub

Private Sub cmdSave_Click()
rs.Save App.Path + "\DATA\00_2.xml", adPersistXML
End Sub

Значение DataMode у флекса flexDMBound
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.