PDA

Ver la Versión Completa : problemas con base de datos


paco_galo
20-05-2007, 00:47:14
:) Hola amigos(as), tengo un problema con una aplicacion.:)

Estoy manejando una base de datos con 5 tablas, una es la maestra, y las demas son catalogos, dbgrid's conectadas a las tablas en 5 formularios diferentes, hasta ahi voy bien, el problema es que cuando en mi formulario que controla la tabla maestra tengo una serie de dbedit's y dbcombobox's
todos estan ligados por su datasource a la tabla maestra, necesito almacenar informacion de otro campo de las tablas catalogos y no se como hacerlo.

ejemplo:p

los catalogos tienen 2 campos "clave" y "descripcion"

en el dbcombobox del formulario muestro la "descripcion" pero en mi tabla maestra necesito almacenar la clave.

como le hago??:confused: :confused:

JXJ
20-05-2007, 16:27:01
con un componente query
yo uso mysql y mydac y quiero el texto en un tmemo.
suponiendo tu tabla tenga 5 campos

---------------------
| 0 | 1 | 2 | 3 | 4 |
---------------------
y tu quieres usar el texto de la posicion 0
---------------------

//en la seccion de procedures arriba de { Private declarations }
procedure GetResults( SQLQuery: String; ZQuery: TMyQuery );//Cambua TMyQuery por el tipo de tu componente query

//desdepues de {$R *.dfm}

procedure TFprincipal.GetResults( SQLQuery: String; ZQuery: TMyQuery );
begin
MyQuery1.SQL.Text := SQLQuery;
MyQuery1.Open;
MyQuery1.DisableControls;
MyQuery1.First;
end;


GetResults('select ID from tabla_canales where nombre = "'+ Keyword +'"', MyQuery1);
id:= MyQuery1.Fields[0].AsString;

try
for i :=1 to MyQuery1.RecordCount do
begin
GetResults('Select * from tabla_titulares where owner = "'+ id + '"', MyQuery1 );

{MemoDescription.Text := (MyQuery1.FieldByName('NOMBRE').AsString);
MemoExample.Text := (MyQuery1.FieldByName('NOMBRE').AsString);
}
//----------
MemoDescription.Text := (MyQuery1.Fields[1].AsString);
MemoExample.Text := (MyQuery1.Fields[1].AsString);

result := true;
//---------
MyQuery1.Next;
end;
finally

end;