Comment utiliser VB pour parcourir les chaînes de la base de données et les ajouter aux zones de liste déroulante

Comment parcourir VB pour interroger des chaînes dans une base de données et les ajouter à une zone de liste déroulante

Que vous l'utilisiez

Méthode Data1.Recordset.FindFirst

Toujours en utilisant

Méthode Data1.Recordset.FindNext

Pour rechercher des enregistrements, utilisez

Data1.Recordset.NoMatch

Pour déterminer si un enregistrement correspondant est trouvé, si

Data1.Recordset.NoMatch renvoie True, ce qui signifie qu'il n'est pas trouvé. S'il renvoie False, cela signifie qu'il est trouvé.

Mais il ne peut pas être utilisé directement (de préférence pas directement) comme vous le faites :

Data1.Recordset.FindNext ＂Champ 2 J'aime＂ & ＂'*＂ & Text8.Text & ＂*'＂

Combo1.AddItem Data1.Recordset.Fields(1)

Faites plutôt ceci :

Data1.Recordset.FindNext ＂Champ 2 J'aime＂ & ＂'*＂ & Text8.Text & ＂*'＂

si Data1.Recordset.NoMatch Alors

'Écrivez ici le code correspondant pour terminer la recherche

autre

Combo1.AddItem Data1.Recordset.Fields(1)

…………

Fin si

Ce que j'ai dit plus haut, c'est qu'il est préférable de ne pas l'utiliser directement comme vous. Cela signifie qu'il peut toujours être utilisé directement à certains endroits. Autrement dit, êtes-vous sûr que le disque que vous recherchez doit exister ?

Traitement simple des chaînes VB

'Ajoutez une TextBox (nommée Text1, attribut MultiLine défini sur True, utilisé pour la saisie), un CommandButton (nommé Command1, utilisé pour démarrer l'analyse) et une ListBox (nommée List1, utilisée pour prouver que l'analyse du tableau est correcte).

'Ajoutez le code suivant.

Option explicite

Sous-commande privée1_Click()

Dim Num() Aussi longtemps, i Aussi longtemps, j Aussi longtemps

Liste1.Effacer

Si StrToNum(Text1.Text, Num) Alors

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

Pour i = 0 à UBound (Num, 1)

Pour j = 0 à UBound (Num, 2)

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

Suivant

List1.AddItem Join(t)

Suivant

Autre

MsgBox "Entrée incorrecte!"

Fin si

Fin du sous-marin

Fonction privée StrToNum (S As String, N() As Long) As Boolean

Dim A() comme chaîne, B() comme chaîne, C aussi long, D comme chaîne, E comme booléen, F aussi long

Dim i aussi longtemps, j aussi longtemps

Si Len(S) = 0 alors quittez la fonction

A = Split(S, vbCrLf)

Pour i = 0 à UBound(A)

Effacer B

C = 0

E = Faux

Pour j = 1 à Len(A(i))

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

Sélectionnez le cas Asc(D)

Cas 48 à 57

Si ce n'est pas E alors

ReDim Préserver B (0 à C)

C = C + 1

E = Vrai

Fin si

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

Cas 32

E = Faux

Autre cas

Fonction de sortie

Fin de la sélection

Suivant

Si C = 0 alors quittez la fonction

Si i = 0 Alors

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

F = C

Autre

Si F C Alors quittez la fonction

Fin si

Pour j = 0 à C - 1

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

Suivant

Suivant

StrToNum = Vrai

Fin de fonction

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!