Newsgroup: it.comp.lang.visual-basic
Titolo: salvare in vb6

vorrrei chiedervi se, una volta creato un programma di gestione, di un magazzino ad esmpio, si possa salvare il contenutop, in modo che la prox volta che apro il programma ci sia ancora tutto salvato. 
esempio pratico:
creo un programma che mi permetta di inserire dei valori in un array, li inserisco e poi salvo, succesivamente riapro il programma e quei valori li vorrei trovare ancora presenti nell array, e possibile? o devo per forza utilizzare un database,(che al mio malgrado non ne so niente....)
grazie
-- 
lord_ifrid 
------------------------------------------------------------------------
View this thread: 
http://www.itsistemi.net/viewtopic-765974.html
Inviato via 
http://www.itsistemi.net

 utilizzare un database,(che al mio malgrado non ne so niente....)
Puoi usare file di testo, file binari, il registry (!), ma sicuramente 
con un database impieghi un centesimo del tempo.
Ciao
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.

 devo per forza utilizzare un database,(che al mio malgrado non ne so
niente....)
Sappilo :-)
Senza scherzi. Potresti anche studiare un sistema per salvare i tuoi dati
su disco in molti altri modi, ma le potenzialità che ti possono derivare
dall'utilizzo di un database sono enormemente superiori a qualsiasi
sistema possa mai progettare tu. O anche io, per altro :-)
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
Se i tempi non chiedono la tua parte migliore, inventa altri tempi. 
(Baolian, libro II, vv. 16-17)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 con un database impieghi un centesimo del tempo.
Alberto, facciamo cosě: prima di rispondere a qualcuno ci telefoniamo,
cosě risponde solo uno dei due :-)


 così risponde solo uno dei due :-)
Sei lento, ragazzo...


 Sei lento, ragazzo...
Beh...
Le mie amiche non sono affatto scontente di questo...


 Le mie amiche non sono affatto scontente di questo...
A ognuno le proprie soddisfazioni.
Io strambo con due scotte e occhi iniettati di sangue.


 Io strambo con due scotte e occhi iniettati di sangue.
E urlando "yeeeepy", se non ricordo male.
:-)


 
puoi usare l'oggetto PropertyBag, esempio:
=================================================
Option Explicit
Private Sub SalvaStato()
Dim pbOggetti As PropertyBag
Dim vTemp As Variant
     Set pbOggetti = New PropertyBag
     pbOggetti.WriteProperty "posX", Me.Left
     pbOggetti.WriteProperty "posY", Me.Top
     vTemp = pbOggetti.Contents
     Open App.Path + "\salva.pb" For Binary As 1
     Put 1, , vTemp
     Close
End Sub
Private Sub CaricaStato()
Dim pbOggetti As PropertyBag
Dim vTemp As Variant
Dim b() As Byte
     Set pbOggetti = New PropertyBag
     If Dir(App.Path + "\salva.pb") <> "" Then
         Open App.Path + "\salva.pb" For Binary As 1
         Get 1, , vTemp
         Close
         b = vTemp
         pbOggetti.Contents = b
         Me.Left = pbOggetti.ReadProperty("posX")
         Me.Top = pbOggetti.ReadProperty("posY")
     End If
End Sub
Private Sub Form_Load()
     CaricaStato
End Sub
Private Sub Form_Unload(Cancel As Integer)
     SalvaStato
End Sub
===================================================
bye
r

vi ringrazio tutti quanti, allotra mi metto sotto con i database... :(
