Error al insertar registros en el StringGrid

[[maeyanes]]

Empezado por Elite237

Gracias Maeyanes por tu respuesta.El error al momento de ejecutarlo me lo da en esta linea:

Código Delphi [-]
query3.sql.add('and det_clave like '''+sgEvaluacion.cells[sgEvaluacion.col-1,sgEvaluacion.row]+'.%''');

Aquí como todavía no has hecho Query1.Next, bien puedes volver a usar el valor del campo: Query1.FieldByName('det_clave').AsString

Código Delphi [-]
Query3.SQL.Add('and det_clave like ''' + Query1.FieldByName('det_clave').AsString + '.%''');

Empezado por Elite237

Otra duda, con el codigo que me sugieres me va a asignar los valores en cada columna?osea en la col 2 el valor 1 y asi sucesivamente hasta la columna 6 el valor 5?????

Así es...



Saludos...

[Elite237]

Empezado por maeyanes

Aquí como todavía no has hecho Query1.Next, bien puedes volver a usar el valor del campo: Query1.FieldByName('det_clave').AsString


Código Delphi [-]
Query3.SQL.Add('and det_clave like ''' + Query1.FieldByName('det_clave').AsString + '.%''');







Así es...



Saludos...

Ok Maeyanes, ya no me arrojo el error, solo que no me muestra los valores de las respuestas en las columnas.El codigo lo deje asi :

Código Delphi [-]
procedure TForm1.BitBtnGenerarClick(Sender: TObject);
var
x,valor:integer;
evalua:string;
begin
   //Obtiene la clave del combo evaluacion
  evalua:=copy(cmbEvaluacion.text,0,pos('-',cmbEvaluacion.text)-1);
  //OBTIENE LA VERSION
  query1.close;
  query1.sql.clear;
  query1.sql.add('select det_version from det_evaluacion');
  query1.sql.add('where det_eval='''+evalua+'''');
  abre(query1);
  lblVersion.Caption:=query1.fieldbyname('det_version').asstring;
  //OBTIENE LA SECCION
  query1.close;
  query1.sql.clear;
  query1.sql.add('select * from det_evaluacion');
  query1.sql.add('where det_eval = '''+evalua+'''');
  query1.sql.add('and det_tipo=0');
  query1.sql.add('and det_valor=0');
  query1.sql.add('order by det_clave');
  abre(query1);
  x:=1;
   While not query1.eof do
   begin
      sgEvaluacion.cells[1,x]:=query1.fieldbyname('det_pregunta').asString;{insertamos todas las secciones}
      sgEvaluacion.rowCount:=sgEvaluacion.rowCount+1; {Para ir aumentando renglones}
      inc (x);
      query2.close;
      query2.sql.clear;
      query2.sql.add('Select * from det_evaluacion');
      query2.sql.add('where det_eval='''+evalua+'''');
      query2.sql.add('and det_tipo =1');
      query2.sql.add('and det_clave like '''+query1.fieldbyname('det_clave').asstring+'.%''');
      query2.sql.add('and det_valor=0');
      query2.sql.add('order by det_clave');
      abre(query2);
      query3.close;
      query3.sql.clear;
      query3.sql.Add('select det_eval,det_clave,det_pregunta,det_valor,det_tipo from det_evaluacion');
      query3.sql.add('where det_eval = '''+evalua+'''');
      query3.sql.add('and det_clave like ''' + Query1.FieldByName('det_clave').AsString + '.%''');
      query3.sql.add('and    det_tipo= 2');
      query3.sql.add('order by det_valor asc');
      abre(query3);
      while not query3.eof do
      begin
      valor:=query3.fieldbyname('det_valor').AsInteger;
      sgEvaluacion.cells[valor + 1,x]:=IntToStr(valor);
      query3.next;
      end;
      while not query2.eof do
      Begin
       sgEvaluacion.cells[0,x]:=query2.fieldbyname('det_clave').asstring;
       sgEvaluacion.Cells[1,x]:=query2.fieldbyname('det_pregunta').AsString;
       sgEvaluacion.Cells[2,x]:='1';
       sgEvaluacion.Cells[3,x]:='2';
       sgEvaluacion.Cells[4,x]:='3';
       sgEvaluacion.Cells[5,x]:='4';
       sgEvaluacion.Cells[6,x]:='5';
       sgEvaluacion.Cells[7,x]:='Resultado';
       inc(x);
       query2.next;
        if x=1 then
          sgEvaluacion.RowCount:=2
        else
          sgEvaluacion.RowCount:=x
      End;
   query1.next;
   end;
end;

Saludos.Gracias por el tiempo que me estas dedicando.En serio muchas gracias

[[maeyanes]]

Hola...

Este código:

Código Delphi [-]
abre(query3);
      while not query3.eof do
      begin
      valor:=query3.fieldbyname('det_valor').AsInteger;
      sgEvaluacion.cells[valor + 1,x]:=IntToStr(valor);
      query3.next;
      end;

Cambialo por este:

Código Delphi [-]
      Abre(Query3);
      Valor := Query3.FieldByName('det_valor').AsInteger;
      sgEvaluacion.Cells[Valor + 1, X] := IntToStr(Valor);
      Query3.Close;

El cambio es por que Query3 me imagino que solo debe devolver un registro, así que no tiene caso hacer el ciclo while..do...


Saludos...

[Elite237]

Empezado por maeyanes

Hola...

El cambio es por que Query3 me imagino que solo debe devolver un registro, así que no tiene caso hacer el ciclo while..do...

Saludos...

Explicoor cada pregunta pueden haber 2,3 o hasta 4 respuestas, osea, no siempre es el mismo numero de respuestas para cada pregunta.

Por otro lado modifique el codigo como me sugeriste, solo que me sale un solo valor para una sola pregunta de toda la seccion(osea no me salen los valores para las demas preguntas), y eso no esta bien, ya que faltan otras respuestas.Me sugieres alguna otra solucion?

[[maeyanes]]

Hola...

Ah!! Pues desde ahí hubieses empezado

¿Podrás poner una pequeña tabla mostrando como quieres que se muestren los datos en el StringGrid?

Algo como:

+--------+--------+--------+
| Campo1 | Campo2 | Campo3 |
+--------+--------+--------+
| 1      | 1      | 2      |
+--------+--------+--------+
| 2      | 3      | 4      |
+--------+--------+--------+
| 6      | 8      | 1      |
+--------+--------+--------+

Saludos...

[Elite237]

Aqui esta como quiero que se vean los datos, si te fijas aparecen los valores de las respuestas en un renglon y no ocupan siempre las columnas, sino dependiendo de la pregunta tienen que aparecer los valores de las respuestas

Código Delphi [-]
+---------+---------+--------+---------+--------+--------+--------+
 Numero    | Pregunta| Opcion1|  Opcion2| Opcion3|Opcion4 | Opcion5|
+---------+---------+--------+---------+--------+--------+--------+
 1.1         |¿Como es.|    1    |       2   |            |           |       5   |
+---------+---------+--------+---------+--------+--------+--------+
 1.2         |¿Cual es..|     1   |            |  3         |           |     5
+--------+----------+--------+---------+--------+--------+--------+    
 1.3         |¿Donde...?|   1    |      2    |   3       |           |           |
+---------+---------+--------+---------+--------+--------+-------

Espero haberme dado a entender

[[maeyanes]]

Hola...

Ya veo como quieres tus datos... ahora, veo que haces cuatro consultas diferentes a la misma tabla det_evaluacion, ¿por qué eso?

La primera vez veo que obtienes un valor para poner en un componente TLabel pero luego veo que usas diferentes condiciones en las cláusulas where para las otras 3 consultas.

Un pseudocódigo de lo que quieres lograr sería algo como (esto tratando de deducir los campos de la tabla det_evaluacion):

X := 1;
Query1.Open;
while not Query1.Eof do
begin
  StringGrid.Cells[0, X] := Query1.FieldByName('numero_pregunta').AsString; // 1.1
  StringGrid.Cells[1, X] := Query1.FieldByName('pregunta').AsString; // ¿Que es...'
  StringGrid.Cells[7, X] := 'Resultado';
  Query2.Open; // Obtenemos las respuestas
  while not Query.Eof  do
  begin
    Valor := Query2.FieldByName('valor_respuesta').AsInteger;
    // 1 en columna 2, 2 en columna 3, etc...
    StringGrid.Cells[Valor + 1, X] := IntToStr(Valor);
    Query2.Next
  end;
  Inc(X);
  StringGrid.RolCount := X + 1; // Agregamos una línea nueva
  Query1.Next;
end;

Saludos...