pior que ele esta :(
begin
try
MessageDlg('aki foi depois do try', mtInformation, [mbOK], 0);
dModule:= TdModule.create(Application);
MessageDlg('agora foi o dm criado', mtWarning, [mbOK], 0);
dModule.DB1.Connected:= true;
MessageDlg('agora conectou no bancou'+#13+#10+'ou deixou true', mtWarning,
[mbOK], 0);
except
MessageDlg('Erro durante a conecxao', mtError, [mbOK], 0);
exit;
end;
eu coloquei umas menssagens pra testar mas tah tudo normal
Alexandre Leite
Suporte Less
www.less.com.br
45-3252-1993
45-9917-5062
Less Internet
Av. Largo São vicente de Paula, 1333 10º andar sl. 100
----- Original Message -----
From: Daniel Polistchuck
To: delphi-br@yahoogrupos.com.br
Sent: Monday, November 28, 2005 9:49 AM
Subject: RE: [delphi-br] Acces violation, como pode :(
É possível que o seu Datamodule não tenha sido criado quando você chama o
método "incluir"
Daniel Polistchuck
Consulting Services Manager
Borland Software Corporation
Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
[EMAIL PROTECTED] - www.borland.com.br <http://www.borland.com.br/>
A Borland Software Corporation é líder global em soluções independentes de
plataforma para o Software Delivery Optimization, auxiliando nossos clientes a
resolverem as restrições no desenvolvimento de aplicações nos dias de hoje,
para maximizar o valor do negócio de seu software
________________________________
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of
Alexandre Leite
Sent: Sunday, November 27, 2005 10:12 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Acces violation, como pode :(
Seguinte galera olhem esse codigo
unit uClassMarca;
interface
uses
uDatamodule, SysUtils;
type
Marca = class(TObject)
private
ID_MARCA: integer;
DESCRICAO: string;
public
function getID_MARCA: integer;
function getDESCRICAO: String;
function setID_MARCA(ID_MARCA: Integer): boolean;
function setDESCRICAO(DESCRICAO: string): boolean;
function incluir: boolean;
end;
implementation
uses
DataModule;
function Marca.getID_MARCA: Integer;
begin
result:= ID_MARCA;
end;
function Marca.getDESCRICAO: String;
begin
result:= DESCRICAO;
end;
function Marca.setID_MARCA(ID_MARCA: Integer): boolean;
begin
if ID_MARCA > 0 then
begin
Self.ID_MARCA:= ID_MARCA;
Result:= true;
end
else Result:= False;
end;
function Marca.setDESCRICAO(DESCRICAO: string): boolean;
begin
self.DESCRICAO:= DESCRICAO;
end;
Function Marca.incluir: boolean;
begin
try
dModule.dtMARCA.Open;
dModule.dtMARCA.Append;
dModule.dtMARCA.FieldByName('ID_MARCA').AsInteger:= ID_MARCA;
semprara a aplicacao aki e dah um erro ja nao sei o que fazer
em todas, toda vez que vou incluir dah esse erro e para bem nessa linha, se
alguem souber de algo pra resolver ficarei muito grato :(
dModule.dtMARCA.FieldByName('DESCRICAO').AsString:= DESCRICAO;
dModule.dtMARCA.Post;
dModule.T1.CommitRetaining;
result:= true;
except
result:= false;
end;
end;
end.
Alexandre Leite
Suporte Less
www.less.com.br
45-3252-1993
45-9917-5062
Less Internet
Av. Largo São vicente de Paula, 1333 10º andar sl. 100
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12felkq78/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1133179759/A=2950750/R=2/id=noscript/SIG=10tift5qr/*http://br.movies.yahoo.com/>
________________________________
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
