Error al insertar registros en el StringGrid

[Elite237]

Empezado por 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.
Saludos...

Tengo 2 combobox.uno donde selecciono la evaluacion a presentar y el otro para seleccionar el usuario que lo va a presentar.

Hago una primer consulta para sacar la version de la evaluacion y mostrarla en un label, esta la comparo que sea la evaluacion que seleccione del combobbox.Otra consulta es para sacar las secciones que tiene la evaluacion, de igual manera la comparo con la opcion que selecciona del combobox, tambien me aseguro que es una seccion(puesto que tiene 0 y solo las secciones tienen esa tipo).Algo similar es para sacar las preguntas de esa seccion,ya que me aseguro que sea la opcion que selecciona el usuario del combobox,que sea de tipo 1(ya que solo las preguntas tienen ese tipo) y la ultima que acabo de hacer es para sacar los respuestas para cada pregunta,al igual que las demas la comparo con los valores que he comentado y me aseguro que sea tipo 2(ya que solo las respuestas tienen ese tipo).Y hago que se visualice solo el valor que tiene cada respuesta en el stringgrid.Asi tengo mi tabla y te coloque unos ejemplos entre parentesis para que me de a entender mejor.

[delphi]

+--------------+
det_Evaluacion
+--------------+
det_eval ' clave de la evaluacion..
det_version ' version de la evaluacion
det_clave ' clave ya sea de la seccion,pregunta u opcion
det_pregunta ' descripcion de la seccion,pregunta u opcion
det_tipo ' tipo que tendra la seccion(0),pregunta(1) u opcion(2)
det_valor ' valor que tendra la seccion(0),pregunta(0) u opcion(puede ser 1,2,3,4 ó 5
+--------------+
[/delpih]

Con esto que te explico te parece que deba usar el codigo que me sugieres?

[[maeyanes]]

Hola...

Si te entendí bien, lo que tu código debe hacer es algo así:

+--------+----------+---------+---------+---------+---------+---------+
| Numero | Pregunta | Opcion1 | Opcion2 | Opcion3 | Opcion4 | Opcion5 |
+--------+----------+---------+---------+---------+---------+---------+
| 1      | Sección  |         |         |         |         |         |
+--------+----------+---------+---------+---------+---------+---------+
| 1.1    | ¿Como es.|    1    |    2    |         |         |    5    |
+--------+----------+---------+---------+---------+---------+---------+
| 1.2    | ¿Cual es.|    1    |         |    3    |         |    5    |
+--------+----------+---------+---------+---------+---------+---------+    
| 1.3    | ¿Donde...|    1    |    2    |    3    |         |         |
+--------+----------+---------+---------+---------+---------+---------+
| 2      | Sección  |         |         |         |         |         |
+--------+----------+---------+---------+---------+---------+---------+
| 2.1    | ¿Como es.|    1    |    2    |         |         |    5    |
+--------+----------+---------+---------+---------+---------+---------+
| 2.2    | ¿Cual es.|    1    |         |    3    |         |    5    |
+--------+----------+---------+---------+---------+---------+---------+    
| 2.3    | ¿Donde...|    1    |    2    |    3    |         |         |
+--------+----------+---------+---------+---------+---------+---------+

Si lo anterior es cierto, prueba con este código:

Código Delphi [-]
procedure TForm1.BitBtnGenerarClick(Sender: TObject);
var
  X: Integer;
  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.Text := Format('select det_version from det_evaluacion ' +
    'where det_eval = ''%s''', [Evalua]);
  Query1.Open;
  lblVersion.Caption := Query1.FieldByName('det_version').AsString;
  //OBTIENE LA SECCION
  Query1.Close;
  Query1.SQL.Text := Format('select * from det_evaluacion ' +
    'where det_eval = ''%s'' and det_tipo = 0 and ' +
    'det_valor = 0 order by det_clave', [Evalua]);
  Query1.Open;
  // sgEvaluacion debe tener solo la línea de encabezados, esto es: RowCount = 1
  X := 1;
  while not Query1.Eof do
  begin      
    sgEvaluacion.RowCount := X + 1; // Agregamos línea para sección
    // Agregamos la clave y la descripción de la sección
    sgEvaluacion.Cells[0, X] := Query1.FieldByName('det_pregunta').AsString;
    sgEvaluacion.Cells[1, X] := Query1.FieldByName('det_pregunta').AsString;
    // Buscamos las preguntas
    Query2.Close;
    Query2.SQL.Text := Format('select * from det_evaluacion ' + 
      'where det_eval = ''%s'' and det_tipo = 1 and ' +
      'det_clave like ''%s.%%'' and det_valor = 0 ' +
      'order by det_clave', [Evalua, Query1.FieldByName['det_clave'].AsString]);
    Query2.Open;
    while not Eof do
    begin
      Inc(X);
      sgEvaluacion.RowCount := X + 1; // Agregamos otra línea para pregunta
      sgEvaluacion.Cells[0, X] := Query2.FieldByName('det_clave').AsString;
       sgEvaluacion.Cells[1, X] := Query2.FieldByName('det_pregunta').AsString;
      // Buscamos las respuestas de la pregunta actual
      Query3.Close;
      Query3.SQL.Text := Format('select det_valor from det_evaluacion ' +
        'where det_eval = ''%s'' and det_clave like ''%s.%%'' and '
        'det_tipo = 2 order by det_valor asc', [Evalua, 
        Query1.FieldByName('det_clave'].AsString]);
      Query3.Open;
      while not Query3.Eof do
      begin
        Valor := Query3.FieldByName('det_valor').AsInteger;
        sgEvaluacion.Cells[Valor + 1, X] := IntToStr(Valor);
        Query3.Next;
      end;
      sgEvaluacion.Cells[7, X] := 'Resultado';
      Query2.Next
    end;
    Inc(X); // Incrementamos X para obtener la siguiente sección
    Query1.next
  end
end;

Saludos...

[Elite237]

Gracias por el codigo,copie y pegue todo tu codigo pero me manda el siguiente error:

Código Delphi [-]
Not enough actual parameters
']' expected but identifier 'AsString' found

El error me lo manda en la linea donde buscamos las preguntas

Código Delphi [-]
'order by det_clave', [Evalua, Query1.FieldByName['det_clave'].AsString]);

Saludos

[[maeyanes]]

Hola...

Hay un pequeño error y es que me faltó un +, la sentencia debe quedar así:

Código Delphi [-]
                 Query3.SQL.Text := Format('select det_valor from det_evaluacion ' +
        'where det_eval = ''%s'' and det_clave like ''%s.%%'' and ' + // <--- este + fataba 
        'det_tipo = 2 order by det_valor asc', [Evalua, 
        Query1.FieldByName('det_clave').AsString]); // <--- Aquí va ) en lugar de ] 

Y la línea que me indicas es:

Código Delphi [-]
'order by det_clave', [Evalua, Query1.FieldByName('det_clave').AsString]); // <--- son parentesis no [ ]

Saludos...

[Elite237]

Ya lo modifique, pero me manda el siguiente error:

Código Delphi [-]
Project Project1.exe raised exception class EInOutError with message 'I/O error 6'

De todas maneras te muestro como quedo el codigo en el boton:

Código Delphi [-]
procedure TForm1.BitBtnGenerarClick(Sender: TObject);
var
  X: Integer;
  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.Text := Format('select det_version from det_evaluacion ' +
    'where det_eval = ''%s''', [Evalua]);
  Query1.Open;
  lblVersion.Caption := Query1.FieldByName('det_version').AsString;
  //OBTIENE LA SECCION
  Query1.Close;
  Query1.SQL.Text := Format('select * from det_evaluacion ' +
    'where det_eval = ''%s'' and det_tipo = 0 and ' +
    'det_valor = 0 order by det_clave', [Evalua]);
  Query1.Open;
  // sgEvaluacion debe tener solo la línea de encabezados, esto es: RowCount = 1
  X := 1;
  while not Query1.Eof do
  begin
    sgEvaluacion.RowCount := X + 1; // Agregamos línea para sección
    // Agregamos la clave y la descripción de la sección
    sgEvaluacion.Cells[0, X] := Query1.FieldByName('det_pregunta').AsString;
    sgEvaluacion.Cells[1, X] := Query1.FieldByName('det_pregunta').AsString;
    // Buscamos las preguntas
    Query2.Close;
    Query2.SQL.Text := Format('select * from det_evaluacion ' + 
      'where det_eval = ''%s'' and det_tipo = 1 and ' +
      'det_clave like ''%s.%%'' and det_valor = 0 ' +
      'order by det_clave', [Evalua, Query1.FieldByName('det_clave').AsString]);
    Query2.Open;
    while not Eof do
    begin
      Inc(X);
      sgEvaluacion.RowCount := X + 1; // Agregamos otra línea para pregunta
      sgEvaluacion.Cells[0, X] := Query2.FieldByName('det_clave').AsString;
       sgEvaluacion.Cells[1, X] := Query2.FieldByName('det_pregunta').AsString;
      // Buscamos las respuestas de la pregunta actual
      Query3.Close;
      Query3.SQL.Text := Format('select det_valor from det_evaluacion ' +
        'where det_eval = ''%s'' and det_clave like ''%s.%%'' and ' +
        'det_tipo = 2 order by det_valor asc', [Evalua,
        Query1.FieldByName('det_clave').AsString]);
      Query3.Open;
      while not Query3.Eof do
      begin
        Valor := Query3.FieldByName('det_valor').AsInteger;
        sgEvaluacion.Cells[Valor + 1, X] := IntToStr(Valor);
        Query3.Next;
      end;
      sgEvaluacion.Cells[7, X] := 'Resultado';
      Query2.Next
    end;
    Inc(X); // Incrementamos X para obtener la siguiente sección
    Query1.next
  end
end;

[[maeyanes]]

Hola

En la línea donde dice while not Eof do debería decir while not Query2.Eof do...

Ahora, si te recomiendo mucho que te dediques a analizar bien el código, no solo se trata de copiar y pegar...



Saludos...

[Elite237]

Estoy checando el codigo,ya que tu lo haces diferente que yo.Gracias por la ayuda.Saludos