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

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