Cual es la Mejor forma de Agregar,Modificar y Eliminar en ADO ?

[LENOCB]

aca va la base de datos

[LENOCB]

y ahora no me deja subir el programa !!! dice que me execedi el limite

[[Caral]]

Partelo en varios pedazos
Si son varios form, pon unos en un zip y otros en otro, acuerdate de quitarle el exe asi pesara menos
Saludos

[LENOCB]

falta una parte , porque dice que me pase por 4,5 kb jeje

[[Caral]]

Hola
Ya tengo estos
Arriba hay en la franja azul ahy un titulo que dice USER CP
Presionalo, vas a entrar en tu perfil
Al lado izquierdo hay varias opciones, al final veras archivos adjuntos
presionala y eliminas los que hay, esto te dara el espacio que necesitas
Luego envia los que faltan
En la tarde lo reviso, voy a almorzar.
Saludos

[LENOCB]

Hola
Muchas Gracias por la ayuda !! de donde sos ?? yo soy de Argentina y aca son las 4:13 hs de la tarde, te lo pregunto porque que me quede sorprendido porque que te ivas a almorzar , jeje
bueno acá va la ultima tanda ....

[LENOCB]

Hola
Gracias a dios lo puse lograr, el problema era en la bd, el campo al final era un autoincremental, borre la tabla y la hice de nuevo y lo setee como numerico y funciona al pelo .....

[[Caral]]

Hola
El problema esta muy facil de solucionar, el campo no se llama como lo tienes, revisalo.

Código Delphi [-]
Var
 agregar:String;
 Co:Integer;
begin
 //Primero Buscar el Registro para ver si está .  Y verifica tambien el codigo
  FormGrupos.ADOQuery1.Active := False;
  FormGrupos.ADOQuery1.SQL.Text := 'Select Nombre From TGrupos WHERE Nombre = :Nombre';
  FormGrupos.ADOQuery1.Parameters.Parambyname('Nombre').Value:= Edit1.Text;
  FormGrupos.ADOQuery1.Active := True;
  If Edit1.Text = FormGrupos.ADOQuery1.Fields[0].Value then   begin
     MessageDlg('El Grupo :  '+Edit1.Text+' ya Existe ',mtError,[mbOK],0);
     Edit1.text:='';
     Edit1.SetFocus;
     end
  else begin
    //Ahora me fijo el Código si ya existe.
        FormGrupos.ADOQuery1.SQL.Clear;
        FormGrupos.ADOQuery1.Active := False;
        FormGrupos.ADOQuery1.SQL.Text:= 'Select Codigo_G  From TGrupos Where Codigo_G = :Cod';
        FormGrupos.ADOQuery1.Parameters.Parambyname('Cod').Value:= Edit2.Text;
        FormGrupos.ADOQuery1.Active:=true;
        If Edit2.Text = FormGrupos.ADOQuery1.Fields[0].Value Then begin
           MessageDlg('El Código: '+Edit2.Text+', ya existe', mtError,[mbOk],0);
           Edit2.Text:='';
           Edit2.SetFocus;
         end

         else   //Esta todo bien entonces agrego.
                begin
                        FormGrupos.ADOQuery1.Active := False;
                        FormGrupos.ADOQuery1.SQL.Text:= 'Insert Into TGrupos (Nombre, Codigo_G) Values (:Nombre, :Codigo)';
                        FormGrupos.ADOQuery1.Parameters.Parambyname('Nombre').Value:= Edit1.Text;
                        FormGrupos.ADOQuery1.Parameters.Parambyname('Codigo').Value:= StrToInt(Edit2.Text);
                        FormGrupos.ADOQuery1.ExecSQL;
                        Showmessage('El Grupo se inserto bien');

          end;
       end;

En algun momento le cambiaste el nombre.
Estoy viendo el programita, quieres algo mas?
Saludos