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]
Re: [delphi-br] Erro ao acessar Fire Bird
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]
RES: [delphi-br] Erro ao acessar Fire Bird
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]
[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.
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] 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] 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]