Duda con DBnavigator y bases de datos.

[ecfisa]

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

[principiodual]

Empezado por ecfisa

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

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

[principiodual]

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;

Muchas gracias Casimiro Notevi y Ecfisa, como siempre un sitio web muy eficiente y colaborador con todos nosotros. Buenas tardes.

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.

[ecfisa]

Hola principiodual.

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

Saludos y muchas gracias por avisarnos.

[ecfisa]

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.