Wie man ein Suchformular für eine Visual Basic-Projekt

Die meisten Computerprogramme, verbunden mit einer Datenbankdatei von Endanwendern anzeigen und Bearbeiten von Daten ohne direkt mit der Datenbank kommunizieren. In eine Anwendung zur Dateneingabe kann ein Suchformular den Benutzer nach bestimmten Datensätzen in einer Tabelle zu schauen, die die Kriterien zur Verfügung gestellt. Dies schränkt die Menge der Daten aus der Datenbank heruntergeladen und auf dem Formular angezeigt. Die abgerufenen Informationen kann dann analysiert, bearbeitet, gelöscht oder werden an den Drucker gesendet werden, um eine gedruckte Version zu produzieren. Um ein Suchformular für ein Visual Basic-Projekt zu erstellen, muss der Programmierer Grundkenntnisse in Visual Basic-Form-Design und Programmierung sowie die Datenbankabfrage.

Anweisungen

1 Die Visual Basic-Umgebung von Ihrem Computer zu laden, indem Sie auf "Start > Programme > Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0".

2 Wählen Sie "Standard-EXE" im Dialogfeld "Neues Projekt", das erscheint. Klicken Sie "Öffnen" um fortzufahren.

3 Drag & drop Steuerelemente aus der "Toolbox" in das Formular zum Entwerfen der Benutzeroberfläche und legen Sie die einzelnen Eigenschaften danach unter dem Fenster "Eigenschaften". Ein Suchformular hat in der Regel Textfelder, wo Benutzer geben Sie Wörter suchen gegen die Datenbank, Etiketten, einige Befehlsschaltflächen, Raster angezeigt, das Ergebnis und die Datenbank-Steuerelement, das das Formular in die Tabelle in der Datenbank verbindet. Weiter mit der Gestaltung der Formulars als bevorzugte.

4 Klicken Sie auf "Ansicht > Code" aus dem Menü um den Code-Abschnitt gehen. Dies ist, wo Sie die Quelltexte für Ihr Projekt zu schreiben.

5 Gehen Sie bis "Form_Load" Ereignis, indem Sie auf den entsprechenden Namen aus der Dropdown-Felder im Abschnitt Code. Einen ähnlich der folgenden Code-Eingabe. Dieser Code wird die Verbindungseigenschaften des Datensteuerelements festgelegt und verbindet das Raster in die Datenbankdatei.

Mit Adodc1

.ConnectionString = "[Type your connection string here]"

.CursorType = adOpenKeyset

.CursorLocation = adUseClient

.LockType = adLockOptimistic

.CommandType = adCmdTable

.RecordSource = "[Type the name of a table or query here]"

.Refresh

Enden mit

Mit Grid1

Set .DataSource = Adodc1

.HighLight = flexHighlightWithFocus

.ColWidth(0) = .ColWidth(0) + 1000 'this is sample column dimension; change as preferred

.ColWidth(1) = .ColWidth(1) + 1800

.ColWidth(2) = .ColWidth(2) + 1800

.ColWidth(3) = .ColWidth(3) + 2300

.Refresh

.TabIndex = 0

Enden mit

6 Doppelklicken Sie auf das Textfeld, in dem der Benutzer die Suchkriterien eingeben wird. Beispielsweise der Benutzer möchte bestimmte Nachnamen aus der Datenbank zu suchen, und er wird geben Sie die Buchstaben in das Suchfeld eingeben. Wenn Übereinstimmungen gefunden werden, werden die Datensätze im Raster angezeigt. Gehen Sie im Codeabschnitt zu "Text1_Change()" Ereignis, und geben Sie einen Code ähnlich dem folgenden:

Dim t als String

Wenn Text1.Text <> "" dann

If Adodc1.Recordset.RecordCount <> 0 Then

t = "*" + Text1.Text+ "*"

Adodc1.Recordset.Filter = "LastName like '" + t + "'"

End If

Sonst

Adodc1.Recordset.Filter = AdFilterNone

EndIf

7 Drücken Sie die Taste "F5" um das Projekt auszuführen. Testen Sie das Programm und überprüfen Sie, ob es läuft, wie es sein sollte.

8 Speichern Sie das Projekt, indem Sie auf "Datei > Projekt speichern als" aus dem Menü und bietet einen aussagekräftigen Dateinamen.