Gran Duda Sobre Query

[georgejg]

Hola...

La siguiente pregunta tal ves ya a sido generada en otro hilo anterior pero en la mayoria (q e visto) no se da ni la solucion mas basica.

es por esto q aun quedan muchas dudas al respecto y mas con Novados como mi persona .

El punto es el siguiente.. ¿¿ Es Posible Modificar una Consulta Generada por medio de un Query y mostrada en un DBGrid ??.

e intentado con un UpdateSql el cual lo conecto desde el Query pero deja mayores dudas sobre su funcionamiento.

el proceso como tal q estoy usando es:
Tengo la Base de Datos (Oracle) DataBase, un Query1, un DataSource1 y un DbGrid1. todo esta conectado entre si y ejecuta la consulta con este codigo:

Código Delphi [-]
if Pos('%',Edit1.Text) <> 0 then
begin
Memo1.Text:=(' select CODIGO_ARTICULO,CANTIDAD,PORCENTAJE,PESO,FECHA,HORA'+
                     ' from ARTICULO B, DETALLE C '+
                     ' WHERE B.CONSECUTIVO_ART = C.CONSECUTIVO_ART '+
                     ' AND C.HORA = ' + QuotedStr(Edit1.Text) +
                     ' AND C.FECHA = ' + QuotedStr(DateToStr(DataTimePicker1.Date)));
 end
else
 begin
Memo1.Text:=(' select CODIGO_ARTICULO,CANTIDAD,PORCENTAJE,PESO,FECHA,HORA'+ 
                    ' from ARTICULO B, DETALLE C '+
                    ' WHERE B.CONSECUTIVO_ART = C.CONSECUTIVO_ART '+
                    ' AND C.HORA = ' + QuotedStr(Edit1.Text) +
                    ' AND C.FECHA = ' + QuotedStr(DateToStr(DataTimePicker1.Date)));
end;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(Memo1.Text);
Query1.Open;

if Query1.IsEmpty then
begin
   MessageDlg('¡No Existen Datos!',mtInformation,[mbOk],0);
   Query1.Close;
   Edit1.SetFocus;
   Abort;
end;

la consulta muestra los datos deseados

ahora sigue nuevamente la pregunta?
¿¿ Es Posible Modificar una Consulta Generada por medio de un Query y mostrada en un DBGrid ??

Cual es la opcion mas recomendada para modificar los datos directamente en DBGrid ya sea utilizando el DBNavigator para guardarlo o cualquier otra opcion.

Les agradeceria en gran manera una opinion al respecto.
un hilo o algun tutorial q despeje estas dudas.

Saludos

[[egostar]]

Hola georgejg

Se me hace curioso este tratamientro

Código Delphi [-]
if Pos('%',Edit1.Text) <> 0 then begin //
Memo1.Text:=(' select CODIGO_ARTICULO,CANTIDAD,PORCENTAJE,PESO,FECHA,HORA'+
                     ' from ARTICULO B, DETALLE C '+
                     ' WHERE B.CONSECUTIVO_ART = C.CONSECUTIVO_ART '+
                     ' AND C.HORA = ' + QuotedStr(Edit1.Text) +
                     ' AND C.FECHA = ' + QuotedStr(DateToStr(DataTimePicker1.Date)));
 end
else
 begin
Memo1.Text:=(' select CODIGO_ARTICULO,CANTIDAD,PORCENTAJE,PESO,FECHA,HORA'+ 
                    ' from ARTICULO B, DETALLE C '+
                    ' WHERE B.CONSECUTIVO_ART = C.CONSECUTIVO_ART '+
                    ' AND C.HORA = ' + QuotedStr(Edit1.Text) +
                    ' AND C.FECHA = ' + QuotedStr(DateToStr(DataTimePicker1.Date)));
end;

Cual es la diferencia que encuentres el signo % si haces lo mismo lo tenga o no?

Salud OS

[georgejg]

Ninguna es solo un Query de Pruba Divinamente puedo usar al mas simple como

Código Delphi [-]
Memo1.Text:=(' select CODIGO_ARTICULO,CANTIDAD,PORCENTAJE,PESO,FECHA,HORA'+ 
                    ' from ARTICULO B, DETALLE C '+
                    ' WHERE B.CONSECUTIVO_ART = C.CONSECUTIVO_ART '+
                    ' AND C.HORA = ' + QuotedStr(Edit1.Text) +
                    ' AND C.FECHA = ' + QuotedStr(DateToStr(DataTimePicker1.Date)));
end;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(Memo1.Text);
Query1.Open;

if Query1.IsEmpty then
begin
   MessageDlg('¡No Existen Datos!',mtInformation,[mbOk],0);
   Query1.Close;
   Edit1.SetFocus;
   Abort;
end;

y tendria el mismo resultado..

pero independiente de la consulta la pregunta sigue siendo la misma..

¿¿ Es Posible Modificar una Consulta Generada por medio de un Query y mostrada en un DBGrid ??


Si me puedes colaborar seria genial

Saludos.

[[kuan-yiu]]

Si buscas un poco en el foro encontrarás lo que necesitas.

borrar registro en un query
Modificar Registro de DBGrid
Metodo Ideal para Modificar un valor a todos los Registros mostrados en un DBGrid
Error 'Cannot modify a read-only dataset'