Fórum Erro ao abrir tabela #46635

13/09/2004

0

Firebird

Olá, tenho um IBDataSet, que ao tentar abrir da a seguinte mensagem:
Project ´zzz´ faulted with message: ´access violatiob at 0x77fa5575: write of address 0x00030ea0

Meu codigo eh:

var
Found, i: integer;
begin
ShowProgress(´Processando, por favor espere...´);
Found := -1;
for i := 0 to Screen.FormCount - 1 do
 if Screen.Forms[i] is TFrmCadSubstancias then
  Found := i;
if Found >= 0 then
 Screen.Forms[Found].Show
else
begin
 FrmCadSubstancias := TFrmCadSubstancias.Create(Application);
 with FrmCadSubstancias.IBDataSet1 do
 begin
  Open;
  First;
  FrmCadSubstancias.ComboBox1.Clear;
  FrmCadSubstancias.ComboBox1.Items.Clear;
  FrmCadSubstancias.ComboBox2.Clear;
  FrmCadSubstancias.ComboBox2.Items.Clear;
  while not EOF do
  begin
   FrmCadSubstancias.ComboBox1.Items.Add(TrimRight(FrmCadSubstancias.IBDataSet1DESCRICAO.AsString));
   FrmCadSubstancias.ComboBox2.Items.Add(TrimRight(FrmCadSubstancias.IBDataSet1DCB.AsString));
   Next;
  end;
  First;
  Insert;
 end;
 FrmCadSubstancias.Show;
 FrmCadSubstancias.SetFocus;
end;
HideProgress;
end;

Na linha com o Open, da o erro..

Nota: Usando XP, Firebird 1.5, Delphi 7... e utilizo o mesmo codigo em outras tabelas, e nao acontece o erro.. e ao tentar abrir no proprio delphi, em design ele funciona e abre...

Desde ja agradeco


Titanius

Titanius

Responder

Posts

13/09/2004

Afarias

Em que linha ocorre o erro?

AVs ocorrem normalmente por operações incorretas com ponteiros (por exemplo, tentar utilizar um objeto não instanciado)


T+


Responder

Gostei + 0

14/09/2004

Titanius

o Erro ocorre quando dou o Open.... aih da o erro.. o estranho eh q uso o mesmo codigo para todas as tabelas... e funciona


Responder

Gostei + 0

14/09/2004

Titanius

jah tentei criar outro IBDataSet e nada continua com o erro.. o que pode ser...


Responder

Gostei + 0

14/09/2004

Titanius

é o seguinte, olha o q eu tentei...

Removi o codigo q da o open, deixei somente:
var
 Found, i: integer;
begin
 ShowProgress(´Processando, por favor espere...´);
 Found := -1;
 for i := 0 to Screen.FormCount - 1 do
  if Screen.Forms[i] is TFrmCadSubstancias then
   Found := i;
 if Found >= 0 then
  Screen.Forms[Found].Show
 else
 begin
  FrmCadSubstancias := TFrmCadSubstancias.Create(Application);
  FrmCadSubstancias.Show;
  FrmCadSubstancias.SetFocus;
 end;
 HideProgress;


deixei aberto pelo proprio delphi... ou seja, acitve:=true no proprio delphi... nos meus componentes dBEdit, aparece os nomes e tals... entao funciona...
rodo o programa... quando abro o form, nada... da o erro... qual o problema.. sera q eh relacionado com a criacao do form?


Responder

Gostei + 0

14/09/2004

Afarias

| quando abro o form, nada... da o erro... qual o problema.. sera q eh
|relacionado com a criacao do form?

não entendi... quando abre o form dá o erro ou não??

bom, verifique se há eventos no form como onCreate ou onShow, veja tb se há eventos no IBDataSet e DataSource relacionado a ele o problema pode estar nestes códigos.


T+


Responder

Gostei + 0

14/09/2004

Titanius

nao a nenhum codigo no meu form... qnd ignoro as linhas q abre e mexe no ibdataset, o form abre beleza, quando mando abrir o banco da o erro.. estranho demais... quando seleciono active:=true no proprio delphi, osmeus componentes dbedit mostram o primeiro registro (sinal que o banco esta abrindo), mesmo retirando os codigos meus e deixando o active := true pelo delphi, na hora de abrir o form da o erro..


Responder

Gostei + 0

14/09/2004

Afarias

O Database e Transaction q o componente IBDataset usa estão em um form inicializado?


T+


Responder

Gostei + 0

14/09/2004

Titanius

correto... estao em um DataModule, iniciado no inicio da aplicacao.. e eles sao usados em todo o programa....

Antes dava o erro de memoria... agora sem mais sem menos, esta dando
´Not in edit mode.´ quando mando dar um Open... ve se pode?!?!?!?

Nao estou entendendo mais nada...


Responder

Gostei + 0

14/09/2004

Titanius

Desculpe, esse erro foi meu mesmo, estava dando um post sem abrir... mais o erro eh esse agora: ´arithmetic exception, numeric overflow, or string truncation
Cannot transliterate character between character sets.´

o que eh isso!??!?!


Responder

Gostei + 0

14/09/2004

Gandalf.nho

Está passando o CHARACTER SET correto ao conectar ao banco de dados?


Responder

Gostei + 0

14/09/2004

Titanius

o charset esta none para todas as minhas tabelas..
o que percebi agora eh o seguinte: Tenho um registro de 7850 registros... ele da esse erro, mas abre alguns.. entao parece ser tipo estouro de memoria sei lah... abe uns 30 rimeiros, tem vez q abre uns 150 primeiros.. mais nao finaliza... me retorna este erro.. :(

tah ficando dificil isso aqui.. :oops:


Responder

Gostei + 0

14/09/2004

Titanius

Veirifquei que eu abrindo pelo IBExpress, vejo todos os registros... ja no meu projeto da pau quando tento passar do registro 37 :(


Responder

Gostei + 0

14/09/2004

Gandalf.nho

Está tentando usar textos acentuados no banco? Pq o CHARACTER SET NONE não lida bem com isso, principalmente para ordenar registros e usar GROUP BY.


Responder

Gostei + 0

14/09/2004

Titanius

isso mesmo... no meio dos meus registros tem acento... qual charset eu uso pra isso?


Responder

Gostei + 0

14/09/2004

Titanius

Realmente percebi, que no primeiro registro que contem acentos ele dah erro... como soluciono isso? qual charset uso? :cry:


Responder

Gostei + 0

Mais tópicos

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar