Estou ficando maluca!!!!!!!!!!!
14/02/2003
0
Tenho o seguinte SELECT numa rotina
dm1.sqlPesq.close;
dm1.sqlPesq.sql.Clear;
dm1.sqlPesq.sql.Add(´SELECT A.LG_BLOQUEADO, A.CO_VISIT, A.NU_RG, A.NO_PESSOA, A.NO_EMPRESA, A.NO_FOTO, A.FOTO, A.DS_DOCUMENTO,B.NO_CONTATO, B.CO_HISTORICO,B.DS_OBS, ´);
dm1.sqlPesq.sql.Add(´ B.NU_ANDAR, B.CO_COND, B.DT_VISITA, B.DT_SAIDA, B.HR_ENTRADA, B.HR_SAIDA, B.FOTO, B.NU_CRACHA, B.NO_EMPRESA VISITA´);
dm1.sqlPesq.sql.Add(´ FROM CADVISIT A, HISTORICO B WHERE ´);
dm1.sqlPesq.sql.Add(´ B.CO_VISIT = A.CO_VISIT ´);
dm1.sqlPesq.sql.Add(´ AND B.HR_SAIDA IS NULL ´);
dm1.sqlPesq.sql.Add(´ ORDER By B.DT_VISITA desc, B.HR_ENTRADA DESC´);
dm1.sqlPesq.Open;
Reparem q eu seleciono as colunas DT_SAIDA e HR_SAIDA
aih eu tento fazer um update num registro com essa instrucao:
dm1.qryPesq.Edit;
dm1.qryPesq.FieldByName(´HR_SAIDA´).AsDateTime := Time;
dm1.qryPesqDT_SAIDA.AsDateTime := Date;
dm1.qryPesq.Post;
porem qdo dou applyupdates(0) no evento afterpost da qrypesq dah a seguinte msg:
Unknown Column DT_SAIDA e nao consegue fazer o update.... o q pode ser isso??
estou usando uma query do dbexpress (sqlPesq) e um clientdataset do dataaccess (qryPesq) para acesso ao interbase
obrigada,
K-ROL
dm1.sqlPesq.close;
dm1.sqlPesq.sql.Clear;
dm1.sqlPesq.sql.Add(´SELECT A.LG_BLOQUEADO, A.CO_VISIT, A.NU_RG, A.NO_PESSOA, A.NO_EMPRESA, A.NO_FOTO, A.FOTO, A.DS_DOCUMENTO,B.NO_CONTATO, B.CO_HISTORICO,B.DS_OBS, ´);
dm1.sqlPesq.sql.Add(´ B.NU_ANDAR, B.CO_COND, B.DT_VISITA, B.DT_SAIDA, B.HR_ENTRADA, B.HR_SAIDA, B.FOTO, B.NU_CRACHA, B.NO_EMPRESA VISITA´);
dm1.sqlPesq.sql.Add(´ FROM CADVISIT A, HISTORICO B WHERE ´);
dm1.sqlPesq.sql.Add(´ B.CO_VISIT = A.CO_VISIT ´);
dm1.sqlPesq.sql.Add(´ AND B.HR_SAIDA IS NULL ´);
dm1.sqlPesq.sql.Add(´ ORDER By B.DT_VISITA desc, B.HR_ENTRADA DESC´);
dm1.sqlPesq.Open;
Reparem q eu seleciono as colunas DT_SAIDA e HR_SAIDA
aih eu tento fazer um update num registro com essa instrucao:
dm1.qryPesq.Edit;
dm1.qryPesq.FieldByName(´HR_SAIDA´).AsDateTime := Time;
dm1.qryPesqDT_SAIDA.AsDateTime := Date;
dm1.qryPesq.Post;
porem qdo dou applyupdates(0) no evento afterpost da qrypesq dah a seguinte msg:
Unknown Column DT_SAIDA e nao consegue fazer o update.... o q pode ser isso??
estou usando uma query do dbexpress (sqlPesq) e um clientdataset do dataaccess (qryPesq) para acesso ao interbase
obrigada,
K-ROL
K-rol
Curtir tópico
+ 0
Responder
Posts
14/02/2003
Anonymous
Use
dm1.qryPesq.FieldByName(´DT_SAIDA´).AsDateTime := Date;
Irá funcionar se neste momento sua qryPesq conter uma instrução que esteja retornando este campo.
espero ter ajudado. :wink:
dm1.qryPesq.FieldByName(´DT_SAIDA´).AsDateTime := Date;
Irá funcionar se neste momento sua qryPesq conter uma instrução que esteja retornando este campo.
espero ter ajudado. :wink:
Responder
14/02/2003
Anonymous
Tente, ao invés de:
dm1.qryPesq.Edit;
dm1.qryPesq.FieldByName(´HR_SAIDA´).AsDateTime := Time;
dm1.qryPesqDT_SAIDA.AsDateTime := Date;
dm1.qryPesq.Post
Fazer:
dm1.QRYEXEC.Close;
dm1.QRYEXEC.SQL.Clear;
dm1.QRYEXEC.SQL.Add(´Update Historico Set HR_Saida = ´+QuotedStr(FormatDateTime(´HH:MM:SS´,time)) );
dm1.QRYEXEC.SQL.Add(´, DT_SAIDA = ´+QuotedStr(FormatDateTime(´dd/mm/yyyy´,Date)));
If dm1.QRYEXEC.ExecSql >= 1 then
Mensagem = ´Atualização perfeita´;
Agora, qto. ao seu problema: Eu utilizo ADO, e tb. não consigo atualizar uma base de consulta envolvendo relacionamento de arquivos, ou seja,
Na Query não deve existir dados de outros arquivos a serem atualizados...
Tchau...
A Calma, a Paciência, etc... são Virtudes - A Perseverença não deve levar ao Ódio...
dm1.qryPesq.Edit;
dm1.qryPesq.FieldByName(´HR_SAIDA´).AsDateTime := Time;
dm1.qryPesqDT_SAIDA.AsDateTime := Date;
dm1.qryPesq.Post
Fazer:
dm1.QRYEXEC.Close;
dm1.QRYEXEC.SQL.Clear;
dm1.QRYEXEC.SQL.Add(´Update Historico Set HR_Saida = ´+QuotedStr(FormatDateTime(´HH:MM:SS´,time)) );
dm1.QRYEXEC.SQL.Add(´, DT_SAIDA = ´+QuotedStr(FormatDateTime(´dd/mm/yyyy´,Date)));
If dm1.QRYEXEC.ExecSql >= 1 then
Mensagem = ´Atualização perfeita´;
Agora, qto. ao seu problema: Eu utilizo ADO, e tb. não consigo atualizar uma base de consulta envolvendo relacionamento de arquivos, ou seja,
Na Query não deve existir dados de outros arquivos a serem atualizados...
Tchau...
A Calma, a Paciência, etc... são Virtudes - A Perseverença não deve levar ao Ódio...
Responder
Clique aqui para fazer login e interagir na Comunidade :)