Trasladar de StringGrid a BD!!

[lobosito]

Hola a todos los foreros, no sabía donde colocar este hilo (en conexión a BD o en SQL), por eso lo puse en varios...
Mi problema es que usé un StringGrid para acumular datos de manera temporal, ahora necesito que estos datos, y otros que están en Edits y Labels pueda ingresarlos a una BD Paradox.
He tratado de hacer lo siguiente para recorrer el StringGrid celda a celda

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  no,fecha,total,cliente,preciou,producto,ci,can:String;
  i,j:Integer;
begin
  fecha:=Label2.Caption;
  for i:=0 to 8 do
  begin
    for j:=1 to 9 do
    begin
      if StringGrid1.Cells[i,j]<>'' then
      begin
        no:=StringGrid1.Cells[i,j];
      end;
    end;

end;

No he tenido éxito ya que dentro del for anidado no puedo asignar varias variables porque en cada iteración tomarían valores iguales, es decir de la misma columna y fila del StringGrid.
No he utilizado un DBGrid debido a que necesitaba ingresar varios datos externos al StringGrid como lo es el caso de la fecha.
Agradezco como siempre su colaboración...

[Faust]

Amigo, lo que pasa es que en cada iteración del ciclo for metes el valor de la celda en la misma variable, haz el ciclo For solo para las filas del StringGrid y guardas las columnas en otras variables. Por ejemplo:

Suponiendo que el StringGrid se llama Grid y tiene 8 columnas llamadas Var1, Var2... hasta Var8 y variables string con el mismo nombre harías esto

Código Delphi [-]
for i:= 1 to Grid.RowCount - 1 do  // Aquí uso RowCount para saber cuantas filas tiene el grid
begin
  Var1:= Grid.Cells[0, i];
  Var2:= Grid.Cells[1, i];
...
// Al terminar de pasar el valor de las celdas a las variables lo procesas
end;

Asi de simple

[lobosito]

Ya he logrado asignar las variables, pero ahora no quiere insertar los datos a la tabla, mediante sql que puede estar sucediendo, o existe otra manera más directa... Este es mi código hasta el momento, no me da errores pero no funciona:

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  no,fecha,total,cliente,preciou,producto,ci,can:String;
  i,j:Integer;
begin
  fecha:=Label2.Caption;
  for i:=1 to 9 do
  begin
    if StringGrid1.Cells[0,i]<>'' then
    begin
      producto:=StringGrid1.Cells[0,i];
      preciou:=StringGrid1.Cells[2,i];
      can:=StringGrid1.Cells[3,i];
      cliente:=StringGrid1.Cells[5,i];
      ci:=StringGrid1.Cells[6,i];
      total:=StringGrid1.Cells[7,i];
      no:=StringGrid1.Cells[8,i];
      Query2.SQL.Clear;
      Query2.SQL.Add('Insert into factura.db (No_Fac,Fecha,Cliente,Ci_nit,Producto,Precio_u,Can,Total)');
      Query2.SQL.Add('Values('+''''+no+''''+','+''''+fecha+''''+','+''''+cliente+''''+','+''''+ci+''''+','  +''''+producto+''''+','+''''+preciou+''''+','+''''+can+''''+','+''''+total+''''+')');
      Query1.ExecSQL;

    end;
  end;

end;

[Faust]

Te da algún error???

[Faust]

Te convendría usar en tu Query parámetros para evitarte algunos problemillas y trabajo extra

[lobosito]

No entiendo cual es el problema, el Query no da errores, pero a mi tabla no se inserta nada...y no puedo utilizar parámetros porque estos son cambiantes...

[lobosito]

Empezado por lobosito

Código Delphi [-]
      Query2.SQL.Clear;
      Query2.SQL.Add('Insert into factura.db (No_Fac,Fecha,Cliente,Ci_nit,Producto,Precio_u,Can,Total)');
      Query2.SQL.Add('Values('+''''+no+''''+','+''''+fecha+''''+','+''''+cliente+''''+','+''''+ci+''''+','  +''''+producto+''''+','+''''+preciou+''''+','+''''+can+''''+','+''''+total+''''+')');
      Query1.ExecSQL;

    end;
  end;

end;

Un Ahora si todo resuelto...por un pequeñisimo detalle...estaba ejecutando el SQL del Query1 y no del 2 gracias por todo...