Generazione delle applicazioni della base di dati in VB |
|
|
Breve introduzione agli usi delle basi di dati di accesso
|
Che cosa penso � la cosa costringente circa di base visivo � esso � senso facile di modificazione e di accesso a delle basi di dati. Ci� � che cosa penso che dovrte imparare dopo e troverete molte domande di questa conoscenza. Senza usando una base di dati per l'immagazzinaggio di dati, non faccio quasi mai il programma.
Ci sono molti sensi funzionare con le basi di dati in di base visivo e penserei che aveste gettato uno sguardo almeno al controllo di dati e poich� � cos� facile da usare ed ugualmente limitato per essere interessante per uno sviluppatore professionista, neppure non accenner� il controllo di dati pi� ulteriormente in questo testo. (Giusto, ci sono alcune eccezioni a questo.)
Che cosa gli insegner� che usare in questo testo � DAO (dati accede agli oggetti) ed otterrete al corrente dell'apertura della base di dati ed aggiungere/richiamare/cancellare/che aggiorna registra dalle tabelle. User� soltanto una base di dati di accesso (*.mdb) nei miei esempi e poich� questo � il DBMS pi� usato (sistema di amministrazione della base di dati) per le pi� piccole domande fatte in di base visivo. Volont� alla conclusione di questa lezione abbiamo fatto un semplice ma funzionale, applicazione del libro di telefono.
|
Oggetto della base di dati
|
La prima cosa che dovete fare nella vostra applicazione � di aprire una base di dati in cui le vostre tabelle sono immagazzinate e dovete dichiarare una variabile per tenere la vostra base di dati per fare questo. Ci� � fatta con la seguente dichiarazione:
|
|
Ci� gli d� un oggetto/variabile che possono tenere un riferimento alla vostra base di dati. Per aprire una base di dati semplice di accesso chiamata �MyDatabase.mdb� e fare questo:
|
Set dbMyDB = OpenDatabase("MyDatabase.mdb")
|
|
Dovreste realmente specificare il percorso completo al db e se il vostro indice corrente � l'indice in cui la base di dati � situata, questa funzioner�.
Cos�, ora avete aperto una base di dati e questa gli non dar� alcuni dati. Che cosa dovete fare � di aprire una tabella nella base di dati in se. Non siete limitati per aprire una singola tabella ed a volte avete due o pi� tabelle che sono riferite l'un l'altro e chiavi straniere insieme collegate del ith di W e ci sono sensi maneggiare
|
Oggetto di RecordSet
|
Per tenere la vostra tabella, gli usi di base visivi un oggetto hanno denominato RecordSet. Per dichiarare un tal oggetto e per aprire la tabella, redigere la seguente dichiarazione:
|
Dim rsMyRS As RecordSet
Set rsMyRS = dbMyDB.OpenRecordSet("MyTable", dbOpenDynaset)
|
|
Che cosa � accaduto l�? Bene, ho dichiarato un oggetto di RecordSet ed ho usato il metodo di OpenRecordSet dell'oggetto della base di dati per aprire una tabella di tipo Dynaset e potete aprire un RecordSet in parecchi modi. La lima in linea di aiuto del VB spiega i modi differenti e che cosa ar e per. Il modo di Dynaset � il modo che uso principalmente e gli d� un RecordSet che potete aggiungere, cancellare e modificare le annotazioni poll.
|
Annotazioni d'accesso
|
Ora che abbiamo aperto una tabella (citata come RecordSet d'ora in poi) desideriamo accedergli le annotazioni e l'oggetto di RecordSet permette che noi ci muoviamo in esso usando i metodi MoveFirst, MoveNext, MovePrevious, MoveLast (tra altri). User� alcuni di questi per riempire in su una casella di riepilogo che di annotazioni del nostro RecordSet.
Per convincere questo esempio per funzionare, fare una base di dati (con accesso) �MyDatabase.mdb� chiamato con la tabella �MyTable� in esso e questa tabella dovrebbe avere i campi �identificazione� di tipo �contro� quel voi regolati per essere la chiave primaria, il campo �nome� di tipo testo e un campo �hone di P� di tipo testo. Aggiungere alcune annotazioni ad esso e mettere una casella di riepilogo su una forma e denominarla �lstRecords�.
|
Dim dbMyDB As Database
Dim rsMyRS As RecordSet
Private Sub Form_Load()
Set dbMyDB = OpenDatabase("MyDatabase.mdb")
Set rsMyRS = dbMyDB.OpenRecordSet("MyTable", dbOpenDynaset)
If Not rsMyRS.EOF Then rsMyRS.MoveFirst
Do While Not rsMyRS.EOF
lstRecords.AddItem rsMyRS!Name
lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!ID
rsMyRS.MoveNext
Loop
End Sub
|
|
Ricerca del RecordSet
|
Potreste domandarti perch� ho messo il valore del campo �identificazione� nella propriet� di ItemData della casella di riepilogo ed ho fatto questo in modo che conoscessimo la chiave primaria per tutte le annotazioni per cercare un'annotazione.
Mettere una casella di testo in qualche luogo sulla forma e denominarla �txtPhone�. Allora copiare il seguente codice al progetto.
|
Private Sub lstRecords_Click()
rsMyRS.FindFirst "ID=" & Str(lstRecords.ItemData(lstRecords.ListIndex))
txtPhone.Text = rsMyRS!Phone
End Sub
|
|
Aggiornamento della base di dati
|
Nel fare la base di dati che si programma, probabilmente desidererete potere aggiornare un certo valore di un certo campo. Ci� � fatta con pubblica ed aggiorna e proveremo a cambiare il valore del giacimento �del telefono� pubblicando il testo nella casella di testo e scattando un tasto.
Mettere un pulsante di comando sulla forma e chiamarlo �cmdUpdate�. Allora copiare il seguente codice al progetto
|
Private Sub cmdUpdate_Click()
rsMyRS.Edit
rsMyRS!Phone = txtPhone.Text
rsMyRS.Update
End Sub
|
|
Cancellando ed aggiungendo le annotazioni
|
Cancellazione
|
La cancellazione delle annotazioni non potrebbe essere pi� semplice e cancellare l'annotazione che corrente invocate appena il metodo di cancellazione dell'oggetto di RecordSet. Metteremo questa caratteristica nel nostro progetto piccolo e fare un nuovo pulsante di comando chiamato �cmdDelete� ed il seguente codice far� il lavoro di cancellazione della nostra persona attualmente selezionata.
|
Private Sub cmdDelete_Click()
rsMyRS.Delete
lstRecords.RemoveItem lstRecords.ListIndex
End Sub
|
|
Aggiunta
|
La aggiunta delle annotazioni � tanto come updateing, a meno che usiate AddNew anzich� pubblichiate ed aggiungiamo un nuovo pulsante di comando alla nostra applicazione. Denominiamola� il errh� lo ha lasciato vedere� il yea! �cmdNew� =). Qui � il codice che aggiunge una nuova annotazione.
|
Private Sub cmdNew_Click()
rsMyRS.AddNew
rsMyRS!Name = "A New Person"
lstRecords.AddItem rsMyRS!Name
lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!ID
rsMyRS!Phone = "Person's Phone Number"
rsMyRS.Update
End Sub
|
|
Keywords:
Creating database applications in VB,
visual basic applications,
visual basic database,
how to database,
vb source code,
visual basic vb,
vb ms access,
visual basic net applications,
microsoft access database,
ms access database,
asp net database,
sql server database,
connect to database,
vb asp net,
vb array,
database tutorial,
text creating,
xml database,
asp database,
php database,
c# database
|