SELECT 3 ITENS BD
O Campo ORÇAMENTO é TEXTO? Se for NUMéRICO não funciona o LIKE.
Creio que o problema esteja na linha abaixo...
...pois no PRINT do ERRO, você está passando um * (asterisco) como valor.
Teste o seguinte:
Se o campo PEDIDOS for do tipo NUMéRICO...
Se o campo PEDIDOS for do tipo TEXTO...
Retorne o resultado.
.CommandText = .CommandText & [Ô]AND Pedidos = [Ô] & txtPedido & [Ô] [Ô]...pois no PRINT do ERRO, você está passando um * (asterisco) como valor.
Teste o seguinte:
Se o campo PEDIDOS for do tipo NUMéRICO...
.CommandText = .CommandText & [Ô]AND Pedidos = [Ô] & txtPedido & [Ô] [Ô]Se o campo PEDIDOS for do tipo TEXTO...
.CommandText = .CommandText & [Ô]AND Pedidos = [ô][Ô] & txtPedido & [Ô][ô] [Ô]Retorne o resultado.
Esta linha está errada.
.CommandText = [Ô]SELECT Data, Quantidade, TotalVenda, Orçamento, Status FROM Pedido WHERE Produto LIKE [ô]%[Ô] & Combo4 & [Ô]%[ô] AND Cliente LIKE [ô]%[Ô] & Combo3 & [Ô]%[ô] [Ô]
Falta um ESPAÇO EM BRANCO no fim
.CommandText = [Ô]SELECT Data, Quantidade, TotalVenda, Orçamento, Status FROM Pedido WHERE Produto LIKE [ô]%[Ô] & Combo4 & [Ô]%[ô] AND Cliente LIKE [ô]%[Ô] & Combo3 & [Ô]%[ô] [Ô]
.CommandText = [Ô]SELECT Data, Quantidade, TotalVenda, Orçamento, Status FROM Pedido WHERE Produto LIKE [ô]%[Ô] & Combo4 & [Ô]%[ô] AND Cliente LIKE [ô]%[Ô] & Combo3 & [Ô]%[ô] [Ô]
Falta um ESPAÇO EM BRANCO no fim
.CommandText = [Ô]SELECT Data, Quantidade, TotalVenda, Orçamento, Status FROM Pedido WHERE Produto LIKE [ô]%[Ô] & Combo4 & [Ô]%[ô] AND Cliente LIKE [ô]%[Ô] & Combo3 & [Ô]%[ô] [Ô]
NENHUEM é NEMERICO E TUDO TEXTO PRA NÃO DAR ESSES PAUS.
SEGUNDO A DICA ANTERIOR DE NOSSO COMPANHEIRO COLOQUEI E MUDEI UM POUCO A POSIÇÃO DOS END IF E END WHIT
[ô]carregando o recordset com campos desejados da tabela
With cmd
.ActiveConnection = cone
.CommandType = adCmdText
.CommandText = [Ô]SELECT Data, Quantidade, TotalVenda, Orçamento, Status FROM Pedido WHERE Produto LIKE [ô]%[Ô] & Combo4 & [Ô]%[ô] AND Cliente LIKE [ô]%[Ô] & Combo3 & [Ô]%[ô] [Ô]
If txtPedido.Visible Then
.CommandText = .CommandText & [Ô]AND Pedidos LIKE [ô]%[Ô] & txtPedido.Text & [Ô]%[ô] [Ô]
.CommandText = .CommandText & [Ô]order by Codigo[Ô]
Set rsLider = .Execute
[ô]
[ô]carregando o Mshflex com o recordset
With rsLider
Set MSHFlexGrid1.DataSource = rsLider
End With
End If
ESSE FUNCIONOU ACIMA FUNCIONOU.
VALEW SE NÃO FOCE O VBMANIA COM TODO ESSE PESSOAL DISPOSTO A AJUDAR EU E MUITA GENTE TAVA FERRADO PRA APRENDER .
MUITO OBRIGADO A TODOS PELA ATENÇÃO E PACIENCIA COMIGO RRSRSR.
SEGUNDO A DICA ANTERIOR DE NOSSO COMPANHEIRO COLOQUEI E MUDEI UM POUCO A POSIÇÃO DOS END IF E END WHIT
[ô]carregando o recordset com campos desejados da tabela
With cmd
.ActiveConnection = cone
.CommandType = adCmdText
.CommandText = [Ô]SELECT Data, Quantidade, TotalVenda, Orçamento, Status FROM Pedido WHERE Produto LIKE [ô]%[Ô] & Combo4 & [Ô]%[ô] AND Cliente LIKE [ô]%[Ô] & Combo3 & [Ô]%[ô] [Ô]
If txtPedido.Visible Then
.CommandText = .CommandText & [Ô]AND Pedidos LIKE [ô]%[Ô] & txtPedido.Text & [Ô]%[ô] [Ô]
.CommandText = .CommandText & [Ô]order by Codigo[Ô]
Set rsLider = .Execute
[ô]
[ô]carregando o Mshflex com o recordset
With rsLider
Set MSHFlexGrid1.DataSource = rsLider
End With
End If
ESSE FUNCIONOU ACIMA FUNCIONOU.
VALEW SE NÃO FOCE O VBMANIA COM TODO ESSE PESSOAL DISPOSTO A AJUDAR EU E MUITA GENTE TAVA FERRADO PRA APRENDER .
MUITO OBRIGADO A TODOS PELA ATENÇÃO E PACIENCIA COMIGO RRSRSR.
Tópico encerrado , respostas não são mais permitidas