Fórum Erro Ao tentar abrir uma tabela com Query - FireBird 1.5 #240806
01/07/2004
0
Estou desenvolvendo um aplicação simples de Cadastro, utilizando Delphi 5 e Firebird 1.5.
Em meu projeto, tenho um DataModule (contendo um TDATABASE e/ou UM ADOCONNECTION e um QUERY e/ou ADOQUERY) e um Form. Tanto faz pelo ADO como pelo BDE, eu consegui abrir e ver os dados da minha tabela. Porem, quando tenho abrir a tabela em meu formulario de cadastro, utilizando o metodo OPEN, o sistema me apresenta um ERRO (Excessao) e não consigo fazer mais nada.
EXEMPLO:
no meu form, no evento OnShow:
DM_Patrimonio.Usuarios.Open;
e tambem no OnClose;
DM_Patrimonio.Usuarios.Close;
Pelo que pude perceber, o problema está no OPEN e no CLOSE.
Onde estou errando?
No aguardo de respostas, desde já antecipo meus agradecimentos.
Abraços,
Marcelo.
Marcelolsilva
Curtir tópico
+ 0Posts
01/07/2004
Cabelo
vc tem que usar a Query assim :
Query.Sql.Clear;
Query.Sql.Add(comandos);
Query.Open;
//manutenções no banco de dados..
Query.Close;
no lugar dos comandos vc deve passar o SQL, vc está adicionando qual SQL??
sem mais
Cabelo
Gostei + 0
01/07/2004
Marcelolsilva
Obrigado por responder. Na verdade, erro ocorre quando o form é mostrado, ou seja, no evento onShow.
Procedure Onshow (do fORM)
bEGIN
dm_Patrimonio.Usuarios.Open; <<---->> O erro ocorre neste ponto...
End;
End.
grato..
Marcelo
Gostei + 0
01/07/2004
Moonlight
Gostei + 0
02/07/2004
Marcelolsilva
Agradeço muito a colaboração de vcs para esse meu problema.
Descobri o que estava acontecendo:
Em minha aplicação eu não tinha criado o Objeto Data Module. Daí, quando eu tentava acessar algum controle contido nele, acontecia o problema. Bastou eu definir como auto-Create e pronto!
Mesmo assim, sou muito grato pela força.
Abraços,
Marcelo L.Silva
ANALISTA DE SISTEMAS
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)