CAMPO DATA NO FIREBIRD

MOREIRA 04/08/2009 13:15:43
#318838
Em um Formulario tenho Campo TxtData_Entrada.text, em Alguns casos o usuario nao vai digitar essa data.. Na tabela coloquei o tipo de campo como Date.. (Opção NULL)..

mas nao consigo gravar o campo em branco ou null... estou usando assim..

o q ha de errado com essa função...

DataEntrada = IIf(TxtData_Entrada.Text = [Ô][Ô], [Ô]NULL[Ô], Format(TxtData_Entrada.Text, [Ô]yyyy/mm/dd[Ô]))

ou seja, o campo tem q aceitar ou nao a data digitada.....
TECLA 04/08/2009 13:31:01
#318841 Resposta escolhida
A idéia é esta:

Dim sSQL As String
sSQL = [Ô]INSERT INTO tabela (campoData) [Ô]
sSQL = sSQL & [Ô]VALUES ([Ô] & DataEntrada = IIf(TxtData_Entrada.Text = [Ô][Ô], [Ô]NULL[Ô], [Ô][ô][Ô] & Format(TxtData_Entrada.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]) & [Ô])[Ô]
con.Execute sSQL
MOREIRA 04/08/2009 13:54:52
#318844
Ola Tecla, Fiz assim esta dando esse erro q esta em anexo abaixo.
MOREIRA 04/08/2009 13:56:05
#318846
sSQL = [Ô]INSERT INTO TBL_CONTRATO (DATA_ENTRADA)[Ô]
sSQL = sSQL & [Ô]VALUES ([Ô]
sSQL = sSQL & [Ô][ô][Ô] & DataEntrada = IIf(TxtData_Entrada.Text = [Ô][Ô], [Ô]NULL[Ô], [Ô][ô][Ô] & Format(TxtData_Entrada.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]) & [Ô][ô])[Ô]
MsgBox ([Ô]Dados Gravado com Sucesso[Ô]), vbExclamation, [Ô]ATENÇAO[Ô]
Conexao.Execute sSQL
[img] [/imhttp://img518.imageshack.us/i/erroi.jpg/g]
MOREIRA 04/08/2009 13:58:29
#318847
MOREIRA 04/08/2009 14:00:33
#318848
MOREIRA 04/08/2009 14:47:04
#318857
por favor, saber informar q esso é esse...

estou colocando assim. continua com o mesmo errro...

Private Sub chameleonButton1_Click()
sSQL = [Ô]INSERT INTO TBL_CONTRATO (TBL_CONTRATO)[Ô]
sSQL = sSQL & [Ô]VALUES ([Ô] & DataEntrada = IIf(TxtData_Entrada.Text = [Ô][Ô], [Ô]NULL[Ô], [Ô][ô][Ô] & Format(TxtData_Entrada.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]) & [Ô][ô])[Ô]
Conexao.Execute sSQL
End Sub
RICART 04/08/2009 14:56:06
#318860
Quando vc for gravar data no firebird e não houver a informação, passe null, sem haspas simples. Porém, o valor da data tem que ser passado com as haspas.
Dim DataEntrada as String
Dim strNome as String
DataEntrada = IIf(TxtData_Entrada.Text = [Ô][Ô], [Ô]null[Ô], [Ô][ô][Ô] & Format(TxtData_Entrada.Text, [Ô]yyyy/MM/dd[Ô]) & [Ô][ô][Ô])
strNome = [Ô]joao paulo[Ô]
sql = [Ô]Insert into tbl_dados (data, nome) values ([Ô] & DataEntrada & [Ô], [Ô] [ô][Ô] & strNome & [Ô][ô])[Ô]

se vc fizer assim, não vai aceitar: [Ô]Insert into tbl_dados (data, nome) values ([ô][Ô]& DataEntrada & [Ô][ô][Ô], [Ô][ô][Ô] & strNome & [Ô][ô])[Ô]
MOREIRA 04/08/2009 15:16:33
#318862
Ola RICART, Continua dando erro..

Private Sub chameleonButton1_Click()
Dim sSQL As String
Dim DataEntrada As String
Dim strNome As String
strNome = [Ô]joao paulo[Ô]

DataEntrada = IIf(TxtData_Entrada.Text = [Ô][Ô], [Ô]null[Ô], [Ô][ô][Ô] & Format(TxtData_Entrada.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô])
sSQL = [Ô]Insert Into TBL_CONTRATO (DATA_ENTRADA,Nome)[Ô]
sSQL = sSQL & [Ô]Values ([Ô]
sSQL = sSQL & [Ô][ô][Ô] & DataEntrada & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & strNome & [Ô][ô])[Ô]
Conexao.Execute sSQL
End Sub


ERRO DE CONVERSÃO PRA STRING.. NULL
MOREIRA 04/08/2009 15:21:49
#318863


ek esta msg de erro..
TECLA 04/08/2009 15:29:13
#318864
Tinha 4 apóstrofos. Não tinha como funcionar.
Tente agora:

DataEntrada = IIf(TxtData_Entrada.Text = [Ô][Ô], [Ô]null[Ô], [Ô][ô][Ô] & Format(TxtData_Entrada.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô])
sSQL = [Ô]Insert Into TBL_CONTRATO (DATA_ENTRADA,Nome)[Ô]
sSQL = sSQL & [Ô]Values ([Ô]
sSQL = sSQL & DataEntrada & [Ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & strNome & [Ô][ô])[Ô]
Conexao.Execute sSQL
End Sub
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar