Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   .NET (https://www.clubdelphi.com/foros/forumdisplay.php?f=17)
-   -   Instacias de los objetos en asp.net (https://www.clubdelphi.com/foros/showthread.php?t=36029)

karocs 29-09-2006 16:55:34

Instacias de los objetos en asp.net
 
saludos

Si me puedieran coloborar con el siguiente problema...en el evento page_load de la pagina creo y un objeto command con sus parametros, y tipo (procedimiento almacenado), pero cuando cargo la pargina una segunda vez me sale el siguiente error al intentar asignarle el valor a los parametros

"Object reference not set to an instance of an object"

la base de datos es firebird..

Código Delphi [-]
procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
var nombre,qr:string;
begin
  if not IsPostBack then begin
    nombre:='areas';
    qr:='SELECT CODAREA,NOMBRE FROM AREAS';
    dsareas:=conexion.CrearDataSet(qr,nombre);
    with cbAreas do begin
      DataTextField:='nombre';
      DataValueField:='codarea';
      DataSource:=dsareas;
      DataBind;
    end;
    cmd:=fbCommand.Create;
    cmd.CommandText:= 'INGRESAR_USUARIO';
    cmd.CommandType:=CommandType.StoredProcedure;
    cmd.Connection:=conex;
    p1:=fbParameter.Create('@cod',fbdbType.Integer);
    cmd.Parameters.Add(p1);
    p2:=fbParameter.Create('@estado',fbdbType.VarChar);
    cmd.Parameters.Add(p2);
    p3:=fbParameter.Create('@area',fbdbType.VarChar);
    cmd.Parameters.Add(p3);
    p4:=fbParameter.Create('@nombre',fbdbType.VarChar);
    cmd.Parameters.Add(p4);
    p5:=fbParameter.Create('@login',fbdbType.VarChar);
    cmd.Parameters.Add(p5);
    p6:=fbParameter.Create('@passw',fbdbType.VarChar);
    cmd.Parameters.Add(p6);
    p7:=fbParameter.Create('@mail',fbdbType.VarChar);
    cmd.Parameters.Add(p7);
    // viewstate['cmd']:=cmd;
  end;
end;

y en el codigo del boton registrar

Código Delphi [-]
try
  with cmd.Parameters do begin
    p1.Value:='-1'; //aqui aparece el error
    p1.Value:='Activo';
    p1.Value:=txtcod.Text;
    p1.Value:=txtnombre.Text;
    p1.Value:=txtlogin.Text;
    p1.Value:=txtclave.Text;
    p1.Value:=txtmail.Text;
  end;
  cmd.ExecuteNonQuery;
  conex.Close;
except
  raise;
end;

agradeceria mucho, es super urgente

dec 30-09-2006 08:38:30

Hola,

Muchos mensajes en estos Foros como para no saber que el código fuente puede y aun debe resaltarse... ya lo hize yo por ti esta vez... :rolleyes:

Por otro lado,... estás condicionando la creación de un objeto, y luego tratas de acceder a dicho objeto "sí o sí"... pero, obviamente, si no se creó, obtendrás el error que mencionas. Así pues, lo que se me ocurre es que tienes que plantearte el asunto de otro modo, o, cuando no, comprobar la existencia de la instancia del objeto en cuestión antes de acceder a sus propiedades.


La franja horaria es GMT +2. Ahora son las 17:13:03.

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