Buscar dato en TJvMemoryData

[[BlueSteel]]

Hola

estube buscando en la web.. y no encontre ejemplos...

Tengo una duda con este compontente... lo utilizo bastante pero hay cierta funcion que nunca he realizado.. y es buscar un registro dentro del JvMemoryData....

La idea es que le estoy ingresando datos que son unicos... pero cuando los inserto me falta verificar que el dato no lo haya insertado antes.... generalmente realizo eso con Query.. pero con este componente no se como hacerlo... quisas puede ser con un locate.. pero no se como hacerlo....


Salu2

[Young]

Yo utilizo lo siguiente cuando necesito hacer una búsqueda en los memory.

Código Delphi [-]
JvMemoryData.Locate( 'NombreCampo1;NombreCampo2', VarArrayOf(['Valor a buscar1', 69]), [] );

Los valores para el tercer son:

[loCaseInsensitive] búsqueda no sensible a mayúsculas.

[loPartialKey] búsqueda parcial.

[] este lo utilizo para búsqueda exacta

Se me olvidaba... el método devuelve un boleano, true para encontrado.

Saludos.

[[BlueSteel]]

Ok... gracias...

ya lo hice funcionar.. y la sentencia que utilice fue la siguiente

Código Delphi [-]
// Datos : Form de tipo DataModule
// ItemsContrato : Componente JvMemoryData
// vAsi.Text : Edit, donde se ingresa un valor numerico

If Datos.ItemsContrato.Locate('Ite_Id',StrToInt(vAsi.Text),[]) Then
   // Sentencia 1
Else
  // Sentencia 2
End;

Salu2

[microbiano]

hola amigo BlueSteel, desde hace dias te sigo los paso por que usas el componente TjvMemoryData, oye amigo que posibilidad existe de que me puedas ayudar hacer una busqueda, soy nuevo con este componente.

ya intente con el codigo que pones pero creo que no enlaso algo o no se que pasa no muestra error pero no hace nada.

de antemano muchas gracias.

[[BlueSteel]]

Empezado por microbiano

hola amigo BlueSteel, desde hace dias te sigo los paso por que usas el componente TjvMemoryData, oye amigo que posibilidad existe de que me puedas ayudar hacer una busqueda, soy nuevo con este componente.

ya intente con el codigo que pones pero creo que no enlaso algo o no se que pasa no muestra error pero no hace nada.

de antemano muchas gracias.

Hola Microbiano:

disculpa.. pero hace dias que no ingresaba.... Específicamente que necesitas..

Me voy a cambiar de PC y voy a dejar algunos ejemplos que utilizo con dicho componente...

Salu2

[microbiano]

hola estimado amigo, necesitaba hacer una busqueda dentro de la tabla temporal, pero lo resolvi de la siguiente manera

Código Delphi [-]
If temporal.Locate('codigo',Self.wcodigobarras,[]) Then

, precisamentel un codigo que te pasaron, que te parece si mejor me das una idea de como modificar algun registros, pro que hasta ahora lo hago asi

Código Delphi [-]
procedure TFfactura.modifica_registro;
begin
 with Ffactura.temporal do
  begin
   Edit;
   //FieldByName('codigo').AsString :=Self.wcodigobarras;
   //FieldByname('descripcion').AsString := Self.wdescripcion;
   FieldByName('cantidad').AsFloat:=Self.wcantidad_venta;
   FieldByName('precio').AsCurrency:= Self.wprecio_venta;
   FieldByName('descuento').AsFloat:=Self.wdescuento_considerar;
   FieldByName('total').AsCurrency:= wcantidad_venta * wprecio_venta;
   Post;
  end;
   Self.txtcodigo.Text:='';
  Self.txtcodigo.SetFocus;  
end;

sin embargo no estoy muy seguro de que este bien, debido a que siempre he usado sql para este tipo de operaciones de antemano muchas gracias :-)

en cuanto a que no habias entrado me imagino me imagino vacaciones y a disfrutar la familia jejeje.