Hier ist nur ein einfaches VB-Applet-Beispiel, das jedoch die folgenden Schlüsselwörter enthält: VB6.0, ADO, Access
Umgebung: Visual Basic 6.0 Enterprise Edition (nicht die optimierte Version, da sonst die notwendigen Steuerelemente fehlen)
Datenbank: Access-Datenbank, die Datenbank ist xs.mbd, die integrierte Tabelle ist xj
Ergebnis: VB stellt über ADO eine Verbindung zur Access-Datenbank her, fragt alle Daten in der xj-Tabelle ab und gibt die Abfrageergebnisse dann in einer Schleife an das Fenster aus.
Code:
Private Sub Form_Click()Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO-Verbindungsobjekt und Datensatzset Dim strSQL As String 'SQL string db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb" 'Datenbankverbindung db.Open 'Datenbank öffnen strSQL = "select * from xj" 'SQL string RS.Open strSQL, 3, 1 'Fragen Sie die Datentabelle ab. Nicht RS.EOF'. 'Schleife zur Ausgabe des RS-Namens!' Drucken Sie die Ausgabeergebnisse im Fenster RS.MoveNext 'Datensatz nach unten verschieben LoopRS.Close 'Schließen Sie den Datensatzsatz. Setzen Sie RS = NothingEnd Sub
Das Obige ist der gesamte Inhalt dieses Artikels. Ich hoffe, er gefällt Ihnen allen.