7 respuestas en este tema

[TiammatMX]

Buen día, jóvenes hombres y mujeres que se dedican a programar en Delphi.

Resulta que tengo éste código:

delphi

with adoqryMltpl do
    begin
      Active := False;
      SQL.Clear;
      SQL.Add('INSERT INTO E4R_REPORTE ' +
                          '(E4R_SECUENCIA, ' +
                           'E4R_PROPIETARIO, ' +
                           'E4R_TITULO, ' +
                           'E4R_DESCRIPCION_REPORTE, ' +
                           'E4R_STORED_PROCEDURE, ' +
                           'E4R_ES_FIJO, ' +
                           'E4R_ES_LABORATORIO, ' +
                           'E4R_TAB, ' +
                           'E4R_ESPUBLICO) ' +
                     'VALUES (,' + QuotedStr(sttsbarBrr.Panels.Items[2].Text) + ', ' +
                             QuotedStr(frmEstdsLbrtr1aVez.edtTtlRprt.Text) + ', ' +
                             QuotedStr(frmEstdsLbrtr1aVez.mmoDscrpcnRprt.Text) + ', ' +
                             QuotedStr('') + ' , 0, 0, 0,'+sEsPblc+')');
      try
        ExecSQL;
.
.
.
.
.
.
 
      except
        begin
          Beep;
          MessageDlg('¡Ha ocurrido un error guardando el encabezado!'+#13+#10+''+#13+#10+'Contactar al administrador de base de datos.', mtError, [mbOK], 0);
        end;
      end;
    end;

En donde el campo E4R_SECUENCIA es un campo autoincrementable de SQLServer 2008 R2..., trabajándolo con Delphi 6 en un ambiente Windows XP.

El punto es que cada vez que intento insertar un nuevo registro en tiempo de ejecución con "debug", me manda éste error en la imagen, y OBVIAMENTE no inserta el nuevo registro (lo cual es un alivio, realmente). He intentado de todo, con NULL, con 0 (cero), con un espacio, amenazándola, mentándosela..., pero no inserta registros...

¿Serían tan amables de "desburrarme" en cómo debo hacer para que mis sentencias SQL den el resultado requerido, es decir, que inserte un registro que tiene un campo autoincrementable? Sólo espero que ésta pregunta no se vaya a un año sin respuestas pero con más de 150 vistas, como una anterior que hice...   

Archivos adjuntos

•  2781_4353749df7543d04367122c85d7a64597f4f4500.jpg   18,95KB   5 descargas

[eduarcol]

No se si en msSqlServer sera igual, pero en Firebird debe ser asi:

delphi

with adoqryMltpl do
 
    begin
      Active := False;
      SQL.Clear;
      SQL.Add('INSERT INTO E4R_REPORTE ' +
                          '('E4R_PROPIETARIO, ' +
                           'E4R_TITULO, ' +
                           'E4R_DESCRIPCION_REPORTE, ' +
                           'E4R_STORED_PROCEDURE, ' +
                           'E4R_ES_FIJO, ' +
                           'E4R_ES_LABORATORIO, ' +
                           'E4R_TAB, ' +
                           'E4R_ESPUBLICO) ' +
                     'VALUES (QuotedStr(sttsbarBrr.Panels.Items[2].Text) + ', ' +
                             QuotedStr(frmEstdsLbrtr1aVez.edtTtlRprt.Text) + ', ' +
                             QuotedStr(frmEstdsLbrtr1aVez.mmoDscrpcnRprt.Text) + ', ' +
                             QuotedStr('') + ' , 0, 0, 0,'+sEsPblc+')');
      try
        ExecSQL;
.
.
.
.
.
.
 
      except
        begin
          Beep;
          MessageDlg('¡Ha ocurrido un error guardando el encabezado!'+#13+#10+''+#13+#10+'Contactar al administrador de base de datos.', mtError, [mbOK], 0);
        end;
      end;
    end;

[TiammatMX]

Sí, EduardoCol..., ya también intenté remover el campo y su correspondiente valor y no agrega el registro...
_____________________________
Modificación: ¡¡MIENTO CON TODOS LOS DIENTES!! , sí agregó el registro quitándole el nombre del campo y su valor esperado . Muchas gracias, demos por terminado éste penoso asunto... 

[Delphius]

¿Entonces está solucionado? ¿Cuál es la solución?


Disculpen que pregunte, ¿Cuál es la diferencia entre la consulta de Felipe y la de Eduardo? No la veo.


Por cierto, Felipe no estaría mal que utilizaras parámetros para no torturarse demasiado con las comillas, y el paso de los valores a la consulta. 


Saludos,
PD: Felipe recuerda que puedes poner al hilo como [RESUELTO] editando el primer mensaje del hilo y añadiéndole el prefijo.

[Wilson]

¿Entonces está solucionado? ¿Cuál es la solución?


Disculpen que pregunte, ¿Cuál es la diferencia entre la consulta de Felipe y la de Eduardo? No la veo.

La consulta de Eduardo elimina el campo Autoincremental.


Saludos

[Delphius]

La consulta de Eduardo elimina el campo Autoincremental.

¡Voy a tener que ir al oculista! No lo vi.


Así es... cuando se trata de campos autoincrementales, la regla que siguen los motores de base de datos, en un INSERT es de obviarlo.


Saludos,

[TiammatMX]

¿Entonces está solucionado? ¿Cuál es la solución?


Disculpen que pregunte, ¿Cuál es la diferencia entre la consulta de Felipe y la de Eduardo? No la veo.

Que Eduardo elimina el uso del campo E4R_SECUENCIA y la comilla vacía en los valores...

Por  cierto, Felipe no estaría mal que utilizaras parámetros para no  torturarse demasiado con las comillas, y el paso de los valores a la  consulta. 

Sí, Delphius, lo sé..., el problema es que se crea "al vuelo" el TADOQuery que ejecutará la inserción, y es menos confuso poner los valores directos de los campos que en un parametrizado. No te creas, estoy intentando eliminar muchos vicios de programación que tengo..

PD: Felipe recuerda que puedes poner al hilo como [RESUELTO] editando el primer mensaje del hilo y añadiéndole el prefijo.

A veces me deja, a veces no me deja..., pero bueno, ya lo hice hoy que sí me dejó... 

[Delphius]

Cuando se trata de consultas en tiempo de ejecución quizá si sea más fácil y directo pasar los datos como haces.
Aunque también se puede acceder a los parámetros en tiempo de ejecución, igual de siempre. Simplemente se aconseja hacer uso del método Prepare para asegurar que se arme bien la consulta y se tengan los parámetros creados listos para recibir los datos. Esto agiliza la ejecución.


Ni bien le pasas la consulta a la propiedad .Sql el componente solito la "parsea" buscando los parámetros. Por cada uno que encuentre, crea un parámetro y lo asocia a la clase TParams o TParameters según la suite de componentes que utilices (ADO es el único que utiliza TParameters).


Saludos,