¿Cómo recorrer una cadena en una base de datos usando vb y agregarla a un cuadro de lista desplegable?

Si utilizas el

método Data1.Recordset.FindFirst

o el

método Data1.Recordset.FindNext

Para buscar registros, utilice

Data1.Recordset.NoMatch

para determinar si se encuentran registros coincidentes si

Data1.Recordset.NoMatch regresa. Verdadero significa que no se encontró y devolver Falso significa que se encontró.

No se puede utilizar directamente (preferiblemente no directamente) como lo hace usted:

Data1.Recordset.FindNext "Field 2 Like" amp "'*" amp Text8.Text amp; ; "*'"

Combo1.AddItem Data1.Recordset.Fields(1)

En su lugar, haga esto:

Data1.Recordset.FindNext "Campo 2 Like" amp; "'*" amp; Text8.Text amp; "*'"

if Data1.Recordset.NoMatch Then

'Escribe aquí el código correspondiente para finalizar la búsqueda

else

Combo1.AddItem Data1.Recordset.Fields(1)

.........

Fin Si

Lo que dije anteriormente es mejor no usarlo directamente como usted, significa que aún se puede usar directamente en algunos lugares. Es decir, ¿está seguro de que el registro que está buscando debe existir? ?