Faça assim:
procedure blablabla;
var
VPar : String;
begin
VPar := 'PESSOA';
OnGetTableName( SELF, sds, VPar )
end;
----------------------------------------
Vitor Luiz Redes
Analista de Sistemas
Redsystem Software / Bureau Software
Messenger: [EMAIL PROTECTED]
----------------------------------------
Phone: 3379-6939
Cel. Phone: 9677-8445
----------------------------------------
----- Original Message -----
From: Moked - Humberto (Brazil)
To: delphi-br@yahoogrupos.com.br
Sent: Monday, November 27, 2006 1:28 PM
Subject: RES: [delphi-br] Erro ao acessar Fire Bird
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]
------------------------------------------------------------------------------
Internal Virus Database is out-of-date.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.14.0/524 - Release Date: 8/11/2006
[As partes desta mensagem que não continham texto foram removidas]
