Problemas para actualizar ADO con Dbgrid con puro Codigo

[JanoRod]

Empezado por Chente(rMan)

Que tal JanoRod, mira de entrada veo que tienes un adoConnection que no se para que lo utilizas si a cada adoquery le vuelves a pasar la cadena de conexion.

Código Delphi [-]
 conexion:=('Provider=Microsoft.Jet.Oledb.4.0;Data source=c:\inventario.mdb;Persist Security Info=false');
 adoconnection1.ConnectionString :=conexion;
 adoconnection1.LoginPrompt := False;
 adoconnection1.connected := True;
 adoquery1.Connection := adoconnection1
 adoquery1.Open ;
 adoquery2.Connection := adoconnection1
 adoquery2.Open ;

vamos clarificando un poco mas el código.

Código Delphi [-]
 with adoquery1 do begin
   Close;
   SQL.clear;
   SQL.add (consultaSQL);
   open;
   //Aqui podrias utilizar algo asi...
   if IsEmpty then
      //lo que quieras hacer...
   else
     //de lo contrario...
 end;

Espero por lo menos haberte ayudado un poco en clarificar el código.


Saludos.

Vicente López.

HOLA VICENTE, EL ADOCONNECTION LO OCUPO PARA LA CONECCION MANUAL DE LA BASE DE DATO SIN OCUPAR EL WIZARD YA QUE ESTE ME DEFINE UN DIRECTORIO ESPECIFICO O FIJO OCUPANDO EL WIZARD , LA CADENA CONEXION ORIGINAL ES LA SIGUIENTE:

conexion:=('Provider=Microsoft.Jet.Oledb.4.0;Data source='+ExtractFilePath(application.ExeName)+'\inventario.mdb;mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Encrypt Database=True;Jet OLEDB:Compact Without Replica Repair=True;Jet OLEDBatabase Password=jano2969');

Como se muestra el codigo la sintaxis de ExtractFilePath(application.ExeName) me define la ruta donde esta el ejecutable asociado a la base de dato. ahora cuando verifico los datos guardados estan ok pero no asi en el dbgrid que esta conectado en forma manual con codigo :

a esto me refiero cuando es manual o a traves de puro codigo.


dbgrid1.Columns[0].FieldName :='unidad_medida'; // campo 1
dbgrid1.Columns[1].FieldName :='descripcion_und'; // campo 2

datasource2.DataSet :=adoquery2 ;
dbgrid1.DataSource:=datasource2 ;

adoquery2.Close ; // lo cierro
adoquery2.Open ; // lo vuelvo abrir para su supuesta actualizacion


Vicente si sabes alguna manera de saber en que me equivoco te agradeceria la respuesta o algun comentario

de antemano saludos