Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Actualizar campo autonumerico (https://www.clubdelphi.com/foros/showthread.php?t=42324)

JoseAntonio 25-05-2007 21:48:47

tambien tengo el mismo problema al utilizar el siguiente codigo en una tabla sql server en que idcliente es la clave principal y es numerica

Código Delphi [-]
DM_Datos.ADO_TCliente.Append;
  DM_Datos.ADO_TCliente.FieldByName('NumeroCliente').AsInteger := StrToInt(edNumeroCliente.Text);
  DM_Datos.ADO_TCliente.FieldByName('Nombres').AsString := edNombres.Text;
  DM_Datos.ADO_TCliente.FieldByName('Apellidos').AsString := edApellidos.Text;
  DM_Datos.ADO_TCliente.FieldByName('Direccion').AsString :=   DM_Datos.ADO_TCliente.FieldByName('DNI').AsString := edDNI.Text;
  DM_Datos.ADO_TCliente.FieldByName('Observaciones').AsString := edObservaciones.Text;
  DM_Datos.ADO_TCliente.Post;
  DM_Datos.ADO_TCliente.Refresh;

tengo este error:

No se puede insertar el valor NULL en la columna idcliente tabla aaaa.bbbb. La columna no admite valores null. insert falla

alguien sabe una forma mas economica de hacerlo, sin necesidad de usar

Código Delphi [-]
AdoQuery1.SQL.Text := 'Select Max(id_Cliente) From Tclientes';

      AdoQuery1.Open;

 
      Edit1.Text  := IntToStr(AdoQuery1.Fields[0].AsInteger+1);

 
      AdoQuery1.Close;


Gracias de antemano :)

Edit: Bueno les cuento que ya lo solucione, solo era cuestion de activar la opcion identidad a si en SQL Server 2000, mis tablas aunque tenian clave primaria, no tenian esa opcion activada en las claves


La franja horaria es GMT +2. Ahora son las 11:08:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi