Buenos Días, ante todo
Siendo nuevo tanto en el foro como utilizando Delphi 7 (Solo 5 meses) he tratado de hacer una aplicación para mi y unos amigos que simplemente guarda unos datos en una tabla hecha en MS Access. El problema surge cuando trato de verificar si el campo clave existe, lo cual no pasa nada y se ejecuta la inserción de los registro provocando un error de duplicidad. Acá les paso los código haber que estoy haciendo mal. No es algo urgente, pero me ayudara a entender mis errores ya que recién empiezo. Gracias de ante manos por cualquier ayuda.
Conexion a la Tabla
Código Delphi
[-]Procedure TDm.DataModuleCreate(Sender: TObject);
var
rutadata : String;
begin
rutadata := GetCurrentDir;
Dm.concndatafacebook.Connected := False;
rutadata := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+GetCurrentDir+'\Data\DataCafeWorld.mdb'+';Persist Security Info=False';
Dm.concndatafacebook.ConnectionString := rutadata;
Dm.concndatafacebook.Connected := True;
end;
Botón Adicional
Código Delphi
[-]procedure Tfrmprincipal.rzbtbtn1Click(Sender: TObject);
begin
dm.qryfriend.Close;
Dm.qryfriend.Open;
Dm.qryfriend.First;
Dm.qryfriend.Locate('IDF',Trim(edt9.Text),[]);
if Dm.qryfriend.Found Then
begin
ShowMessage('This person its in you list ...');
end
else
begin
Dm.qryfriend.Insert;
Dm.qryfriendName.Value := Trim(edt7.Text);
Dm.qryfriendEmail.Value := Trim(edt8.Text);
Dm.qryfriendIDF.Value := Trim(edt9.Text);
Dm.qryfriend.Post;
dm.qryfriend.Close;
Dm.qryfriend.Open;
end;
edt7.Clear;
edt8.Clear;
edt9.Clear;
edt7.SetFocus;
end;