gusanita
15-12-2005, 17:18:57
Hola!!!
Tengo un problema espero puedan ayudarme, se trata de una insercion masiva de una base de datos a otra, estoy trabajando con delphi 5 y las bases de datos estan en acces, resulta que intento trasladar registros de una base de datos a otra, el siguiente es mi código:
DataModuleBD.TBDBAJAS.TableName:=nombretabla.Text;
DataModuleBD.TBAJDELAL.Active:=True;
DataModuleBD.TBDBAJAS.Active:=True;
DataModuleBD.Query.Close;
DataModuleBD.Query.SQL.Clear;
DataModuleBD.Query.SQL.Add('Insert InTo ":BDBECAS_BAJDEF:BAJDELAL"');
DataModuleBD.Query.SQL.Add('(ALU_CTRL, BD_MTV, BD_PIN, BD_AIN, BD_SEM, BD_PTR, BD_ATR)');
DataModuleBD.Query.SQL.Add('Select ALU_CTR, MBA_DES, ALU_PER, ALU_PAN, ALU_SEM, ALU_PET, ALU_PAT');
DataModuleBD.Query.SQL.Add('From ":BDBAJDEF:'+nombretabla.Text+'"');
DataModuleBD.Query.SQL.Add(';');
DataModuleBD.Query.Open;
DataModuleBD.TBAJDELAL.Active:=False;
DataModuleBD.TBDBAJAS.Active:=False;
showmessage('LA ACTUALIZACION DE LA TABLA FUE TODO UN EXITO');
nombretabla.Text:='';
Y si hace la insersion, me pasa todos los resgistros, ya sean ma de 100, el problema es que en la ejecución me manda un mensaje :
ERROR CREATING CURSOR HANDLE
y pues ese es mi problema, no se como desaserme de ese error, porfavor espero me ayuden...
De ante mano gracias!!!!:)
Tengo un problema espero puedan ayudarme, se trata de una insercion masiva de una base de datos a otra, estoy trabajando con delphi 5 y las bases de datos estan en acces, resulta que intento trasladar registros de una base de datos a otra, el siguiente es mi código:
DataModuleBD.TBDBAJAS.TableName:=nombretabla.Text;
DataModuleBD.TBAJDELAL.Active:=True;
DataModuleBD.TBDBAJAS.Active:=True;
DataModuleBD.Query.Close;
DataModuleBD.Query.SQL.Clear;
DataModuleBD.Query.SQL.Add('Insert InTo ":BDBECAS_BAJDEF:BAJDELAL"');
DataModuleBD.Query.SQL.Add('(ALU_CTRL, BD_MTV, BD_PIN, BD_AIN, BD_SEM, BD_PTR, BD_ATR)');
DataModuleBD.Query.SQL.Add('Select ALU_CTR, MBA_DES, ALU_PER, ALU_PAN, ALU_SEM, ALU_PET, ALU_PAT');
DataModuleBD.Query.SQL.Add('From ":BDBAJDEF:'+nombretabla.Text+'"');
DataModuleBD.Query.SQL.Add(';');
DataModuleBD.Query.Open;
DataModuleBD.TBAJDELAL.Active:=False;
DataModuleBD.TBDBAJAS.Active:=False;
showmessage('LA ACTUALIZACION DE LA TABLA FUE TODO UN EXITO');
nombretabla.Text:='';
Y si hace la insersion, me pasa todos los resgistros, ya sean ma de 100, el problema es que en la ejecución me manda un mensaje :
ERROR CREATING CURSOR HANDLE
y pues ese es mi problema, no se como desaserme de ese error, porfavor espero me ayuden...
De ante mano gracias!!!!:)