Associare
controlli VB al Database |
In
questa seconda parte vedremo come immettere, e quindi riempire
i vari campi del nostro database.
Dobbiamo associare ai campi del database, dei controlli che
fungeranno da mezzo di inserimento.
I campi del nostro archivio musicale sono 5, per cui mettiamo
sul form, 5 controlli Textbox. Ognuno di essi sarà
collegato con un singolo campo del database, collegato a sua
volta al controllo data1. Avremo cioè la Text1 collegata
col campo ' Artista ', Text2 col campo ' Album ', ect, ect
Per ognuno di essi procedere nel modo seguente:
andare sul pannello "Proprietà", e cercare
la proprietà ' DataSource ' e scegliere 'data1' (abbiamo
così indicato a quale database fare riferimento)
andare
su ' DataField' e scegliere 'Artista':
Ovviamente,
per le altre Textbox dovremo associare alla proprietà
' datafield ', gli altri campi a disposizione nella lista,
mentre per la proprietà 'datasource' sceglieremo nuovamente
data1.
Come
al solito per creare un interfaccia utente comprensibile,
affiancheremo alle Textbox delle Label che indicheranno il
campo a cui la Textbox è associata, come mostra la
figura seguente:
Quindi
mettiamo due Commandbutton sulla form nominandoli 'Nuovo'
e ' Salva':
Il
tasto ' Nuovo ' predisporrà il database all'immissione
di un nuovo dato
'
Salva ' lo salverà effettivamente sul database
Per
evitare inserimenti errati, si può fare in modo che
le Text siano disabilitate, ponendo la proprietà Text1.Enable
= False,
Una volta cliccato sul tasto 'Inserisci' le Text si riabiliteranno,
avremo quindi:
Private
Sub
Command1_Click()
Data1.Recordset.AddNew
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
End Sub |
Quando
sarà inserito l'ultimo campo, ossia la Text5 si verificherà
che il bottone 'Nuovo' si disabiliterà, mentre 'Salva'
si abiliterà :
Private
Sub Text5_Change()
Command2.Enabled = True
Command1.Enabled = False
End Sub |
Ecco
il codice relativo al salvataggio dei dati sul database:
Private
Sub
Command2_Click()
Data1.UpdateRecord
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Command1.Enabled = True
Command2.Enable = False
End Sub |
|