SQL PARA PEGAR PRIMEIRA PALAVRA DA FRASE

USUARIO.EXCLUIDOS 05/06/2007 14:36:44
#219854
Baixar somente dados que comecem com a primeira palavra da frase:
Fresa de topo ÃËœ10
Fresa esferica ÃËœ5
Fresa em T ÃËœ14
Broca Helicoidal ÃËœ2,3
Inserto RDGW 12t03
Fresa de Ranhurar

Digamos FRESA, então baixar somente as frases iniciadas com a palavra FRESA....
Set TBEstoqueConsumo = BancoDeDados.OpenRecordset("select * from estoqueconsumo where DescricaoC LIKE '*" & Descricao.Text & "*' and DataC >= #" & Format(DataInicial, "mm/dd/yyyy") & "# and DataC <= #" & Format(DataFinal, "mm/dd/yyyy") & "# order by DataC asc")

Sds geronimo
HUGOSSOUZA 05/06/2007 14:41:32
#219858
tenta isso:

'em Postgre - acho q serve em outros bancos tambem
select substr(campo, 0 , position ( ' ' in campo)) from tabela


'em Access
select mid( campo , 1 , InStr ( campo , " ")) from tabela
USUARIO.EXCLUIDOS 05/06/2007 15:37:37
#219877
NO SQL é ASSIM...


SELECT *
FROM TABELA
WHERE NOME LIKE '%Fresa '


O SELECT ACIMA PEGA TUDO QUE COMECE COM FRESA

ESPERO TER AJUDADO...
USUARIO.EXCLUIDOS 05/06/2007 16:55:47
#219891 Resposta escolhida
Desculpe a intromissão Marcelo, mas ele quer as frases iniciadas pela palavra, entºao a forma correta seria:

NO SQL é ASSIM...



SELECT *
FROM TABELA
WHERE NOME LIKE 'Fresa%'


USUARIO.EXCLUIDOS 05/06/2007 19:40:35
#219922
Pessoal só uma duvida preciso pegar os dados na variavel que esta na combobox (descrição):
LIKE '*" & Descricao.Text & "*'
Não seria especificamente somente fresa posso precisar por exemplo apos o filtro das fresas pegar somente as brocas....
As funções acima testei mas não retornaram os valores...

Desde já agradeço se alguém tiver mais alguma ideia.:)
USUARIO.EXCLUIDOS 05/06/2007 22:25:31
#219930
Cara Troca isso "*" por isso "%" ficaria assim

LIKE  '%Descricao.Text%'


ve isso da certo
USUARIO.EXCLUIDOS 06/06/2007 08:13:00
#219941
dim sql as string

sql= "SELECT * FROM TABELA WHERE NOME LIKE ' & cmbProduto.text & "%'"
USUARIO.EXCLUIDOS 06/06/2007 15:07:55
#220048
Pessoal não funcionou vejam o codigo:
On Error GoTo Trata_Erro


Me.MousePointer = 11

ActiveSheet.Unprotect
Plan16.Visible = xlSheetVisible
'LimparSubTota
Worksheets("CustoPeriodo").Range("a5:f10000").ClearContents
Set TBEstoqueConsumo = BancoDeDados.OpenRecordset("select * from estoqueconsumo where DescricaoC like '%" & Descricao.Text & "%' and DataC >= #" & Format(DataInicial, "mm/dd/yyyy") & "# and DataC <= #" & Format(DataFinal, "mm/dd/yyyy") & "# order by DataC asc")

i = 5
If Not TBEstoqueConsumo.EOF Then
Do While Not TBEstoqueConsumo.EOF
Worksheets("CustoPeriodo").Range("A" & i).Value = TBEstoqueConsumo("DataC")
Worksheets("CustoPeriodo").Range("B" & i).Value = TBEstoqueConsumo("DescricaoC")
Worksheets("CustoPeriodo").Range("C" & i).Value = TBEstoqueConsumo("SolicitanteC")
Worksheets("CustoPeriodo").Range("D" & i).Value = TBEstoqueConsumo("QuantidadeC")
Worksheets("CustoPeriodo").Range("E" & i).Value = TBEstoqueConsumo("UsuarioC")
Worksheets("CustoPeriodo").Range("F" & i).Value = TBEstoqueConsumo("CustoC")

i = i + 1

TBEstoqueConsumo.MoveNext
Loop
End If
Tópico encerrado , respostas não são mais permitidas
Voltar