Problema: Linea demasiado larga

[ojan69]

Hola! lo primero saludar, ya que es mi primer "post" en este foro. Estoy programando una pequeña base de datos (Paradox) y alguna de las tablas tiene un campo "autoincremento". Sí, ya sé que es un tipo de dato conflictivo, pero mi única intención es hacer una tupla única, así que he optado por esta opción. Bien, a la hora de insertar en la tabla "hijos" la cual tiene un campo "autoincremento" hago algo de este estilo:

Código Delphi [-]
  FPrincipal.Query1.SQL.Clear;
  FPrincipal.Query1.SQL.Add ('Insert into hijos (Dni,Anio_Nacimiento,Sexo)');
  FPrincipal.Query1.SQL.Add ('values (NIPropietario,:AnioNacimiento,:Sexo)');
  FPrincipal.Query1.ParamByName('DNIPropietario').AsString:=FFamilia.EDniPropietario.Text;
  ('AnioNacimiento').AsString:=FFamilia.ComboBoxAnio.Text;
  FPrincipal.Query1.ParamByName'sexo').AsString:=FFamilia.ComboBoxSexo.Text;
   FPrincipal.Query1.ExecSQL;
  //FIn

Así el campo autoincremento se va actualizando perfectamente. Ahora bien, tengo otra tabla con un montón de campos y en la instrucción nº2 resulta que me pongo en mas de 300 caracteres, total, que me dice q no puedo pasar de 255... y la verdad que no tengo ni idea de como solucionar esto. Alguien que me eche un cable? Please? Mil gracias de antemano. Un saludo a tod@s.
Iván arpegios_magicos@yahoo.es

[marcoszorrilla]

En un principio las líneas pueden dividirse, habría que ver tu código para ver cual pueda ser la solución:

Código Delphi [-]
   With frImportar do
   begin
   QrImportaDos.Close;
   QrImportaDos.Sql.Clear;
 
   QrImportaDos.Sql.Add('Insert Into '':Colw:Configur''');
   QrImportaDos.Sql.Add('(ClubCtrl, Club, Direccion, Cpostal, Ciudad, Provincia'+
                        ', Abs, Ord, TNeutro, Asloma, Ultimo, ExportUnidad)');
 
   QrImportaDos.Sql.Add(' Select C.ClubCtrl, C.Club, C.Direccion, C.Cpostal, '+
                        'C.Ciudad, C.Provincia, C.Abscisa, C.Ordenada, C.TNeutro, '+
                        'C.Asloma, C.Ultimo,''A:''');
 
   QrImportaDos.Sql.Add(' From FcConfig As C');
 
   QrImportaDos.ExecSql;
   end;

Un Saludo.

[ojan69]

Que tal, acabo de probarlo y funciona de fenómenos (como dirían en " la naranja mecánica"). Un abrazo y gracias de nuevo... pasaré mas por aquí. ;-).
Salud!!!

Iván www.grupogaia.net (esto por si quereis saber algo de mi banda)