DUVIDAS SIMPLES PARA VOCES...

XYKOVIEIRA 23/03/2012 16:45:41
#398106

Olá

Estou fazendo um select onde deve selecionar os dados se um determinado campo estiver vazio.
o campo seria [Ô]Vendido[Ô], este é um campo DATE
select * from tabela where Vendido=vazio
como faço este?
já tentei varias maneiras mas não funciona (access e vb6).

Vendido=[ô][ô]
Vendido=NULL
Vendido < 1900-01-01

Outra coisa: alguém conhece alguma rotina/função que corrija o que o usuário digitar, num campo de cliente, o nome dele, com mais de
um espaço de separação? (ex.: José da Costa Coelho ....> José(espaço)(espaço)(espaço)da(espaço)(espaço)(espaço)(espaço) Costa(espaço)Coelho)..... Isso geraria uma inconsistência numa tabela, ao (permitir) criar diversas instâncias para um mesmo nome...

se puderem me ajudar
MARCELO.TREZE 23/03/2012 16:59:43
#398108 Resposta escolhida
assim

sSQL = [Ô]SELECT * FROM tabela WHERE Isnull(vendido)[Ô]
XYKOVIEIRA 23/03/2012 17:33:48
#398112
Private Sub mnuMovement_Click()
Dim SQL As String
SQL = [Ô]Select * From Tabela Where IsNull(Retorno)[Ô]
SQL = SQL & [Ô]And Not IsNull(Saida)[Ô] & [Ô]Order By Saida[Ô]
[ô]Se um produto [ô]x[ô] saiu (Not IsNull (Saida) e ainda não retornou (IsNull (Retorno)
If Tabela.BOF Or Tabela.EOF Then
MsgBox [Ô]Há produtos fora![Ô]
Else
MsgBox [Ô]Produtos no lugar![Ô]
End If
End Sub

Não funcionou. A base de dados e a tabela são declarados em Option Explicit, e são carregados no evento <Load> do form...
Tem jeito?
MARCELO.TREZE 23/03/2012 18:26:30
#398123
vamos ver então

bom antes de mais nada sua pergunta quanto a corrigir o campo texto quando possui mais de um espaço é fácil de resolver

Text1.Text = Replace(Text1.Text, [Ô]  [Ô], [Ô] [Ô])


agora o codigo com campo nulo tente o seguinte

Private Sub mnuMovement_Click()
Dim SQL As String
SQL = SQL & [Ô]Select * From Tabela Where IsNull(Retorno) = True [Ô]
SQL = SQL & [Ô]And IsNull(Saida) = False Order By Saida[Ô]
[txt-color=#007100][ô]Se um produto [ô]x[ô] saiu (Not IsNull (Saida) e ainda não retornou (IsNull (Retorno)[/txt-color]
    If Not (Tabela.BOF And Tabela.EOF) Then
    MsgBox [Ô]Há produtos fora![Ô]
    Else
    MsgBox [Ô]Produtos no lugar![Ô]
    End If
End Sub


testa da maneira que está acima
SAMUKA 23/03/2012 18:39:39
#398126
Correção amigos:

  
Private Sub mnuMovement_Click()
Dim SQL As String
SQL = [Ô]Select * From Tabela Where Retorno IS NULL [Ô]
SQL = SQL & [Ô]And Saida IS NOT NULL Order By Saida[Ô]
[ô]Se um produto [ô]x[ô] saiu (Not IsNull (Saida) e ainda não retornou (IsNull (Retorno)
    If Not (Tabela.BOF And Tabela.EOF) Then
    MsgBox [Ô]Há produtos fora![Ô]
    Else
    MsgBox [Ô]Produtos no lugar![Ô]
    End If
End Sub


Ou seja, CAMPO IS NULL .... ou então CAMPO IS NOT NULL


Fonte: http://www.w3schools.com/sql/sql_null_values.asp
XYKOVIEIRA 23/03/2012 20:10:17
#398130

Muito obrigado pelas dicas...
Vou estudá-las, adequando-as para o meu project.
Um grande abraço.
Tópico encerrado , respostas não são mais permitidas
Voltar