Visual Basic 6.0-SQL-Tutorial
Microsoft Visual Basic 6.0 ist eine Entwicklungsumgebung für die Erstellung von Business-Anwendungen mit unterschiedlichen Anforderungen, einschließlich Datenzugriff. Visual Basic hat mehrere Funktionen zum Abfragen von Datenbanktabellen. Diese Funktionen sind Methoden der Datenbankklassen in Visual Basic integriert. Es ist einfach eine Frage, eine SQL-Abfrage auf eine Text-Datei-Tabelle zu machen.
Die Textdatenbank erstellen
Sie müssen zunächst die Text-Datenbanktabelle, die Visual Basic-Programms geöffnet wird und die Abfrage zu erstellen. Erstellen Sie ein Verzeichnis namens "C:\DB" und erstellen Sie eine neue, nur-Text-Datei in diesem Verzeichnis mit dem Namen "MyTable.txt." Öffne die Datei, und geben Sie diese Daten:
Titel, Jahr, RegisseurStar Wars, 1977, George LucasExcalibur, 1980, John Boorman
Erstellen Sie das Visual Basic-Projekt
Schließen Sie die Datei, öffnen "Visual Basic-IDE" (integrated Development Environment) und erstellen Sie ein neues Standard-EXE-Projekt (Datei > Neues Projekt, Standard-EXE). Ziehen Sie im Form-Design-Fenster eine Schaltfläche aus der Symbolleiste und legen Sie es auf dem Formular. Doppelt klicken Sie, um das Command1_Click-Ereignis eingeben, und geben Sie diesen Code in das Unterprogramm:
Private Sub Command1_Click()Dim ConnectionText neue ADODB. VerbindungDim RecordSetObj neue ADODB. RecordsetDim Pfad As String
Pfad = "C:\DB\"
connectionText.Open "Provider=Microsoft.Jet.OLEDB.4.0; Datenquelle = "_& Pfad & ";" Erweiterte Eigenschaften ='Text; HDR = YES; FMT = getrennte ' "
recordSetObj.Open "wählen Sie * aus myTable.txt WHERE Jahr = 1977;", _
connectionText, adOpenStatic, adLockReadOnly, adCmdText
Während nicht recordSetObj.EOF zu tunMsgBox recordSetObj(0) & "," & recordSetObj(1) & "," & recordSetObj(2)
recordSetObj.MoveNext
Loop
EndSub
Führen Sie das Programm
Führen Sie das Programm mit "F5". Drücken Sie die Schaltfläche des Formulars, wenn das Formular angezeigt wird. Beenden Sie das Programm und wieder in die Code-Umgebung zu erforschen und den Code verstehen.
Die Methode "connectionText.Open" stellt die Verbindung zur Datenbank. Beachten Sie die verschiedenen Semikolons in der Verbindungszeichenfolge. Diese Zeichen getrennte Paare von Feldern, die das Microsoft Jet-Datenbankmodul zum Herstellen einer Verbindung mit der 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 weiteres Paar ist Datenquelle und Pfad, wobei der Pfad angibt, dass in der Ordner (C:\DB) Ihre Datenbank-Tabelle in Text-Datei gespeichert ist. Das Microsoft Jet-Datenbankmodul sieht diesen Ordner als Datenbank.
Die recordSetObj.Open-Anweisung wird die eigentliche SQL-Table-Abfrage. Sie können diese Abfrage als eine Gruppe von Datensätzen aus der Tabelle öffnen anzeigen. Nach Abschluss die Open-Anweisung ist dieser Satz in den RecordSetObj enthalten. Die Do While-Schleife führt durch das Recordset verwenden die MoveNext-Methode zum Verschieben von einem zum nächsten, bis der EOF-Zustand erreicht wird.
Ändern Sie die Abfrage
Versuchen Sie, die SQL-Abfrage eine WHERE-Klausel, z.B. wo Jahr aufnehmen = 1977. Dann erstellen Sie Ihre eigenen Datenbank und Fragen Sie es mit diesem Programm als Vorbild.