Dê uma olhada nessas linhas:
FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1; FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date; Não seria correto assim? FrmDm.SimpleDataSet 1.DataSet.Params[ 0].AsInteger := 1; FrmDm.SimpleDataSet 1.DataSet.Params[ 1].AsDate := MCevento.Date; Abraço _____ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná <http://www.n2solutions.com.br/> www.n2solutions.com.br <http://www.nfe.n2solutions.com.br/> www.nfe.n2solutions.com.br <http://www.studion2.com.br/> www.studion2.com.br De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Vinicius da Silva Pinto Enviada em: segunda-feira, 18 de maio de 2009 09:15 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ajuda.... Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro: Em uma determinado momento do sistema eu faço uma consulta por data e tudo corre muito bem, como neste exemplo abaixo: FrmDm.SdsCadEventos1.Close; FrmDm.SdsCadEventos1.DataSet.CommandText := 'SELECT CDEVENTO FROM BDEVENTOS WHERE DATAEVENTO = :WDATA'; FrmDm.SdsCadEventos1.DataSet.Params[0].AsDate := MCevento.Date; FrmDm.SdsCadEventos1.Open; Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o problema.... Estou recebendo esta mensagem de erro: "List Index out off Bounds (0)" Como se os parametros não foram definidos Juro que não estou enxergando o erro ou se tenho que fazer algo diferente.. FrmDm.SimpleDataSet1.Close; FrmDm.SimpleDataSet1.DataSet.CommandText := 'select CDEVENTO from BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA'; FrmDm.SimpleDataSet1.Params[0].AsInteger := 1; <<<<<------------- pelo log, o erro é nesta linha FrmDm.SimpleDataSet1.Params[1].AsDate := MCevento.Date; FrmDm.SimpleDataSet1.Open; Agradeço qualquer dica ou ajuda... Vinicius __________ Informação do NOD32 IMON 4082 (20090518) __________ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
