Problemas con DBGrid

[buildero_d]

Que tal,

Pues nunca he trabajado con DBExpress, pero te recomendaria que trabajaras con los componentes ADO para explotar MySQL.

Si todo está bien conectado en teoría te deberia mostrar los datos, a menos de que no tengas nada de información.

Saludos

[eugeniosm]

hola, soy nuevo en delphi y estoy haciendo mi primer programa en delphi 7
con base de datos acces, todo lo que e hecho es gracias a las respuestas que dan en este foro, ojala puedan ayudarme.
Tengo un dbgrid asociado a una tabla de una BD access y funciona agregando y eliminado y modificando pero al agregar datos me muestra un registro al comienzo de la tabla y el mismo al final como puedo hacer para que cuando refresque el dbgrid se valla al ultimo registro del dbgrid, osea, al que agrege al ultimo, es una base con un campo autonumerico

[BuenaOnda]

Puedes utilizar El Locate del Query, por ejemplo supongamos que tenemos una tabla llamada "Datos", con un campo Autonumerico llamado "CodDato" y que el ultimo registro ingresado fue el 100 , entonces podriamos utilizar un LOCATE del componente Query para ubicar en la grilla el registro seleccionado ( en este caso el Último registro )..

Código Delphi [-]
 
/*********************************************************
function ObtenerDato(Consulta: String): Variant;
begin
     TRY
        QueryLocal.SQL.Clear;
        QueryLocal.SQL.Text:=Trim(Consulta);
        QueryLocal.Open;
         IF QueryLocal.RecordCount > 0 THEN
           Result:=QueryLocal.Fields[0].Value
        ELSE
           Result:='0';
     FINALLY
        QueryLocal.Close;
     END;
end;
/*********************************************************
Procedure ResfrecarGrilla;
Var
  UltimoNumero : Integer;
 
begin
  UltimoNumero:=ObtenerDato('Select Max(CodDato) From Datos')
  Query.Locate('CodDato',UltimoNumero,[]);
 
end;
/*********************************************************

[eugeniosm]

despues de leer la respuesta me doy cuenta que ni siquiera soy novato en delphi.. es decir estoy en pañales todabia...
no entendi nada lo del query...
resumo lo que quiero hacer mejor...
tengo una tabla prooveedores y le asocien un dbgrid para que me muestre los registros y con unos edit agrego y modifico los registros...
todo funciona .. solo que visualmente cuando agrego un registro en el DBgrid se me agrega un registro en la primera fila y al grabarlo se agrega al ultimo pero no me borra la fila que se crea al principio.. entonces la idea mia es que cuando grabe y refresque el dbgrid la fila seleccionada o el dBgrid quede mostrando el registro agregado...

[eugeniosm]

aah y gracias por responder....
para mas informacion ...
la version delphi que uso es la 7 y msacces 2003
todo lo que he hecho de mi sistema de bodega lo he hecho leyendo las respuestas de ustedes...
espero de aqui a un par de meses poder tambien aportar con lo que aprenda aqui...

[eugeniosm]

Gracias , por responder ... pero encontre la solucion al problema de DBGRID que me mostraba una linea al comienso del dbgrid...
aunque igual me grababa el registro en el DBgrid aunque aplicaba el refresh no se borraba la fila que se me insertaba al comienso del dbgrid...

pero lo solucione
desactivando y activando el dbgrid

DataSource1.DataSet.Active := false;
DataSource1.DataSet.Active := true ;
y listo...
el dbgrid solo me muestra los datos en la tabla

gracias, de todas maneras...
mas adelante cuando este en los reportes necesitare mas ayuda con los query .. que no se que son y no se como se ocupan pero aprendere

[BuenaOnda]

Hola...
El dbGrid esta sociado a un Query Verdad (Por ejemplo AdoQuery1), bueno este query tiene la propiedad LOCATE que te permite localizar un determinado registro, entonces como tienes una tabla con un campo clave, debes rescatar el valor de ese campo clave al Ingresar o actualizar un registro, podria ser de la siguiente manera ..

Código Delphi [-]
 
begin

      //Datos(Tabla), CodDato(Campo Clave), Descripcion(Campo) 
      //por ejemplo si actualizamos un registro...
 
      Sql:='';
      Sql:='Update Datos Set Descripcion = ''DESCRIPCION MODIFICADA''';
      Sql:=Sql + ' Where CodDato= ' + Trim(EditCodDato.Text);
      Query1.SQL.Clear;
      Query1.SQL.Text:=Trim(Sql);
      Query1.ExecSQL;

      AdoQuery1.Locate('CodDato',EditCodDato.Text,[]);
 
       //Donde EditCodDato es el "Edit" que tiene asociado el valor del campo 
       //clave, en este caso "CodDato"