Duda con DBnavigator y bases de datos.
 

Buenas tardes a todos, tengo una pequeña duda que ojala me pudieran orientar, de ante mano muchas gracias, sobretodo por la gran ayuda de mi problema anterior, he aprendido mucho en el poco tiempo que llevo en esta comunidad.

Mi problema es el siguiente, conecto un dbnavigator a un dbgrid, para trabajar el agregar, modificar y eliminar y todo bien, mientras la tabla con la que conecto el dbgrid tenga o traiga datos, pero si por ejemplo le aplico un Delete a la tabla y la limpio toda, al ir al aplicativo no me da la opción mediante el dbnavigator de llenar la tabla en el dbgrid, sino que todo viene vació(me refiero al dbgrid, logicamente ya que la tabla esta vacía), pero se me inhabilita el dbnavigator... ¿como pudiera hacer para que aunque el dbgrid no traiga ningún dato, solo porque la tabla esté vacía en la base de datos, aún así, funcione el db navigator y pueda añadir un primer registro desde el programa que hice y no recurrir a llenar un registro en la bd y despues si poder trabajar el resto llenado desde el programa?

Muchas gracias a todos.

Se supone que tienes el botón 'insertar' en el dbnavigator, ¿no?

si amigo, la cuestion es que el bdnavigator aparece como desactivado cuando la tabla a la que hace conexión el dbgrid está vacía y el dbgrid viene vacio, pero mientras haya por lo menos un dato en la tabla y el dbgrid lo traiga, la barra dbnavigator estará activada y podrá insertar, eliminar y todo lo demás.

¿Y el dataset (la tabla) está activo/abierto?

si amigo, así tengo el código donde trabajo el dbnavigator.

Código Delphi [-]
procedure TForm3.cargaDBGRID;
begin
StrSQL:='';

StrSQL:='SELECT * FROM GEINVZLA_TB_CUENTAS;';

  Cn002  := TADOConnection.Create(nil);
  adotComponents := TADOQuery.Create(nil);
  //Conexion a la Base de datos
  Conectado2:=Open_DB (Cn002 , 5 , ServerDB, NameDB2, '', PasswordDB, '' );


  //si hay conexion continue con el proceso
  if Conectado2 then
  Begin

    //Se Abre el DataSet de la factura
    Conectado2:= Open_ADO_Qry(Cn002,adotComponents,StrSQL,false);

    // Verifica si se Abrio el DataSet

  adotComponents.Open;
  adotComponents.Edit;
  adotComponents.Insert;

   if Conectado2 then
    Begin
      with adotComponents do begin
        while not Eof do
        Begin
          dsComponents.DataSet:= adotComponents;
          with DBGrid1 do begin
              TabOrder := 0;
              TitleFont.Color := clWindowText;
              TitleFont.Height := -14  ;
              TitleFont.Name := 'MS Sans Serif';
              TitleFont.Style := [fsBold]   ;
              DataSource := dsComponents  ;
                 end;
           DBNavigator1.DataSource:=dsComponents;
           DBGrid1.DataSource:=dsComponents;
           Next;
        End;
        First;
      End;
    End;
  End;
End;

Hola principiodual.

Por favor cuando incluyas código en tus mensajes usa las etiquetas para darle legibilidad. Uso:



Ya las agregué en tu mensaje.

Saludos y gracias por tu colaboración :)

Amigo ya lo resolví y disculpa si no identifico el código, no me agarra el éditor de codigo en respuesta... pero público aquí como me funciona por si a alguién mas le paso algo así y muchas gracias, porque con tus preguntas me hiciste analizar mejor el código y poderme dar cuenta de mi error... Aquí está el código como me funciona... el primer error es que uso la misma variable Conectado2 veces, cree otra var que se llama Conectado3 y saque la carga del dbgrid y el dbnavigator fuera del ciclo controlado por el Conectado3, quedando así.

Gracias por la acotación, estoy por opera y no me agarra las etiquetas, voy a abrir la página por Mozilla a ver si es el navegador y publicar el código como me funciona, por si alguién mas le llegase pasar lo mismo que a mi tenga la solución... Gracias :D

aquí está el código como me funciona, ahora si puede agregar aún el dbgrid venga vacio ya sea porque la tabla a la que se conecta no tiene datos y pueda ser llenado directo desde el aplicativo o programa.

Código Delphi [-]
procedure TForm3.cargaDBGRID;
begin
StrSQL:='';

StrSQL:='SELECT * FROM GEINVZLA_TB_CUENTAS;';

  Cn002  := TADOConnection.Create(nil);
  adotComponents := TADOQuery.Create(nil);
  //Conexion a la Base de datos
  Conectado2:=Open_DB (Cn002 , 5 , ServerDB, NameDB2, '', PasswordDB, '' );


  //si hay conexion continue con el proceso
  if Conectado2 then
  Begin

    //Se Abre el DataSet de la factura
    Conectado3:= Open_ADO_Qry(Cn002,adotComponents,StrSQL,false);

 

  adotComponents.Open;
  adotComponents.Edit;
  adotComponents.Insert;

  dsComponents.DataSet:= adotComponents;       
  DBGrid1.DataSource:=dsComponents;
  DBNavigator1.DataSource:=dsComponents;


   if Conectado3 then
    Begin
      with adotComponents do begin

        while not Eof do
        Begin
        
          with DBGrid1 do begin
              TabOrder := 0;
              TitleFont.Color := clWindowText;
              TitleFont.Height := -14  ;
              TitleFont.Name := 'MS Sans Serif';
              TitleFont.Style := [fsBold]   ;
              DataSource := dsComponents  ;
                 end;
           Next;
        End;
        First;
      End;
    End;
  End;
End;

P.D= El navegador Opera no acepta las etiquetas del formato de respuesta que usan en el sitio web, tuve que usar Mozilla, no se si sea cuestión de opera o de Club Delphi.

Hola principiodual.

No he probado con el navegador Opera pero voy a revisarlo.

Saludos y muchas gracias por avisarnos. :)

Hola de nuevo.

Acabo de descargar el Opera (ver.: Stable 24.0.1558.53) y no me ha dado problemas (te estoy escribiendo este mensaje desde él)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Caption:= '';
  for i:= 0 to 9 do
    Caption:= Caption + IntToStr(i);
end;

Tal vez sea causa de algún plugin o alguna configuración que hayas echo en el navegador ...

Saludos :)

Edito: Muchas gracias por publicar como lo solucionaste. ^\||/