Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-01-2007
trex2000 trex2000 is offline
Miembro
 
Registrado: may 2003
Posts: 237
Poder: 21
trex2000 Va por buen camino
Error al Insertar con ADO

Saludos
Tengo un ADOQuery que se conecta a Sql Server 2000 pero cuando trato de insertar un registro me marca el sig error:

Cita:
Cannot perform this operation on a closed dataset
El codigo que uso es el sig:
Cita:
Modulo.ADOQ_ConsultaTarjeta.Close;
Modulo.ADOQ_ConsultaTarjeta.SQL.Clear;
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('Insert Into TmpTb');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('Select MIN(history.recvtime)As Fecha1,');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('card.CardHolderId,card.CardNumber,card.Deleted AS cdeleted,');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('cardholder.RecordId,cardholder.FirstName,cardholder.LastName,ca rdholder.Deleted AS ddeleted,cardholder.Note4,');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('history.param3,history.param2,history.param1,history.link1,hist ory.link2,history.link3,history.deleted AS hdeleted');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('From card ,cardholder ,history');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('Where(card.cardholderid = cardholder.recordid)And(cardholder.recordid=history.link3)And(card.Deleted = 0)And(cardholder.Deleted = 0)');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('And(card.cardnumber Between :gnEmpIni And :gnEmpFin)');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('And(history.recvtime Between :gtFecha1 And :gtFecha2)');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('And(history.Link1=:gnPE)');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('And(cardholder.Note4 = epartamento)');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('Group By card.CardNumber, card.CardHolderID, card.Deleted,');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('cardholder.RecordID, cardholder.Deleted, cardholder.FirstName, cardholder.LastName, cardholder.Note4,');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('history.Deleted, history.Param1, history.Param2, history.Param3, history.Link1, history.Link2, history.Link3');
Modulo.ADOQ_ConsultaTarjeta.SQL.Add('Order By card.cardnumber,fecha1');
Modulo.ADOQ_ConsultaTarjeta.Parameters.Clear;
Modulo.ADOQ_ConsultaTarjeta.Parameters.CreateParameter('gnEmpIni',ftInteger,pdInput,30,null);
Modulo.ADOQ_ConsultaTarjeta.Parameters.CreateParameter('gnEmpFin',ftInteger,pdInput,30,null);
Modulo.ADOQ_ConsultaTarjeta.Parameters.CreateParameter('gtFecha1',ftString,pdInput,8,null);
Modulo.ADOQ_ConsultaTarjeta.Parameters.CreateParameter('gtFecha2',ftString,pdInput,8,null);
Modulo.ADOQ_ConsultaTarjeta.Parameters.CreateParameter('gnPE',ftInteger,pdInput,8,null);
Modulo.ADOQ_ConsultaTarjeta.Parameters.CreateParameter('Departamento',ftString,pdInput,35,null);
Modulo.ADOQ_ConsultaTarjeta.Parameters.ParamByName('gnEmpIni').Value:=T1;
Modulo.ADOQ_ConsultaTarjeta.Parameters.ParamByName('gnEmpFin').Value:=T2;
Modulo.ADOQ_ConsultaTarjeta.Parameters.ParamByName('gtFecha1').Value:=D;
Modulo.ADOQ_ConsultaTarjeta.Parameters.ParamByName('gtFecha2').Value:=E;
Modulo.ADOQ_ConsultaTarjeta.Parameters.ParamByName('gnPE').Value:=Puerta;
Modulo.ADOQ_ConsultaTarjeta.Parameters.ParamByName('Departamento').Value:=Departamento;
Modulo.ADOQ_ConsultaTarjeta.ExecSQL;
De antemano muchas gracias por su ayuda.
Responder Con Cita
  #2  
Antiguo 18-01-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Haz una ejecución paso a paso y dinos exactamente en qué línea te está fallando.
Al ExecSQL no le veo problemas, tal vez alguna relacionada con los parámetros.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
error al insertar beatriz g SQL 3 24-08-2006 11:29:33
Error Al Insertar Con Dialect 3 balian SQL 3 15-07-2006 03:52:59
Error al insertar un registro en la BD RiverPlate Conexión con bases de datos 3 08-12-2004 16:53:18
Error al insertar con dbexpress mosorio Conexión con bases de datos 5 15-09-2003 15:18:22
Error al insertar utilzando ADO Luis Castillo Conexión con bases de datos 1 19-06-2003 11:21:36


La franja horaria es GMT +2. Ahora son las 06:59:13.


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
Copyright 1996-2007 Club Delphi