¿Como Copiar Un Solo valor en Tablas Access?

[wiwaedu]

Tengo dos tablas en una base de datos access:

Tabla A: con los campos: ITEMID,ITEMNAME,ITEMDESCR
Tabla B: con los campos: NUMID, CANTIDAD

Necesito pasar el valor de ITEMID a NUMID y ademas añadirle la CANTIDAD desde un TEdit

Estoy perdido, he estado probando con SQL. Pero siempre me da fallo.

Gracias.

[[Chris]]

Empezado por wiwaedu

Tengo dos tablas en una base de datos access:

Tabla A: con los campos: ITEMID,ITEMNAME,ITEMDESCR
Tabla B: con los campos: NUMID, CANTIDAD

Necesito pasar el valor de ITEMID a NUMID y ademas añadirle la CANTIDAD desde un TEdit

Estoy perdido, he estado probando con SQL. Pero siempre me da fallo.

Gracias.

Primero, que tipo de fallo? Que dice el error?

Segundo, muestranos la consulta SQL que estás usando.

Por último, de que forma quieres pasar el ITEMID a NUMID. De un sólo (todos los registros) o ir uno x uno y asignando el valor del campo Cantidad con el Edit manualmente. Quisiera aclararas esté punto.

Saludos,
Chris

PD.: No soy el indicado para ayudarte con Access, pero te digo lo anterior, porque alguien igual lo hará.

[wiwaedu]

Tengo este código:

with QCopy do
begin
Active := false;
SQL.Clear;
SQL.Text := 'INSERT INTO B(NumSet,Cantidad) VALUES ("'+DBEdit1.Text+'",'+Edit1.Text+')';
Active := true;
end;

Qcopy es un Query apuntando a la tabla A

El caso es, que los datos algunas veces los copia.

ERROR: QCopy: CommandText does not return a result set.

[[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;