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

[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

[LENOCB]

Hola, sisi gracias, ahora estoy en la parte de modificacion del grupo ...
en un form tengo un dbcombobox, un edit para el nombre del grupo y otro para la contraseña, la cosa es así, hago una consulta que me llene el dbcombobox, para que puede elegir el nombre del grupo a modificar, cuando lo encuentra, en el evento onclick del dbcombobox, copio lo seleccionado en el edit que edita el nombre del campo, ahora bien, yo quiero que ahora, me aparezca en el otro edit (que el setea el codigo), el codigo correspondiente a ese nombre del grupo, me explico ?

[[Caral]]

Hola
No se si sera una tarea, pero en casos de modificacion, edicion y borrado, el componente DBNavigator lo hace solo, sin codigo ni nada.
Por que usar algo mas?
Me lo explicas.
Saludos

[LENOCB]

porque me gusta más los botones jeje, para mi queda un poco mejor a la vista,