Devo per forza usare un database?

[Jonny Gulash]

Scusate l'inesperienza, ma per fare in modo che un'applicazione si apra con le ultime caratteristiche impostate dall'utente bisogna per forza usare un database? A me basta solo che poche textbox presentino le ultime caratteristiche selezionate...
Uso Visual Basic 5.0

[fiscet]

puoi usare un file di record.

[Jonny Gulash]

Come funzionerebbe...?
è una cosa semplice?

[kikko81]

Dovresti salvare il "Contenuto" delle caselle di testo in un file, per esempio un .txt e nel form load del progetto, o dal menù con voce "CARICA", andare a riichiamare quel file in cui hai memorizzato le informazioni.

Le istruzioni sono semplici, Put - Let - Get etc..

poniamo tu abbia creato un file .txt chiamato impostazioni nel form load scriverai

Private Sub Form_load()
Open "A:\impostazioni.txt" For Input As #1
Line Input #1, riga
Text1.Text = riga
Close 1
End Sub



quando salvi

Private Sub Salva_Click()
filelibero = FreeFile
Open "A:\impostazioni.txt" For Output As #filelibero
Print #filelibero, Text1.Text
Close #filelibero
End Sub

[Jonny Gulash]

Il problema tecnico è: come si fa a salvare il contenuto delle caselle in un file .txt?
Ti spiego: mettiamo che voglia fare in modo che 3 caselle di testo mantengano, in apertura di programma, l'ultimo valore impostato dall'utente: come fare?
Spero di non farvi perdere troppo tempo...

in + non ho ben capito cosa intendi per "filelibero"...
e, se vogliamo esgerare, "riga" quale riga sarebbe?

Grazie 1000

[riky78]

puoi usare il Registro si sistema. Datti un'occhio alle funzioni SaveSetting e GetSetting.... Non è difficile

[Nico]

Ma il txt è modificabile da chiunque...quindi si può alterare il programma dall'esterno. O sbaglio?
Qual'è il modo più semplice per proteggere i dati?

[steno12]

fai così:

fai un nuovo progetto:

interfaccia grafica:
Tre caselle di testo
Un command1 con proprietà caption = salva
Un command1 con proprietà caption = leggi
Un command1 con proprietà caption = resetta

e incollate questo codice:

'CODE---------------taglia da quì---------------
Dim a$, b$, c$
Private Sub Command1_Click()
a$ = Text1.Text
b$ = Text2.Text
c$ = Text3.Text
Open "MioFile.txt" For Output As #1
Print #1, a$
Print #1, b$
Print #1, c$
Close #1
End Sub

Private Sub Command2_Click()
Open "MioFile.txt" For Input As #1
Input #1, a$
Input #1, b$
Input #1, c$
Close #1
Text1.Text = a$
Text2.Text = b$
Text3.Text = c$
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
'END-------------fino a quì------------------

di okayit60@katamail.com

fatemi sapere.......

[Nico]

Che bello funziona! Però, come avevo detto, il txt si può modificare anche dall'esterno...non c'è un modo per "bloccarlo"?

[kikko81]

Modifica le proprietà del file .txt
Per esempio rendilo nascosto e di sola lettura.....
così se non sai dov'è non lo può modificare nessuno