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

[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,

[[Caral]]

Hola
Bueno no entiendo bien.
Tienes un combobox, en este vas a poner el numbre del grupo (sacado de la tabla).
Tienes un edit (nombre nuevo)
otro edit (codigo nuevo).
Y luego lo cambias con un boton.
Es asi?
Saludos

[LENOCB]

Hola
exacto, la parte de llenado del dbcombobox ya esta, tambien esta la parte en donde de lo seleccionado en el dbcombobox lo pongo en el edit (para cambiar el nombre), ahora, quiero que en el otro edit (en el del codigo), a medida que voy eligiendo el nombre, ponga en el edit (en el del codigo), el codigo que le pertenece a ese nombre seleccionado