So verwenden Sie VB, um Datenbankzeichenfolgen zu durchlaufen und sie zu Dropdown-Listenfeldern hinzuzufügen

Wie man VB durchläuft, um Zeichenfolgen in einer Datenbank abzufragen und sie einem Dropdown-Listenfeld hinzuzufügen

Ob Sie es verwenden

Data1.Recordset.FindFirst-Methode

Immer noch im Einsatz

Data1.Recordset.FindNext-Methode

Um Datensätze zu durchsuchen, verwenden Sie

Data1.Recordset.NoMatch

Um festzustellen, ob ein passender Datensatz gefunden wird, wenn

Data1.Recordset.NoMatch gibt True zurück, was bedeutet, dass es nicht gefunden wurde. Wenn es False zurückgibt, bedeutet es, dass es gefunden wurde.

Aber es kann nicht direkt (vorzugsweise nicht direkt) wie Sie verwendet werden:

Data1.Recordset.FindNext ＂Field 2 Like＂ & ＂'*＂ & Text8.Text & ＂*'＂

Combo1.AddItem Data1.Recordset.Fields(1)

Machen Sie stattdessen Folgendes:

Data1.Recordset.FindNext ＂Field 2 Like＂ & ＂'*＂ & Text8.Text & ＂*'＂

if Data1.Recordset.NoMatch Then

'Geben Sie hier den entsprechenden Code ein, um die Suche zu beenden

sonst

Combo1.AddItem Data1.Recordset.Fields(1)

…………

Ende wenn

Was ich oben gesagt habe, ist, dass es am besten ist, es nicht direkt wie Sie zu verwenden. Das bedeutet, dass es an einigen Stellen immer noch direkt verwendet werden kann. Das heißt, sind Sie sicher, dass der gesuchte Datensatz vorhanden sein muss?

Einfache VB-String-Verarbeitung

'Fügen Sie eine TextBox (mit dem Namen Text1, MultiLine-Attribut auf True gesetzt, zur Eingabe verwendet), eine Befehlsschaltfläche (mit dem Namen Command1, zum Starten der Analyse) und eine ListBox (mit dem Namen List1, zum Beweisen, dass die Array-Analyse korrekt ist) hinzu.

'Fügen Sie den folgenden Code hinzu.

Option explizit

Private Sub Command1_Click()

Dim Num() As Long, i As Long, j As Long

List1.Clear

If StrToNum(Text1.Text, Num) Then

ReDim t(0 To UBound(Num, 2)) As String

Für i = 0 bis UBound(Num, 1)

Für j = 0 bis UBound(Num, 2)

t(j) = CStr(Num(i, j))

Weiter

List1.AddItem Join(t)

Weiter

Sonst

MsgBox „Falsche Eingabe!“

Ende wenn

End Sub

Private Function StrToNum(S As String, N() As Long) As Boolean

Dim A() als String, B() als String, C als Long, D als String, E als Boolean, F als Long

Dim i As Long, j As Long

Wenn Len(S) = 0, dann Funktion beenden

A = Split(S, vbCrLf)

Für i = 0 bis UBound(A)

B löschen

C = 0

E = Falsch

Für j = 1 To Len(A(i))

D = Mid(A(i), j, 1)

Wählen Sie Case Asc(D)

Fall 48 bis 57

Wenn nicht E, dann

ReDim Preserve B(0 bis C)

C = C + 1

E = Stimmt

Ende wenn

B(C – 1) = B(C – 1) & D

Fall 32

E = Falsch

Fall sonst

Exit-Funktion

Auswahl beenden

Weiter

Wenn C = 0, dann Funktion beenden

Wenn i = 0, dann

ReDim N(0 To UBound(A), 0 To C - 1)

F = C

Sonst

Wenn F C, dann Funktion beenden

Ende wenn

Für j = 0 bis C - 1

N(i, j) = Val(B(j))

Weiter

Weiter

StrToNum = True

Endfunktion

Das obige ist der detaillierte Inhalt vonSo verwenden Sie VB, um Datenbankzeichenfolgen zu durchlaufen und sie zu Dropdown-Listenfeldern hinzuzufügen. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!