| Créer des applications de base de données de VB en utilisant la commande d'AGITATION |
 |
 |
|
Cependant, la commande de données n'est pas un outil très flexible parce qu'elle pourrait fonctionner seulement avec des genres limités de données et doit travailler strictement dans l'environnement de base visuel. Nous pouvons employer une commande de données beaucoup plus puissante dans VB connu sous le nom de commande d'AGITATION pour surmonter ces limitations. L'AGITATION représente des objets de données d'ActiveX et pendant que l'AGITATION ActiveX-est basée, elle pourrait fonctionner dans différentes plateformes (différents systèmes informatiques) et différents langages de programmation. En outre, elle pourrait accéder à beaucoup de différents genres de données telles que des données montrées dans les navigateurs d'Internet, le texte d'email et même les graphiques autres que l'information habituelle de base de données relationnelle apparentée et non.
Pour pouvoir employer la commande de données d'AGITATION, vous devez l'insérer dans la boîte à outils et pour faire ceci, serrer simplement Ctrl+T pour ouvrir la zone de dialogue de composants et pour choisir la commande de données de Microsoft ActiveX 6. Après ceci seulement, vous pouvez procéder établir vos applications Agitation-basées de base de données de VB.
L'exemple suivant illustrera comment établir une application relativement puissante de base de données en utilisant la commande de données d'AGITATION et tout d'abord, appeler la nouvelle forme comme frmBookTitle et changer sa légende en application d'AGITATION de tuiles de livre. Deuxièmement, insérer la commande de données d'AGITATION et l'appeler comme adoBooks et changer sa légende en livre et prochain, insérer les étiquettes, les boîtes des textes et les boutons de commande nécessaires. L'interface d'exécution de ce programme est montrée dans le diagramme ci-dessous et elle laisse ajouter et suppression aussi bien que la mise à jour et la lecture rapide des données.
|
| Étapes pour établir l'application de base de données en utilisant l'AGITATION
|
| Step1 : Les propriétés de toutes commandes sont énumérées comme suivent :
|
| 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 :
Pour pouvoir contrôler et accéder à une base de données, vous devez relier la commande de données d'AGITATION à un dossier de base de données. Nous allons employer BIBLIO.MDB qui vient avec VB6 et pour relier l'AGITATION à ce dossier de base de données, suivons les étapes ci-dessous :
a) Cliquer sur la commande d'AGITATION sur la forme et puis ouvrir la fenêtre de propriétés.
b) Cliquer sur la propriété de ConnectionString, la zone de dialogue suivante apparaîtra.
|
|
step3 :
quand la zone de dialogue apparaissent, choisir l'option de la corde de raccordement d'utilisation et prochain, cliquer la construction et à la zone de dialogue de liaison de transmission de données, double-Cliquent l'option marquée Microsoft voyagent en jet le fournisseur OLE du DB 3.51.
|
|
Step4 :
Après celui, cliquer le prochain bouton pour choisir le dossier BIBLO.MDB et vous pouvez cliquer sur le raccordement des textes pour assurer le raccordement approprié du dossier de base de données. OK de clic pour finir le raccordement.
En conclusion, le clic sur la propriété de RecordSource et a placé le type de commande au Tableau d'adCmd et nom de Tableau aux titres et maintenant vous devez vraiment employer le dossier de base de données.
|
|
Step5 :
Maintenant, vous devez écrire le code pour tous boutons de commande et après quoi, vous pouvez rendre la commande d'AGITATION invisible.
|
|
Pour le bouton, les codes de programme sont comme suivent :
|
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
|
|
|
Pour le bouton d'ajouter, les codes de programme sont comme suivent :
|
Private Sub cmdAdd_Click()
adoBooks.Recordset.AddNew
End Sub
|
|
|
Pour le bouton d'effacement, les codes de programme sont comme suivent :
|
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
|
|
|
Pour le bouton d'annulation, les codes de programme sont comme suivent :
|
Private Sub cmdCancel_Click()
txtTitle.Text = ""
txtPub.Text = ""
txtPubID.Text = ""
txtISBN.Text = ""
txtSubject.Text = ""
End Sub
|
|
|
Pour le précédent (<>
cmdPrev_Click secondaire privé ()
|
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
|
|
|
Pour le prochain (>) bouton, les codes de programme sont
|
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
|
