kryna
04-04-2005, 21:29:46
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
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