Busquedas utilizando ADO

[[Al González]]

¡Hola a todos!

Caral: En lo personal, tus intervenciones me parecen de lo más sensatas. Tampoco debe uno tomarse los comentarios de otros en plan negativo. Confío en que te seguiremos viendo por estos rumbos.

Un abrazo positivo.

Al González.

[tenporal]

Gracias por sus comentarios,

Originalmente escrito por Roman
virtualmente es lo mismo, lo que cambia es el momento en que se controla el error. Además, en este caso, quien hace la verificación es el servidor, y normalmente será más eficiente.

Al inicio tuve problemas con Access, ya que al ejecutar adotable1.insert, mandaba un mensaje de error, al querer insertar una llave duplicada, en tu comentario indicas que el servidor debe verificar la informacion que se introduce, ¿como la realiza si tengo en una forma 3 dbedit, el primero maneja el campo llave del registro, utilizando adotable, para que no me ocurra un error de duplicidad en la llave del registro al ejecutar el insert ?

por otra parte, ¿solo se puede utilizar adotable.locate para localizar registros?
¿no existe otra funcion, como por ejemplo seek? ya que en delphi 7 me marca error al querer utilizar adotable.findkey? no me acuerdo bien en este momento pero lo ultimo era la palabra key.


Gracias por sus comentarios

[[Caral]]

Hola
Gracias por los comentarios de apoyo, me hacen sentir que si aporto algo, se que me equivoco, pero, quien no.
No logro entender bien lo que busca hacer Temporal, se habla de una llave duplicada, pero tambien de insertar un registro, me parece.
Bueno, si es un asunto de tratar de insertar un registro y hacer la comprobacion de que no este repetido, aqui tienes un pedacito de un codigo de mi programa que hace eso, analizalo, tal vez sea lo que buscas.

Código Delphi [-]
procedure TFSelCodigo.BitBtn1Click(Sender: TObject);
begin
   If Edit1.Text <> '' then
   Begin
     AdoQuery1.Parameters[0].Value := Edit1.Text;
     AdoQuery1.Active := true;
     IF Adoquery1CodParte.AsString = Edit1.Text then
     MessageDlg('Código ya existe, favor seleccionar otro',mtError,[mbOK],0)
     else Begin
            Codigo:= Edit1.text;
            Cancelar:=False;
            Close;
          end;
     AdoQuery1.Active := false;
   end
   else MessageDlg('El código no debe estar en blanco, si desea cancelar presione escape.',mtError,[mbOK],0)
end;

Espero que te sirva aunque sea para aprender algo nuevo.
Saludos

[tenporal]

Saludos a tod@s,

Originalmente escrito por Caral
No logro entender bien lo que busca hacer Temporal, se habla de una llave duplicada, pero tambien de insertar un registro, me parece.
Bueno, si es un asunto de tratar de insertar un registro y hacer la comprobacion de que no este repetido

Hola caral, como indique anteriormente se trata de validar que no se pueda introducir un registro con una clave que ya exista en la b.d., para ser mas especifico, estoy mostrando los datos en campos dbedit, y cuando se de click en el boton agregar, verifique esa condicion.

Anteriormente Roman, comento que se podia dejar que sea el servidor el que se encargue de manejar los campos llave, pero no se como implementarlo, actualmente estoy manejando access, como manejador de b.d.

De antemano, gracias por sus comentarios

[saldanaluis]

Primero que nada una disculpa para nuestro amigo Caral por haber sonado muy negativo.
Lo que pasa es que realmente no sabía como hacer lo que se buscaba y no entendí como se lograba con el código que muy amablemente nos proporcionó Caral. Realmente yo soy el que no es programador y como quiero aprender pues trato de entender el código que me llega a la mano.
Como pueden ver, soy relativamente nuevo e inclusive no creo yo tener buenas respuestas para los compañeros del foro, pero lo que si tengo son muchas preguntas!!!
Espero seguir contando con el favor de sus respuestas.
Luis

[[Caral]]

Hola saldanaluis
Para nada las disculpas, lo que dije es totalmente cierto, no soy programador y aunque trato de ayudar, muchas, pero muchas veces me equivoco, por eso dije que hacias bien en dudar de mi codigo, que de paso no ha terminado de eliminar las dudas de temporal.
No te preocupes de mas, y en cuanto a ayudarte, con mucho gusto, si esta a mi alcance te haré ver por lo menos algo nuevo, seguro aprenderemos mas todos, aqui hay muchos maestros en esto.
Saludos