SALVAR DATA EM BRANCO

NILTON.VIANNA 22/05/2011 18:17:50
#374700
Ola amigos eu tinha essa rotina e perdi, para salvar a data em branco no FIREBIRD

CnSql.Execute [Ô]INSERT INTO Cad_Paciente (CodigoID, DtaCadastro VALUES ([ô][Ô] & txtCodigoID.Text,[ô][Ô] & txtDtaCadastro.Text & [Ô][ô])[Ô]
se alguem puder me ajudar eu agradeço

Grato
Nilton
CLEVERTON 22/05/2011 18:53:31
#374702
CnSql.Execute [Ô]INSERT INTO Cad_Paciente (CodigoID, DtaCadastro VALUES ([ô][Ô] & txtCodigoID.Text,null)[Ô]
MARCELO.TREZE 22/05/2011 19:04:44
#374704
assim


CnSql.Execute [Ô]INSERT INTO Cad_Paciente (CodigoID, DtaCadastro) VALUES ([ô][Ô] & txtCodigoID.Text & [Ô][ô],[Ô] & Iff(txtDtaCadastro.Text=[Ô][Ô],[Ô]NULL[Ô],[Ô][ô][Ô] & txtDtaCadastro.Text & [Ô][ô][Ô] & [Ô])[Ô]
NILTON.VIANNA 22/05/2011 19:14:48
#374705
Marcelo acho que ta faltando alguma coisa ???
MARCELO.TREZE 23/05/2011 13:12:17
#374764
tava mesmo, faltava fechar um parenteses

CnSql.Execute [Ô]INSERT INTO Cad_Paciente (CodigoID, DtaCadastro) VALUES ([ô][Ô] & txtCodigoID.Text & [Ô][ô],[Ô] & Iff(txtDtaCadastro.Text = [Ô][Ô], [Ô]NULL[Ô], [Ô][ô][Ô] & txtDtaCadastro.Text & [Ô][ô][Ô][txt-color=#e80000])[/txt-color] & [Ô])[Ô]
NILTON.VIANNA 23/05/2011 22:53:24
#374808
é não teve jeito, tive que criar duas opçoes para salvar
se for em branco uso a linha que nao tem o txtDtaConsultaP = [Ô][Ô] False
se for em normal uso a linha que tem o txtDtaConsultaP = [Ô][Ô] True

tentei colocar uma data qualquer so pra ficar em branco nb BD, mais na consulta aparece um montao

Fiz assim,

Private Function ValidaGrava() As Boolean
If txtDtaConsultaP.Text > [Ô][Ô] Then
GBGrava01_Click
End If
If txtDtaConsultaP.Text = [Ô][Ô] Then
GBGrava02_Click
End If
End Function

ai funcionando normal

Grato, a todos
ALANTB 24/05/2011 08:56:25
#374817
Esse exemplo é com MaskedBox , VB6 gravando no ACCESS :
Incluir:
IIf(mskAdmissao.Text = [Ô]__/__/____[Ô], Null, mskAdmissao.Text) & [Ô][ô],[ô][Ô] & _

Editar:
[Ô]DtAdmissao =[ô][Ô] & IIf(mskAdmissao.Text = [Ô]__/__/____[Ô], Null, mskAdmissao.Text) & [Ô][ô],[Ô] & _

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