ayuda urgnte buscar con control data

[adrianOscar]

lo q ocurre es q tengo un metodo q recorre todo un msflexgrid y ve si existen los codigos q se han ingresado caso contrario los agrega uso conexion con control data y tengo un dblist del cual le aplico busqueda sensitiva para q el usuario agrege los codigos q tengo en mi base de datos pero a la hora de aplicar el metodo existe falla me sale q solo encunetra el ultimo ingreso he aplicado refresh pero ni aun asi me sale alli les mando el codigo
ayuda urgente!!!!!!!!!!!!!!!


For i = 1 To cantFil
If MSFlexGrid1.TextMatrix(i, 1) <> "" Then
cad = Trim(MSFlexGrid1.TextMatrix(i, 1))
dataInsumos.Recordset.FindFirst "trim(Insumo) Like '" & cad & "'"
If dataInsumos.Recordset.NoMatch Then
'dataInsumos.Refresh
listaFaltas = listaFaltas + "No existe : " + cad + " Nombre del Insumo" + vbNewLine + vbNewLine
Else
idInsumo = dataInsumos.Recordset.Fields(0)
End If
End If
Next

[Avellaneda]

Iniciado por adrianOscar

lo q ocurre es q tengo un metodo q recorre todo un msflexgrid y ve si existen los codigos q se han ingresado caso contrario los agrega uso conexion con control data y tengo un dblist del cual le aplico busqueda sensitiva para q el usuario agrege los codigos q tengo en mi base de datos pero a la hora de aplicar el metodo existe falla me sale q solo encunetra el ultimo ingreso he aplicado refresh pero ni aun asi me sale alli les mando el codigo
ayuda urgente!!!!!!!!!!!!!!!


For i = 1 To cantFil
If MSFlexGrid1.TextMatrix(i, 1) <> "" Then
cad = Trim(MSFlexGrid1.TextMatrix(i, 1))
dataInsumos.Recordset.FindFirst "trim(Insumo) Like '" & cad & "'"
If dataInsumos.Recordset.NoMatch Then
'dataInsumos.Refresh
listaFaltas = listaFaltas + "No existe : " + cad + " Nombre del Insumo" + vbNewLine + vbNewLine
Else
idInsumo = dataInsumos.Recordset.Fields(0)
End If
End If
Next

Lo que falla es el comodín de búsqueda LIKE, lo tendrías que poner así:

dataInsumos.Recordset.FindFirst "trim(Insumo) Like '*" & cad & "*'"

Pero aún así, para una búsqueda exacta, eso no sería correcto porque mostraría todos los registros que incluyeran el valor de 'cad' (depende de cómo tengas el valor del campo 'Insumo').

Es mas sencillo así:
dataInsumos.Recordset.FindFirst "Insumo='" & cad & "'"

Nota: La función Trim no es necesaria en este contexto (en ninguno de los dos casos).