edgar_prospero
08-06-2012, 17:13:54
que hay a ver quien puede echarme la mano tengo un codigo donde me marca string too long algo investigue de porque use mas de 255 caracteres a continuacion agrego el codigo para ver si puede orientarme de como puedo hacerle para tenerlo en varias lineas en la parte de tabla.sql.clear es en donde lo tengo en una sola linea
procedure TForm2.GuardarClick(Sender: TObject);
begin
tabla.SQL.Clear;
tabla.Close;
tabla.SQL.Add('insert into arm0062( codigo, nombre, departamento, folio, unidad, cant_piezas, cant_material, costo, total ) values( :pcodigo, : pnombre, : pdepartamento, : pfolio, : punidad, : pcant_piezas, : pcant_material, : pcosto, :ptotal) on duplicatekey update nombre= :pnombre, departamento= :pdepartamento, unidad= :punidad, cant_piezas= :pcant_piezas, cant_material= : pcan_material, costo= : pcosto, total= :ptotal');
tabla.ParamByName('pcodigo').AsString: =codigo.Text;
tabla.ParamByName('pnombre').AsString: =nombre.Text;
tabla.ParamByName('pdepartamento').AsInteger: =departamento.Text;
tabla.ParamByName('pfolio').AsString: =folio.Text;
tabla.ParamByName('punidad').AsInteger: =unidad.Text;
tabla.ParamByName('pcant_piezas').AsInteger: =folio.Text;
tabla.ParamByName('pcant_material').AsInteger: =cant_material.Text;
tabla.ParamByName('pcosto').AsInteger: =costo.Text;
tabla.ParamByName('ptotal').AsInteger: =total.Text;
tabla.Execute;
procedure TForm2.GuardarClick(Sender: TObject);
begin
tabla.SQL.Clear;
tabla.Close;
tabla.SQL.Add('insert into arm0062( codigo, nombre, departamento, folio, unidad, cant_piezas, cant_material, costo, total ) values( :pcodigo, : pnombre, : pdepartamento, : pfolio, : punidad, : pcant_piezas, : pcant_material, : pcosto, :ptotal) on duplicatekey update nombre= :pnombre, departamento= :pdepartamento, unidad= :punidad, cant_piezas= :pcant_piezas, cant_material= : pcan_material, costo= : pcosto, total= :ptotal');
tabla.ParamByName('pcodigo').AsString: =codigo.Text;
tabla.ParamByName('pnombre').AsString: =nombre.Text;
tabla.ParamByName('pdepartamento').AsInteger: =departamento.Text;
tabla.ParamByName('pfolio').AsString: =folio.Text;
tabla.ParamByName('punidad').AsInteger: =unidad.Text;
tabla.ParamByName('pcant_piezas').AsInteger: =folio.Text;
tabla.ParamByName('pcant_material').AsInteger: =cant_material.Text;
tabla.ParamByName('pcosto').AsInteger: =costo.Text;
tabla.ParamByName('ptotal').AsInteger: =total.Text;
tabla.Execute;