| Generazione delle applicazioni della base di dati di VB usando controllo di ADO |
 |
 |
|
Tuttavia, il controllo di dati non è un attrezzo molto flessibile perché potrebbe funzionare soltanto con i generi limitati di dati e deve funzionare rigorosamente nell'ambiente di base visivo. Possiamo usare un controllo di dati molto più potente in VB conosciuto come controllo di ADO per sormontare queste limitazioni. Il ADO corrisponde agli oggetti di dati di Activex e mentre il ADO è Activex-ha basato, potrebbe funzionare nelle piattaforme differenti (sistemi di elaborazione differenti) e nei linguaggi di programmazione differenti. Inoltre, potrebbe accedere a molti generi differenti di dati quale i dati visualizzati nei browsers del Internet, nel testo del email e perfino in grafici tranne le informazioni usuali della base di dati relazionale e non relazionale.
Per potere usare il controllo di dati di ADO, dovete inserirli nel toolbox e fare questo, premere semplicemente Ctrl+T per aprire la finestra di dialogo dei componenti e per selezionare il controllo di dati di Microsoft Activex 6. Dopo questo soltanto, potete continuare costruire il vostro ADO-avete basato le applicazioni della base di dati di VB.
Il seguente esempio illustrerà come sviluppare un'applicazione relativamente potente della base di dati usando il controllo di dati di ADO ed in primo luogo, chiamare la nuova forma come frmBookTitle e cambiare il relativo titolo all'applicazione di ADO delle mattonelle del libro. Secondariamente, inserire il controllo di dati di ADO e chiamarlo come adoBooks e cambiare il relativo titolo al libro e seguente, inserire le etichette, le caselle di testo ed i pulsanti di comando necessari. L'interfaccia runtime di questo programma è indicata nello schema qui sotto e concede aggiungere ed omissione così come l'aggiornamento e la lettura rapida dei dati.
|
| Punti per sviluppare l'applicazione della base di dati usando ADO
|
| Step1: Le proprietà di tutti i comandi sono elencate come seguono:
|
| Form Name |
frmBookTitle |
| Form Caption |
Book Titles -ADOApplication |
| ADO Name |
adoBooks |
| Label1 Name |
lblApp |
| Label1 Caption |
Book Titles |
| Label 2 Name |
lblTitle |
| Label2 Caption |
Title : |
| Label3 Name |
lblYear |
| Label3 Caption |
Year Published: |
| Label4 Name |
lblISBN |
| Label4 Caption |
ISBN: |
| Labe5 Name |
lblPubID |
| Label5 Caption |
Publisher's ID: |
| Label6 Name |
lblSubject |
| Label6 Caption |
Subject : |
| TextBox1 Name |
txtitle |
| TextBox1 DataField |
Title |
| TextBox1 DataSource |
adoBooks |
| TextBox2 Name |
txtPub |
| TextBox2 DataField |
Year Published |
| TextBox2 DataSource |
adoBooks |
| TextBox3 Name |
txtISBN |
| TextBox3 DataField |
ISBN |
| TextBox3 DataSource |
adoBooks |
| TextBox4 Name |
txtPubID |
| TextBox4 DataField |
PubID |
| TextBox4 DataSource |
adoBooks |
| TextBox5 Name |
txtSubject |
| TextBox5 DataField |
Subject |
| TextBox5 DataSource |
adoBooks |
| Command Button1 Name |
cmdSave |
| Command Button1 Caption |
&Save |
| Command Button2 Name |
cmdAdd |
| Command Button2 Caption |
&Add |
| Command Button3 Name |
cmdDelete |
| Command Button3 Caption |
&Delete |
| Command Button4 Name |
cmdCancel |
| Command Button4 Caption |
&Cancel |
| Command Button5 Name |
cmdPrev |
| Command Button5 Caption |
&< |
| Command Button6 Name |
cmdNext |
| Command Button6 Caption |
&> |
| Command Button7 Name |
cmdExit |
| Command Button7 Caption |
E&xit |
|
|
Step2:
Per potere controllare ed accedere ad una base di dati, dovete collegare il controllo di dati di ADO ad una lima di base di dati. Stiamo andando usare BIBLIO.MDB che viene con VB6 e collegare il ADO a questa lima di base di dati, seguiamo i punti qui sotto:
a) Scattare sopra il controllo di ADO sulla forma ed allora aprire la finestra delle proprietà.
b) Scattare sopra la proprietà di ConnectionString, la seguente finestra di dialogo comparirà.
|
|
step3:
quando la finestra di dialogo compare, selezionare l'opzione di uso della stringa del collegamento e la configurazione di scatto e seguente ed alla finestra di dialogo di programmazione dei dati, doppio-Scatto l'opzione identificata fornitore OLE di DB del getto 3.51 di Microsoft.
|
|
Step4:
Dopo il quel, scattare il tasto seguente per selezionare la lima BIBLO.MDB e potete scattare sopra il collegamento del testo per accertare il collegamento adeguato della lima di base di dati. APPROVAZIONE di scatto per rifinire il collegamento.
Per concludere, scattare sopra la proprietà di RecordSource e regolare il tipo di ordine alla Tabella del adCmd e nome della Tabella ai titoli ed ora dovete realmente usare la lima di base di dati.
|
|
Step5:
Ora, dovete scrivere il codice per tutti i pulsanti di comando e dopo di che, potete rendere il controllo di ADO invisibile.
|
|
Per il tasto risparmi, i codici di programma sono come seguono:
|
Private Sub cmdSave_Click()
adoBooks.Recordset.Fields("Title") = txtTitle.Text
adoBooks.Recordset.Fields("Year Published") = txtPub.Text
adoBooks.Recordset.Fields("ISBN") = txtISBN.Text
adoBooks.Recordset.Fields("PubID") = txtPubID.Text
adoBooks.Recordset.Fields("Subject") = txtSubject.Text
adoBooks.Recordset.Update
End Sub
|
|
|
Per il tasto di aggiunta, i codici di programma sono come seguono:
|
Private Sub cmdAdd_Click()
adoBooks.Recordset.AddNew
End Sub
|
|
|
Per il tasto di cancellazione, i codici di programma sono come seguono:
|
Private Sub cmdDelete_Click()
Confirm = MsgBox("Are you sure you want to delete this record?", vbYesNo, "Deletion Confirmation")
If Confirm = vbYes Then
adoBooks.Recordset.Delete
MsgBox "Record Deleted!", , "Message"
Else
MsgBox "Record Not Deleted!", , "Message"
End If
End Sub
|
|
|
Per il tasto dell'annullamento, i codici di programma sono come seguono:
|
Private Sub cmdCancel_Click()
txtTitle.Text = ""
txtPub.Text = ""
txtPubID.Text = ""
txtISBN.Text = ""
txtSubject.Text = ""
End Sub
|
|
|
Per il precedente (<>
cmdPrev_Click secondario riservato ()
|
Private Sub cmdPrev_Click()
If Not adoBooks.Recordset.BOF Then
adoBooks.Recordset.MovePrevious
If adoBooks.Recordset.BOF Then
adoBooks.Recordset.MoveNext
End If
End If
End Sub
|
|
|
Per (>) il tasto seguente, i codici di programma sono
|
Private Sub cmdNext_Click()
If Not adoBooks.Recordset.EOF Then
adoBooks.Recordset.MoveNext
If adoBooks.Recordset.EOF Then
adoBooks.Recordset.MovePrevious
End If
End If
End Sub
|
|
Keywords:
Creating VB database applications using ADO,
visual basic applications,
how to database,
visual basic database,
ado ms access,
ado asp net,
visual basic ado,
ado connection string,
vb ms access,
visual basic using,
microsoft access ado,
microsoft access database,
ms access database,
asp net database,
ado sql server,
ado visual basic 6,
sql server database,
vb source code,
visual basic net applications,
visual basic vb,
using sql server,
using source code
|
