Connessione al database con Visual Basic NET? Lo trovi su Opentraining.it Visual Basic Italia
PRINCIPALE > CORSO DI DATABASE PER PRINCIPIANTI

Eseguire una ricerca veloce nell' archivio delle risorse di Visual Basic Italia®: 

Preso dall'archivio...

Premere il pulsante sotto per accedere direttamente ad un articolo o ad un esempio preso in modo casuale dall'archivio.



Ultimo e-book pubblicato:

"INTRODUZIONE AI CSS"

Lo scopo del CSS language è quello di controllare lo stile dei vari elementi che concorrono a formare un
documento HTML.
Si può operare in tre modi collegamento ad un foglio di stile esterno;definizione degli stili all'inizio
del documento utilizzo della proprietà style all'interno di un Tag HTML (embedded style). Questo e-book introduttivo
servirà per apprendere tali nozioni fondametali dei fogli di stile.

Prezzo: € 0.0.
Presentazione:
REAL SOFTWARE RILASCIA LA VERSIONE 5.0 di REALbasic per Windows






Gorizia, 5 maggio 2003 - Active, distributore in esclusiva di REALSoftware, Austin, Tx, annuncia la disponibilità di REALbasic 5.0 per Windows, uno strumento per lo sviluppo semplice da usare che permette agli utenti Windows di tutti i livelli di creare applicazioni personalizzate e di compilarle sia per la piattaforma Windows che per quella Macintosh.
[>>]

http://www.active-software.com

 

Contatti. Utilizzare l'email generica per domande relative al sito:
Porre domande relative al sito
oppure scrivere ad un responsabile di area.
Responsabile del sito: >Andrea Martelli
Responsabile area "Corso di VB":
> Giorgio Abraini

CORSO DI DATABASE PER PRINCIPIANTI: Associare controlli VB al Database (a cura di Salvo)

Questa lezione, consultata da 16602 utenti, è stata giudicata di ottimi contenuti , con un'esposizione perfettamente comprensibile e con un livello di approfondimento ottimo da 50 votanti.


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

Data1.Recordset.AddNew

' Salva ' lo salverà effettivamente sul database

Data1.UpdateRecord

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