CAMPO DATA NO FIREBIRD
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.....
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.....
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
Ola Tecla, Fiz assim esta dando esse erro q esta em anexo abaixo.


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]
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]


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
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
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 & [Ô][ô])[Ô]
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 & [Ô][ô])[Ô]
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
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

ek esta msg de erro..
Tinha 4 apóstrofos. Não tinha como funcionar.
Tente agora:
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
Tópico encerrado , respostas não são mais permitidas