Consulta

[cesarhtc 0]

Poderia me ajudar estou recebendo esta mensagem de erro depois que alterei a consulta SQL:

 

Poderiam me ajudar?

 

Obrigado

 

 

Microsoft JET Database Engine error '80040e10'

 

No value given for one or more required parameters.

 

/Suprimentos/sicont/Relatorio_Contrato2@@@.asp, line 150

 

 

Consulta SQL alteração marcada em vermelho:

StrSQL ="SELECT * FROM [CadastroDeContratos/AFs] INNER JOIN [Regionais/Responsável] ON [CadastroDeContratos/AFs].Regional = [Regionais/Responsável].Regional WHERE ( ([CadastroDeContratos/AFs].Regional Like '%"& wlocal &"%') AND ([CadastroDeContratos/AFs].Fornecedor Like '%"& wfornecedor &"%') AND ([CadastroDeContratos/AFs].Gestor ='"& wgestor &"') AND ([CadastroDeContratos/AFs].diretoria like'%"& wdiretoria &"%') AND ([CadastroDeContratos/AFs].Objeto Like '%"& wobjeto &"%') AND (((Exists (Select * From ValoresUnitários where ([ValoresUnitários].Unidadereferência like '%"& wreferencia &"%')))<>False)) AND ([CadastroDeContratos/AFs].VigênciaFim>=Now()) AND ([CadastroDeContratos/AFs].[Tipo de Lançamento]='definitivo') AND (([CadastroDeContratos/AFs].[Essencial?]=Yes) or ([CadastroDeContratos/AFs].[Essencial?1]=Yes))) ORDER BY [CadastroDeContratos/AFs].[NúmerodaCP], [CadastroDeContratos/AFs].ID"

[dataset 0]

Na sua consulta destacada em vermelho:

 

(((Exists (Select * From ValoresUnitários where ([ValoresUnitários].Unidadereferência like '%"& wreferencia &"%')))<>False))

Não usa o *, seleciona somente a coluna que te interessa.

[cesarhtc 0]

Realmente tinha que colocar a coluna, mais continua dando o mesmo erro.

 

"SELECT * FROM [CadastroDeContratos/AFs] INNER JOIN [Regionais/Responsável] ON [CadastroDeContratos/AFs].Regional = [Regionais/Responsável].Regional WHERE ( ([CadastroDeContratos/AFs].Regional Like '%"& wlocal &"%') AND ([CadastroDeContratos/AFs].Fornecedor Like '%"& wfornecedor &"%') AND ([CadastroDeContratos/AFs].Gestor ='"& wgestor &"') AND ([CadastroDeContratos/AFs].diretoria like'%"& wdiretoria &"%') AND ([CadastroDeContratos/AFs].Objeto Like '%"& wobjeto &"%') AND (((Exists (Select [ValoresUnitários].Unidadereferência From ValoresUnitários where ([ValoresUnitários].Unidadereferência like '%"& wreferencia &"%')))<>False)) AND ([CadastroDeContratos/AFs].VigênciaFim>=Now()) AND ([CadastroDeContratos/AFs].[Tipo de Lançamento]='definitivo') AND (([CadastroDeContratos/AFs].[Essencial?]=Yes) or ([CadastroDeContratos/AFs].[Essencial?1]=Yes))) ORDER BY [CadastroDeContratos/AFs].[NúmerodaCP], [CadastroDeContratos/AFs].ID"

 

Microsoft JET Database Engine error '80040e10'

 

No value given for one or more required parameters.

 

/Suprimentos/sicont/Relatorio_Contrato2@@@.asp, line 150

 

 

'Cria um objeto recordset

set rstMain = Server.CreateObject("ADODB.Recordset")

 

'Conecta ao BD pelo DSN e abre a consulta

'Como resultado, o recordset conterá a tabela-resposta

rstMain.Open strSQL, conexao linha 150

 

Agradeço pela ajuda