Cita:
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;
if IsEmpty then
else
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 OLEDB
atabase 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