Error al insertar registros en el StringGrid

[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

[Elite237]

Una duda Maeyanes:En este codigo lo que hace es por ejemplo, si en la consulta obtiene un valor de 1 por ejemplo, lo que hace es que la variable valor se suma quedando en valor 1+1=2...entonces queda 2,x y se asigna a la columna 2 del stringgrid..es asi?

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

Saludos

[Rodrigo_I]

segun veo la variable valor almacena el contenido del Query3 campo det_valor.

luego en la grilla, en la columna Valor, fila X almacena el contenido de la variable Valor.
eso lo repite para cada columna incrementada.

[[maeyanes]]

Empezado por Elite237

Una duda Maeyanes:En este codigo lo que hace es por ejemplo, si en la consulta obtiene un valor de 1 por ejemplo, lo que hace es que la variable valor se suma quedando en valor 1+1=2...entonces queda 2,x y se asigna a la columna 2 del stringgrid..es asi?

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

Saludos

Así es...


Saludos...