Problemas de Consulta

[UTECYBER]

Tengo varias consultas(Consulta de Cliente,Proveedor,Etc, con este codigo

If Not (Dm_BaseDatos.TblCliente.Locate(Combobox1.Text,TxtValor1.Text,[LoCaseInsensitive,Lopartialkey])) Then
messageDlg('Este Cliente No Existe,Favor Registrarlo',MtError,[MbOk],0);
Exit;

Ahora bien, Estoy elaborando otra consulta pero esta vez de Producto. con el mismo codigo pero esta vez con la tabla de producto
If Not (Dm_BaseDatos.TblProducto.Locate(Combobox1.Text,TxtValor.Text,[LoCaseInsensitive,Lopartialkey])) Then
messageDlg('Este Producto No Existe,Verifique el Reemplazo',MtError,[MbOk],0);
Exit;

El sistema me esta dando este error. Al momento de introducir el codigo de consulta en la consulta del producto,
en realidad no se porque, porque en los otros me funciona correctamente.
[Error] FCProductos.pas(99): Undeclared identifier: 'LoCaseInsensitive'
[Error] FCProductos.pas(99): Undeclared identifier: 'Lopartialkey'
[Error] FCProductos.pas(99): Incompatible types: 'TLocateOption' and 'Integer'


Otros metodos de consulta que podrian facilitarme?

Atentamente,
Utecyber


¿Que tan ecuánime es para el Ser entender lo Inerte?

[ruina]

mira a ver con un uses DB

[ruina]

ahora que veo el código 2 veces....


¿porque messagesDlg? ¿porque no excepciones?

[UTECYBER]

Ok, Como tu crees que puedo hacerlo usando excepciones.?
-A otra cosa, El TForm esta usandon el DM_BaseDatos.

Ate,
Utecyber,