OMITIR DATA

ILIDIO 20/06/2015 08:55:58
#447936
Boa tarde amantes da programação,

Gostaria de uma ajuda vossa se possível.
A questão é a seguinte:

Supondo a existência de uma comboBox com valores [Ô]SIM[Ô] / [Ô]NAO[Ô] como escolha e uma DTPicker (data).

Se o usuário escolher a resposta como [Ô]SIM[Ô] grava-me a data, caso contrario [Ô]NAO[Ô] nada acontece.
Ficaria assim no banco de dados: 1º Campo [Ô]SIM[Ô] e 2º campo [Ô]DD/MM/AA[Ô]
código:
connectDB
rs.Open [Ô]Select * from tabeladesejada[Ô], db, 3, 3
rs.AddNew
rs(1) = [Ô][Ô] & comboBox.Text
If comboBox.Text = [Ô]SIM[Ô] Then
rs(2) = [Ô][Ô] & DTPicker.Value
End If
rs.Update
FechaDB
Até aqui tudo ok.

Os dados são mostrados numa ListView.
Pretendendo alterar os dados de [Ô]SIM[Ô] para [Ô]NAO[Ô], processo inverso ao de cima, acontece que a data mantém-se.
Como fariam para que o processo ficasse no banco de dados: 1º Campo [Ô]NAO[Ô] e 2º Campo [Ô]vazio[Ô]? Alguma resposta?
código:
connectDB
rs.Open [Ô]Select * from tabeladesejada where IdCliente = [Ô] & Id, db, 3, 3
rs(1) = [Ô][Ô] & comboBox.Text [ô]este altera de SIM para NAO
rs(2) = [Ô][Ô] & DTPicker.Value [ô]A data não desaparece:( Ajuda!
rs.Update
FechaDB
JABA 20/06/2015 14:37:03
#447938 Resposta escolhida 
connectDB
    rs.Open [Ô]Select * from tabeladesejada where IdCliente = [Ô] & Id, db, 3, 3
     rs(1) = [Ô][Ô] & comboBox.Text     [ô]este altera de SIM para NAO
     if comboBox.Text = [Ô]SIM[Ô] then
        rs(2) = [Ô][Ô] & DTPicker.Value     [ô]A data não desaparece:( Ajuda!
     else
        rs(2) = [Ô][Ô]
     end if
    rs.Update
   FechaDB

OMAR2011 20/06/2015 19:02:45
#447949
Jaba, não seria NULL.
JABA 20/06/2015 20:53:33
#447953
Omar, acho que tanto faz, mas como é vb6, então seria Nothing, não null.
ILIDIO 22/06/2015 08:27:20
#447998
JABA e OMAR2011 Obrigado pela ajuda.

Peguei na ideia dos dois e fiz o seguinte:

connectDB
rs.Open [Ô]Select * from tabeladesejada where IdCliente = [Ô] & Id, db, 3, 3
rs(1) = [Ô][Ô] & comboBox.Text
if comboBox.Text = [Ô]SIM[Ô] then
rs(2) = [Ô][Ô] & DTPicker.Value
Else
rs(2) = Null
End if
rs.Update
FechaDB

Problema resolvido
Tópico encerrado , respostas não são mais permitidas
Voltar