Microsoft Visual Basic 6.0 ist eine Entwicklungsumgebung für die Erstellung Business-Anwendungen mit unterschiedlichen Anforderungen , einschließlich Datenzugriff. Visual Basic hat mehrere Funktionen zur Abfrage von Datenbank-Tabellen . Diese Funktionen sind Methoden der Datenbank-Klassen in Visual Basic gebaut . Es ist eine einfache Sache, um eine SQL-Abfrage auf eine Textdatei Tisch zu machen . Erstellen Sie den Text Database

müssen Sie zunächst den Text Datenbanktabelle, die Visual Basic-Programms wird geöffnet und Abfrage zu erstellen. Erstellen Sie ein Verzeichnis mit dem Namen "C: \\ DB" und erstellen Sie eine neue , Klartext -Datei in diesem Verzeichnis mit dem Namen " MyTable.txt . " Öffnen Sie diese Datei und geben Sie diese Daten:

Titel, Jahr , DirectorStar Kriege , 1977, George LucasExcalibur , 1980, John Boorman erstellen
die Visual Basic-Projekt

Schließen Sie die Datei , öffnen Sie " Visual Basic IDE " ( integrierte Entwicklungsumgebung ) und erstellen Sie ein neues Standard EXE-Projekt (File > New Project, Standard EXE ) . In Form Design-Fenster , ziehen Sie eine Schaltfläche in der Symbolleiste und legen Sie es auf dem Formular. Doppelklicken Sie auf die Taste, um das Ereignis Command1_Click eingeben , und geben Sie diesen Code in das Unterprogramm :

Private Sub Command1_Click () Dim As New connectionText ADODB.ConnectionDim recordSetObj As New ADODB.RecordsetDim Pfad As String
< p > path = "C: \\ DB \\ "

connectionText.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " _ & path & "; Extended Properties = 'text ; HDR = YES ; FMT = Trennzeichen ' "

recordSetObj.Open " select * from myTable.txt WHERE Jahr = 1977 " , _connectionText , adOpenStatic , adLockReadOnly , adCmdTextDo While Not recordSetObj.EOFMsgBox recordSetObj (0) & ", " & recordSetObj ( 1) & "," & recordSetObj (2) recordSetObj.MoveNextLoop

End Sub
Führen Sie das Programm

Führen Sie das Programm durch Drücken der Taste " F5 ". Drücken des Formulars , wenn das Formular angezeigt wird. Beenden Sie das Programm und kehren Sie zum Code -Umgebung zu erforschen und zu verstehen, den Code.

" ConnectionText.Open "-Methode stellt die Verbindung zur Datenbank. Beachten Sie die mehrere Semikolon in der Verbindungszeichenfolge. Diese Zeichen getrennte Paare von Feldern, die Microsoft Jet -Datenbank-Engine , um die Verbindung zur Datenbank benötigt . Jedes Paar besteht aus einem Namen und den Wert für diesen Namen , z. B. Provider und Microsoft.Jet.OLEDB.4.0 . Ein anderes Paar ist Data Source und Path, wo der Pfad gibt den Ordner (C: \\ DB) Textdatei Datenbank gespeichert ist in. Das Microsoft Jet- Datenbank-Engine diesen Ordner als Datenbank sieht

recordSetObj . . Open-Anweisung führt die eigentliche SQL-Tabelle Abfrage. Sie können diese Abfrage wie das Öffnen einer Gruppe von Datensätzen aus der Tabelle zu sehen. Wenn die Open-Anweisung abgeschlossen ist, wird dieser Satz in der recordSetObj enthalten . Die Do While-Schleife geht durch das Recordset , mit der MoveNext -Methode von einem Satz zum nächsten zu bewegen , bis die EOF-Bedingung erreicht ist.
Ändern Sie die Abfrage

Versuchen Ändern der SQL-Abfrage eine WHERE-Klausel , z. B. gehören WHERE Jahr = 1977 . Dann erstellen Sie Ihre eigene Datenbank abzufragen und sie mit diesem Programm als Modell.