Ich habe fast das gesamte VB vergessen, das ich vor ein paar Jahren gelernt habe, deshalb habe ich es in diesen Tagen noch einmal durchgesehen. Es ist nicht sehr schwierig, eine ADO-Datenbank mit VB zu verbinden.
Der erste Schritt der Verbindung (sorgfältig lesen)
Für Anfänger ist das Tutorial hier am ausführlichsten. Der erste Schritt zum Herstellen einer Verbindung zur ADO-Datenbank ist, welche Komponenten hinzugefügt werden sollten. Der vollständige Name lautet Microsoft ADO Data Control 6.0 (SP6) (OLEDB)-Komponente.
In der Microsoft ADO Data Control 6.0 (SP6) (OLEDB)-Komponente gibt es einen Namen: Adodc Data Control, Sie müssen ihn hinzufügen. Finden Sie ACCES im Adodc-Datenkontrolldatenspeicherort.
Die vom Steuerelement referenzierte Methode (der Wert bezieht sich auf den Namen)
Kopieren Sie den Codecode wie folgt:
Für i = 1 bis Adodc1.Recordset.RecordCount
Wenn nicht Adodc1.Recordset.EOF, dann
Combo1.AddItem Adodc1.Recordset.Fields("value").Value
Adodc1.Recordset.Movenext
Ende wenn
Als nächstes i
Der von diesem Code zitierte Autor ist ydl890406, als ich dieses Ding in der VB-Gruppe schrieb. Später stellte ich fest, dass es viele Fehler gab, also habe ich Ich habe es einfach umgeschrieben. Dies ist ein späterer Code. Die Zeit verging schnell und auch die VB-Gruppe löste sich auf. Später verwenden viele Tutorials aus unbekannten Gründen diesen Code.
Der zweite Teil ist die AOD-Codeverbindung. Da der zweite Teil das Recordset-Objekt und das Connection-Objekt umfasst, können Sie es selbst lernen und selbst schreiben.
Was sind das Recordset-Objekt und das Connection-Objekt? Das Connection-Objekt ist die Verbindung zur Datenquelle und das Recordset-Objekt sind die Betriebsdaten.
Auf der Suche nach Komponenten für Microsoft ADO Data Control 6.0 (SP6) (OLEDB).
VB verwendet ADO, um eine Verbindung zur SQL Server-Datenbank herzustellen
'Datenquelleninformationskonstante Public Const conn As String = "Provider = SQLOLEDB.1;Password = sa; UserID = sa; Initial Catalog = StudentFiles; Data Source = localhost" Public Const CONNECT_LOOP_MAX = 10 'Führen Sie den Verbindungsvorgang einmal aus und Sie können Zugriff auf die Datenbank Anzahl der MalePrivate IsConnect As Boolean 'Markieren Sie, ob die Datenbank verbunden istPrivate Connect_Num As Integer 'Markieren Sie, wie oft auf Daten zugegriffen wird, nachdem die Funktion Connect() ausgeführt wurde.Private cnn As ADDODB.Connection 'Objekt zum Herstellen einer Verbindung mit der Datenbank verbindenPrivate re As ADDODB.Recordset 'Recordset-Objekt, das die Ergebnismenge speichert //Mit der Datenbank verbindenPrivate Sub Connect () 'Wenn die Verbindungsmarkierung wahr ist, kehren Sie zurück. IF IsConnect = True Then Exit Sub End If Set cnn = New ADODB.Connection 'Key new wird zum Erstellen eines neuen Objekts verwendet cnn cnn.ConnectionString = conn cnn.Open 'Bestimmen Sie den Status der VerbindungIf cnn.State <> adStateOpen Then MsgBox „Datenbankverbindungsfehler“ End End If 'Legen Sie die Verbindungs-ID fest, die angibt, dass sie mit der Datenbank IsConnect = TrueEnd Sub verbunden ist' Trennen Sie die Verbindung mit der Datenbank Private Sub DisConnect() Dim rc As Long If IsConnect = False Dann Exit Sub End If 'Schließen Sie die Verbindung cnn.Close 'Release cnn Set cnn = Nothing IsConnect = FalseEnd Sub'Verwenden Sie Connect_Num, um die Datenverbindung zu steuern Public Sub DB_Connect() Connect_Num = Connect_Num + 1 ConnectEnd Sub'Verwenden Sie Connect_Num, um die Daten zu steuern trennen Public Sub DB_Disconnect ()If Connect_Num >= CONNECT_LOOP_MAX Then Connect_Num = 0 Disconnect End If End Sub'Force, um den API-Modus zu schließen, um auf die russische Datenbank zuzugreifen, und den Zähler zurücksetzen Public Sub DBapi_Disconnect() Connect_Num = 0 DisconnectEnd Sub'Datenbankoperationssprache ausführen'byval Der Wert des Parameters wird übergeben, und der Parameter ändert sich während des Übertragungsprozesses nicht (dh der Parameterwert wird anstelle der Adresse an den Prozess übergeben. Dadurch kann der Prozess auf eine Kopie der Variablen zugreifen Der Prozess kann den Wert der Variablen nicht ändern. Dies bedeutet, dass der Wert gemäß der Adresse des Parameters Byref weggelassen werden kann. Dim cmd As New ADODB .Command 'Befehlsobjekt erstellen cmd DB_Connect 'Mit der Datenbank verbinden Set cmd.ActiveConnection = cnn 'Setzen Sie das ActiveConnect-Attribut von cmd und geben Sie die damit verbundene Datenbankverbindung an cmd.CommandText = TmpSQLstmt 'Legen Sie den auszuführenden Befehlstext fest'MsgBox TmpSQLstmt cmd.Execute 'Führen Sie den Befehl Set aus cmd = Nothing DB_DisConnect 'Disconnect Öffne die Verbindung mit der Datenbank End Sub'Führe die Datenbankabfrageanweisung aus Public Function QueryExt(ByVal TmpSQLstmt As String ) As ADODB.Recordset Dim rst As New ADODB.Recordset 'Rescordset-Objekt erstellen rst DB_Connect 'Mit der Datenbank verbinden Set rst.ActiveConnection = cnn 'Legen Sie die ActiveConnection-Eigenschaft von rst fest und geben Sie die Verbindung zur zugehörigen Datenbank an rst.CursorType = adOpenDynamic ' Setzen Sie den Cursortyp rst. LockType = adLockOptimistic 'Setzen Sie den Sperrtyp rst.Open TmpSQLstmt 'Öffnen Sie das Recordset Set QueryExt = rst 'Gib die RecordsetEnd-Funktion zurück