RES: [delphi-br] Erro ao acessar Fire Bird

[Moked - Humberto \(Brazil\)]

Pessoal, acho que o problema é que eu não defini no evento GetTablename do 
DataSetProvider o nome da tabela, porém não estou conseguindo passar via código 
os parâmetros para o evento GetTableName do Dsp. Segue abaixo a forma como eu 
tentei fazer:
 
OnGetTableName (Self,sds,'PESSOA');
 
O erro mostrado é: Constant object cannot be passed as var parameter.
 
Obrigado.



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Moked - 
Humberto (Brazil)
Enviada em: domingo, 26 de novembro de 2006 13:32
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Erro ao acessar Fire Bird



Bem, estou tentando acessar o banco de dados somente criando os
objetos via código. porém estou tendo alguma dificuldade, pois apesar
de parecer estar tudo correto, da o seguinte erro: Missing data
provider or data package

Segue abaixo a minha procedure:

procedure TCliente.ConectarBD;
begin

//Conectando ao banco de dados.
FsdsCliente := TSQLDataSet.Create(FsdsCliente);
FcdsCliente := TClientDataSet.Create(FcdsCliente);
FdspCliente := TDataSetProvider.Create(FdspCliente);
FdsCliente := TDataSource.Create(FdsCliente);

FsdsCliente.Datasource := FdsCliente;
FsdsCliente.SQLConnection := dm.scsisgel;
FsdsCliente.CommandText := 'SELECT * FROM Cliente ' +
'WHERE fl_ativo = 1';

FdspCliente.DataSet := FsdsCliente;
FcdsCliente.ProviderName := 'FdspCliente';
FdsCliente.DataSet := FcdsCliente;

FsdsCliente.Active := True;
FcdsCliente.Active := True;

FcdsCliente.Close;
FcdsCliente.Open;
FcdsCliente.First;
//

end;

Alguém ai pode me ajudar? Thks.



 


[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Erro ao acessar Fire Bird

[Moked - Humberto \(Brazil\)]

Ué, mas eu estou passando o ProviderName para o fcdsCliente.
Como ficaria a procedure então?
 
Obrigado.



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe 
Henrique
Enviada em: domingo, 26 de novembro de 2006 15:47
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Erro ao acessar Fire Bird



Isto quer dizer que algum CDS falta o DSP...

vi pelo seu código:
FcdsCliente.ProviderName := 'FdspCliente';
FdsCliente.DataSet

Ou você esqueceu de por no seu email, ou realmente voce esqueceu no seu
codigo de passar o ProviderName para o FdsCliente.

[]s

Em 26/11/06, technomoked [EMAIL PROTECTED] mailto:humberto%40moked.com.br  
escreveu:

 Bem, estou tentando acessar o banco de dados somente criando os
 objetos via código. porém estou tendo alguma dificuldade, pois apesar
 de parecer estar tudo correto, da o seguinte erro: Missing data
 provider or data package

 Segue abaixo a minha procedure:

 procedure TCliente.ConectarBD;
 begin

 //Conectando ao banco de dados.
 FsdsCliente := TSQLDataSet.Create(FsdsCliente);
 FcdsCliente := TClientDataSet.Create(FcdsCliente);
 FdspCliente := TDataSetProvider.Create(FdspCliente);
 FdsCliente := TDataSource.Create(FdsCliente);

 FsdsCliente.Datasource := FdsCliente;
 FsdsCliente.SQLConnection := dm.scsisgel;
 FsdsCliente.CommandText := 'SELECT * FROM Cliente ' +
 'WHERE fl_ativo = 1';

 FdspCliente.DataSet := FsdsCliente;
 FcdsCliente.ProviderName := 'FdspCliente';
 FdsCliente.DataSet := FcdsCliente;

 FsdsCliente.Active := True;
 FcdsCliente.Active := True;

 FcdsCliente.Close;
 FcdsCliente.Open;
 FcdsCliente.First;
 //

 end;

 Alguém ai pode me ajudar? Thks.

 


-- 
_
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com 

Borland Developer Studio 2006 Certified

Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)

[As partes desta mensagem que não continham texto foram removidas]



 


[As partes desta mensagem que não continham texto foram removidas]