¿Como Copiar Un Solo valor en Tablas Access?

[[Chris]]

mmm entiendo. Creo que tu problema está en la última línea de tu código, en donde dice: "Active := True". Active ú Opensólo debe utilizarse para las consultas "SELECT". Para las consultas "INSERT o UPDATE" en lugar de "Active" debes utilizar "ExecSQL" o "Execute" si es que mal no recuerdo los nombres de estas rutinas. Has la prueba y nos comentas.

Saludos,
Chris

[wiwaedu]

Muchas Gracias desactivando el

Active := true;

y poniendo:

ExecSQL;

Ha funcionado, ahora tengo el problema de que no me Actualiza el DBGrid que muestras los datos de la tabla B al hacer los cambios

[wiwaedu]

¿Seria correcto hacer esto?:

procedure TImpBL.Button1Click(Sender: TObject);
begin
ADOTable1.Active:= False;
with QCopy do
begin
Active := false;
SQL.Clear;
SQL.Text := 'INSERT INTO B(NumSet,Cantidad) VALUES("'+DBEdit1.Text+'",'+Edit1.Text+')';
ExecSQL;
end;
ADOTable1.Active := True;
end;

[[Caral]]

Hola
No entiendo bien lo que tratas de hacer, veamos:
Si, en teoria el DBEdit1 esta conectado al adotable como va a contener algun dato si lo cierras o desactivas en la consulta?, por lo menos eso es lo que capto.
Digamos que tienes una tabla activa que contiene los datos:
ITEMID, ITEMNAME, ITEMDESCR
Y uno de esos datos esta o es mostrado en el dbedit, entonces no deberias cerrar este adotable, tendrias que mantenerlo activo.
Veamos como funcionaria esto:

Código Delphi [-]
procedure TImpBL.Button1Click(Sender: TObject);
begin
with QCopy do
begin
SQL.Text := 'INSERT INTO B (NumSet, Cantidad) VALUES(:Num, :dato)';
Parameters[0].Value:= DBEdit1.text;
Parameters[1].Value:= Edit1.text;
ExecSQL;
end;
ADOTable1.Active:= False;
ADOTable1.Active := True;
end;

Aveces, por que ya me ha pasado, access no le da la gana de leer los dbedit dentro de las consultas, por eso lo hago por parametros.
Espero te ayude en algo.
Saludos

[[Chris]]

Empezado por wiwaedu

¿Seria correcto hacer esto?:

procedure TImpBL.Button1Click(Sender: TObject);
begin
ADOTable1.Active:= False;
with QCopy do
begin
Active := false;
SQL.Clear;
SQL.Text := 'INSERT INTO B(NumSet,Cantidad) VALUES("'+DBEdit1.Text+'",'+Edit1.Text+')';
ExecSQL;
end;
ADOTable1.Active := True;
end;

Si te puede servir así a cómo lo escribes. Siempre y cuando el ADOTable1 esté conectado a la tabla B. Si aún así no se te muestran, supongo que sería por configuración de transacciones o algo así. Nuevamente te repito que de Access yo no sé nada

[wiwaedu]

Muchas Gracias! ya lo tengo funcionando!