La plupart des programmes informatiques connectés à un fichier de base de données permettent aux utilisateurs finaux de visualiser et de manipuler les données sans avoir à interagir directement avec la base de données. Dans une application de saisie de données, un formulaire de recherche permet à l'utilisateur de rechercher des enregistrements spécifiques dans un tableau qui correspond aux critères prévus. Cela limite la quantité de données téléchargées à partir de la base de données et affichées sur le formulaire. Les informations récupérées peuvent ensuite être analysés, modifiés, supprimés ou envoyés à l'imprimante pour produire une copie papier. Pour créer un formulaire de recherche pour un projet Visual Basic, le programmeur doit avoir des connaissances de base en conception de formulaire Visual Basic et de codage, ainsi que la requête de base de données.
Chargez l'environnement Visual Basic à partir de votre ordinateur en cliquant sur "Startgt; Programsgt; 6.0gt Microsoft Visual Studio; Microsoft Visual Basic 6.0".
Sélectionner "EXE standard" du "Nouveau Projet" boîte de dialogue qui apparaît. Cliquez "Ouvert" bouton pour passer.
Glissez et déposez les contrôles de la "Boîte à outils" dans le formulaire de concevoir l'interface et définir les propriétés individuelles suite sous la "Propriétés" fenêtre. Un formulaire de recherche a généralement des zones de texte où les utilisateurs tapent mots à rechercher contre la base de données, des étiquettes, des boutons de commande, la grille pour afficher le résultat, et le contrôle de la base de données qui relie la forme dans la table au sein de la base de données. Continuer avec la conception de la forme comme préféré.
Cliquez "Viewgt; code" dans le menu pour aller à la section de code. Ceci est où vous allez écrire les codes sources pour votre projet.
Aller à "Form_Load" événement en cliquant sur le nom de l'événement approprié dans les listes déroulantes dans la section des codes. Entrez un code similaire à celui ci-dessous. Ce code va définir les propriétés de connexion de votre contrôle de données et relie la grille pour le fichier de base de données.
Avec Adodc1
.ConnectionString = "- [Saisissez votre chaîne de connexion ici]".CursorType = adOpenKeyset
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.CommandType = adCmdTable
.RecordSource = "- [Tapez le nom d'une table ou d'une requête ici]"
.Rafraîchir
End With
Avec Grid1
Réglez .DataSource = Adodc1.HighLight = flexHighlightWithFocus
.ColWidth (0) = .ColWidth (0) + 1000'this est la colonne échantillon changement sans dimension comme préféré
.ColWidth (1) = .ColWidth (1) + 1800
.ColWidth (2) = .ColWidth (2) + 1800
.ColWidth (3) = .ColWidth (3) + 2300
.Rafraîchir
.TabIndex = 0
End With
Double-cliquez sur la zone de texte où l'utilisateur entrera dans les critères de recherche. Par exemple, l'utilisateur veut rechercher certains noms de famille à partir de la base de données et il va taper les lettres dans la case de recherche. Lorsque correspondances sont trouvées, les enregistrements seront affichés sur la grille. Dans la section de code, aller à "Text1_Change ()" événement et l'entrée d'un code semblable au suivant:
Dim t as String
Si Text1.Text lt; gt; "" Puis
Si Adodc1.Recordset.RecordCount lt; gt; 0 Thent = "- *"- + Text1.Text + "- *"
Adodc1.Recordset.Filter = "-NOM comme '"- + t + "- '"
End If
Autre
Adodc1.Recordset.Filter = adFilterNone
End If
Appuyez sur la "F5" touche pour exécuter le projet. Testez le programme et vérifier si elle fonctionne comme il se doit.
Enregistrez le projet en cliquant sur "Filegt; Save Project As" dans le menu et fournir un nom de fichier descriptif.