Ver Mensaje Individual
  #5  
Antiguo 25-05-2007
Avatar de JoseAntonio
JoseAntonio JoseAntonio is offline
Miembro
 
Registrado: abr 2006
Ubicación: Lima - Ciudad de los Reyes.
Posts: 87
Reputación: 21
JoseAntonio Va por buen camino
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

Última edición por JoseAntonio fecha: 26-05-2007 a las 18:01:44.
Responder Con Cita