Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   MySQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=21)
-   -   Insertar registros en MySQL (https://www.clubdelphi.com/foros/showthread.php?t=21649)

TONIAM 24-05-2005 15:47:49

Insertar registros en MySQL
 
Hola Foro, intento grabar en un fichero de Mysql los datos de una tabla de Access, para utilizo de la carpeta dbexpress los componentes tsqlconnection, tsqlquery (he probado tambien con un tsqltable), tdatasetprovider y un tclientdataset para ver los registros grabados en un dbgrid.

el codigo que he puesto es el siguiente:

DMAccess.DBReferenciasPro.Active := True;
DMMySQL.cipan.Active:= True;
with DMAccess.DBReferenciasPro do
begin
First;
while not Eof do
begin
DMMySQL.cipan.Append;
DMMySQL.cipanARTICULO.AsString := FieldByNAme('ARTICULO').AsString;
DMMySQL.cipanPROVEEDOR.AsInteger := FieldByNAme'PROVEEDOR').AsInteger;
DMMySQL.cipanREFPROV.AsString := FieldByNAme('REFPROV').AsString;
DMMySQL.cipanDESCRIPCION.AsString := FieldByNAme('DESCRIPCION').AsString;
DMMySQL.cipanPRECIO.AsFloat := FieldByNAme('PRECIO').AsFloat;
DMMySQL.cipanDTO.AsFloat := FieldByNAme('DTO').AsFloat;
DMMySQL.cipan.Post;
Next;
end;
end;

y si produce el siguiente error: CIPAN: Cannot modify a read-only dataset

Hago lo mismo que cuando se trata unicamente de tablas de access y hay si que me funciona, ¿Alquien sabe la forma de grabar este fichero en la base de datos de MySQL?

Un saludo
Toni


La franja horaria es GMT +2. Ahora son las 14:02:24.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi