View Single Post
  #1  
Old 04/04/2005
kryna kryna is offline
Miembro
 
Join Date: Mar 2005
Posts: 46
Rep Power: 0
kryna Va por buen camino
como modificar si los ds son de solo lectura

hola
Necesito modificar algun campo de los registros de las tablas pero
antes necesito buscar dicho registro y mostrarlo.. para asi poder
escribir en el dbedit correspondiente el nuevo valor...
El principal problema que tengo es que luego que realizo una
busqueda..

no puedo modificar los datos que estan en los dbedit entonces no
puedo probar ninguno de las entencias que tengo..
¿ como tengo que hacer para desbloquear los dbedit ? tengo la
propiedad resquestlive en true..

estoy usando como gestor paradox, la busqueda que realizo por sql es

SELECT especialidad.Cod_especialidad,
especialidad.Descripcion_especialidad, especialidad.Orden,
especialidad.Nota, concepto.Cod_especialidad, concepto.Cod_concepto,
concepto.Descripcion_concepto, costos.Cod_concepto, costos.Fecha,
costos.Costo
FROM especialidad, concepto, costos
WHERE (especialidad.Cod_especialidad =
concepto.Cod_especialidad)
AND (concepto.Cod_concepto = costos.Cod_concepto)
AND concepto.Cod_concepto = :Codigo

y el codigo en delphi es

if editorcodigo <> nil then

qrycodigo.Close;
qrycodigo.ParamByName('Codigo').AsInteger := StrToInt
(editorcodigo.text);
Dsconcepto.dataset := qrycodigo;
qrycodigo.Open;


qrycostos.Close;
qrycostos.ParamByName('Codigo').AsInteger := StrToInt
(editorcodigo.text);
Dscostos.dataset := qrycostos;
qrycostos.Open;


qryespecialidad.Close;
qryespecialidad.ParamByName('Codigo').AsInteger := StrToInt
(editorcodigo.text);
Dsespecialidad.dataset := qryespecialidad;
qryespecialidad.Open;


if qrycodigo.EOF then
ShowMessage('No encontré ningún Registro!');

de verdad no se que hacer..

saludos
Reply With Quote