insertar registro en clave foraneas
 

buenas tardes: tengo un problema que es que todavia no se como puedo insertar registros en el campo de la clve foranea. les adjunto las pantallas para mas o menos vean como estoy trabando y puedan decirme donde esta mi error.
el codigo para el boton ok es el siguiente:

Código Delphi [-]
procedure TFNcontacto.btokClick(Sender: TObject);
var
id: integer;
c: tbookmark;

begin
    c:= dmcontactos.QContactos.GetBookmark;
    dmcontactos.QContactos.DisableControls;
    try
      dmcontactos.QContactos.Last;
      if not dmcontactos.QContactos.Bof then
      begin
       id:= dmcontactos.QContactos.Fields[0].AsInteger + 1;
       dmcontactos.QContactos.Close;
       dmcontactos.QContactos.Open;
       dmcontactos.QContactos.Insert;
       dmcontactos.QContactos.FieldByName('idcontacto').AsInteger:= id;
       dmcontactos.QContactosnombre.AsString:= edit1.Text;
       dmcontactos.QContactosapellido.AsString:= edit2.Text;
       dmcontactos.QContactosdireccion.AsString:= edit4.Text;
       dmcontactos.QContactostelefono.AsString:= edit3.Text;
       dmcontactos.QContactosdescripcion.AsString:= combobox1.Text;
       dmcontactos.QContactos.Post;
      end
      else
      begin
        dmcontactos.QContactos.First;
        id:= dmcontactos.QContactos.Fields[0].AsInteger + 1;
        dmcontactos.QContactos.Close;
        dmcontactos.QContactos.Open;
        dmcontactos.QContactos.Insert;
        dmcontactos.QContactos.FieldByName('idcontacto').AsInteger:= id;
        dmcontactos.QContactosnombre.AsString:= edit1.Text;
       dmcontactos.QContactosapellido.AsString:= edit2.Text;
       dmcontactos.QContactosdireccion.AsString:= edit4.Text;
       dmcontactos.QContactostelefono.AsString:= edit3.Text;
       dmcontactos.QContactosdescripcion.AsString:= combobox1.Text;
       dmcontactos.QContactos.Post;
        secundario.refrescarcontactos(id);
      end;
    FINALLY
      dmcontactos.QContactos.EnableControls;
      dmcontactos.QContactos.FreeBookmark(c);
    end;

      fncontacto.Close;
      secundario.DBContactos.SetFocus;
end;

el problema ocurre al momento de insertar lo que seleccione de la lista del tdbcombobox. en la lista tengo las descripciones de la otra tabla de categorias (id_categoria y descripcion) el mensaje me dice: familiares "is not a integer value"
espero puedan ayudarme.

saludos.

Gonzalo.

Hola.

En las lineas que presentas no se ve pero debes de estar intentando asignar a un campo entero un campo string relacionado con "familiares".

Saludos

insertar registros en cllave foraneas!
 

hola newtron: mira la verdad que no entiendo en donde esta el error. pero me gustaria si me puedes dar un ejemplo como harias vos para insertar un registro en una clave foranea en delphi.
los datos son los siguientes: tengo dos tablas
la primera:
CATEGORIASIDCATEGORIADESCRIPCION1Familiares2Amigos3Compañeros del trabajo4primos5vecinos

y la segunda:
ContactosidcontactocategoriaNombreApellidoTelefonoDireccion11AbigailMoreno111111guemes 20021deborahmendia222222san martin 50031milenamoreno333333santiago 10004

estas imagenes son tomadas del access que es en donde tengo mi base de datos. y como podras ver en la tabla contactos el campo categorias es la clave foranea y trabajando en access si se como se insertan los registros, pero se me complica en delphi cuando quiero insertar en los campos de las claves foraneas atraves de algun componente, por ejemplo como lo harias con en tdbcombobox o con un combobox o cualquier componente que se ocurra una listbox yo digo esos componentes de muestran listas, en teoria me mostrarian las descripciones de la tabla categorias(familiares, amigos, etc) y sobre todo si puedes decirme como seria el codigo que hay que escribir. solo me falta saber eso nada mas. si fueses tan amable de darme algun ejemplo.

saludos.

gonzalo.

a ver... yo retocaría tu código de esta manera:

Código Delphi [-]
try
   if dmcontactos.QContactos.RecordCount=0 then begin
     id:=1;
     dmcontactos.QContactos.Insert;
   end else begin
     dmcontactos.QContactos.Last;
     id:=dmcontactos.QContactos.FieldByname('idcontacto').AsInteger+1;
     dmcontactos.QContactos.Insert;
   end;
   dmcontactos.QContactos.FieldByName('idcontacto').AsInteger:= id;
   dmcontactos.QContactosnombre.AsString:= edit1.Text;
   dmcontactos.QContactosapellido.AsString:= edit2.Text;
   dmcontactos.QContactosdireccion.AsString:= edit4.Text;
   dmcontactos.QContactostelefono.AsString:= edit3.Text;
   dmcontactos.QContactosdescripcion.AsString:= combobox1.Text;
   dmcontactos.QContactos.Post;
 FINALLY
   secundario.refrescarcontactos(id);
   dmcontactos.QContactos.EnableControls;
 end;
 fncontacto.Close;
 secundario.DBContactos.SetFocus;

Posiblemente el error te lo de en esta linea:

Código Delphi [-]
dmcontactos.QContactos.Fields[0].AsInteger + 1;

porque fields[0] sea el campo "familiares"

Saludos