Insertar Datos a un campo de la base de datos desde un DBEdit

[saltamirano]

Hola Caral,

Gracias por tu atención, olvidemonos del filtro la idea es que tengo dos tablas la tabla cliente, y la tabla soporte. Un cliente tiene varios soportes, por esto el campo cli_cod es clave primaria en la tabla cliente y es la clave foránea para la tabla soporte. Es por esto que necesito registrar el dato de la identificación del cliente en esta tabla soporte.

Perdón, quiza no me explico bien. Si nos olvidamos del filtro la idea sería coger el dato de la una tabla que se presenta en el DBEdit y guardarlo en el campo de la tabla soporte, el momento que pongo el visto en el DBNavigator. Si hay alguna otra manera que por fa se te ocurra.

Muchas gracias y saludos

[[Caral]]

Hola
Vamos a ver, recuerda que soy novato, asi que no esperes mucho.
Para empezar, tenemos una tabla clientes (al que pertenece el dbedit, el nombre cliente es una variable tipo string, el cual contendra ese valor.)
El dbnavigator esta enlazado a la tabla soporte (Table_Soporte).

Lo que se pretende es que cuando se le de click al dbnavigator (en la opcion post), este haga un post en la tabla soporte y que cambie el valor del campo cli_cod de esa tabla.

Ahora veamos el codigo:
Primero, (para mi) se necesita que la tabla este o bien en edit o bien en insert antes de hacer un post.
Esto lo haria en un boton independiente (para ver que pasa).
Se pondria en edit o en insert el dbnavigator y en el evento onclick del boton pondria esto:
Para empezar creo que la tabla Table_Soporte ya tiene que estar activa, ya que si no es asi, como se puede hacer un edit o un insert?.

Código Delphi [-]
begin
// aqui le preguntamos si esta en edit o en insert la tabla.
If (Unit_DataSoporte.DataModule_Soporte.Table_Soporte.State = dsEdit) or (Unit_DataSoporte.DataModule_Soporte.Table_Soporte.State = dsInsert) then
     begin
with Unit_DataSoporte.DataModule_Soporte.Table_Soporte do
begin
Unit_DataSoporte.DataModule_Soporte.Table_Soporte.Filter := 'cli_cod=' + cliente; // filtramos y encontramos el codigo Soporte = al codigo Cliente.
Filtered := True; // indicamos que filtre
Unit_DataSoporte.DataModule_Soporte.Table_Soporte.Filter := Cliente; // le indicamos que el campo cli_cod de soporte sea igual que cliente.
Unit_DataSoporte.DataModule_Soporte.Table_Soporte.post; // lo grabamos.
end;

end;

Pura especulacion, pero seguro que te dara mucha mas idea del asunto.
Saludos

[[Lepe]]

Otra opción distinta:

Usa un TDBLookUpComboBox en la ventana de "soporte". En el combo se mostrará una lista con todos los clientes dados de alta en la tabla cliente y permitirá guardar el código de ese cliente en la tabla soporte.

De no existir el cliente, el DBlookupcomboBox se mostrará vacío.

Propiedades del dblookupcombo en el inspector de objetos:
Datasource (tabla soporte, su Datasource correspondiente)
Field (tabla soporte, el campo que guardará el código de cliente elegido en el combo)

ListSource (la tabla cliente, su datasource correspondiente)
ListField (tabla cliente, nombre del cliente. Podrías poner varios campos separados por punto y coma)
KeyField (tabla cliente, el campo que hace de clave primaria)

Si necesitas cambiar por código fuente el cliente mostrado en el Lookupcombo, puedes hacer:

Código Delphi [-]
  dblookupcombo.keyvalue := 3 ; // seleccionar en el combo, el cliente con código 3

Ten cuidado con el filtrado de la tabla (propiedad Filter), ya que si se encuentra filtrada, no encontrará el código que queremos.

Saludos

[[Caral]]

Hola
Que bueno, ya vino un maestro.
La verdad ya te esperaba Lepe, ya no sabia que hacer.
Te recomiendo la opción de lepe, sigue sus instrucciones, así aprendí yo.
Bueno, esta bien, sigo aprendiendo.
Saludos

[saltamirano]

Hola Maestro de Maestros,

Quería darte las gracias por tu ayuda. Utilizo el Lookupcombo y ya inserta en la base de datos el cli_cod. Muchas Gracias!!

[saltamirano]

Solo quería darte las gracias por tu apoyo, fue de gran ayuda