CAMPO TYPE TIMESTAMP NO DB FIREBIRD

MOREIRA 20/11/2015 18:36:16
#454270
mesmo assim., também ndda...


  Sql = Sql & [Ô]     [ô][Ô] & IIf(Not IsDate(txtClDtNascimento.Text = [Ô][Ô], Null), Format(txtClDtNascimento.Text, [Ô]dd/mm/yyyy[Ô])) & [Ô][ô],[Ô]
JABA 20/11/2015 18:47:13
#454271
Você chegou a testar colocando a data diretamente?

ConectaDbBase True
    Dim Gr As String
    Gr = MsgBox([Ô]Confirmar gravar os dados cliente ? [Ô] & Chr(13) & [Ô][Ô] & Chr(13) & [Ô]--------------------------------------------[Ô], vbYesNo + vbInformation, ([Ô]ATENÇÃO[Ô]))
    If Gr = vbYes Then
    Sql = [Ô]INSERT INTO tb_cliente (CLCPFCNPJ[Ô]
        Sql = Sql & [Ô]        , CLNOMECLIENTE[Ô]
        Sql = Sql & [Ô]        , CLNOMESOCIAL[Ô]
        Sql = Sql & [Ô]        , CLRG[Ô]
        Sql = Sql & [Ô]        , CLRGESTEMISSOR[Ô]
        Sql = Sql & [Ô]        , CLRGDTEMISSAO[Ô]
        Sql = Sql & [Ô]        , CLDTNASCIMENTO[Ô]
        Sql = Sql & [Ô]        , CLNATURALIDADE[Ô]
        Sql = Sql & [Ô]        , CLNOMEMAE[Ô]
        Sql = Sql & [Ô]        , CLNOMEPAI[Ô]
        Sql = Sql & [Ô]        , CLENDERECO[Ô]
        Sql = Sql & [Ô]        , CLBAIRRO[Ô]
        Sql = Sql & [Ô]        , CLCIDADE[Ô]
        Sql = Sql & [Ô]        , CLESTADO[Ô]
        Sql = Sql & [Ô]        , CLLOGRADOURO[Ô]
        Sql = Sql & [Ô]        , CLREFERENCIA[Ô]
        Sql = Sql & [Ô]        , CLFONE1[Ô]
        Sql = Sql & [Ô]        , CLFONE2[Ô]
        Sql = Sql & [Ô]        , CLFONE3[Ô]
        Sql = Sql & [Ô]        , CLOUTRASINFO) Values ([Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClCpfCnpj.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClNomeCliente.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClNomeSocial.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClRg.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClRgEstEmissor.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClRgDtEmissao.Text & [Ô][ô],[Ô]
[txt-color=#e80000]        Sql = Sql & [Ô]  [ô]10/20/2015[ô] [Ô] & [Ô], [Ô][/txt-color]
        Sql = Sql & [Ô]     [ô][Ô] & txtClNaturalidade.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClNomeMae.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClNomePai.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClEndereco.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClBairro.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClCidade.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & ClCboUf.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClLogradouro.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClReferencia.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClFone1.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClFone2.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClFone3.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClOutrasInfo.Text & [Ô][ô])[Ô]
        Cnn.Execute Sql
        ConectaDbBase False
        MsgBox ([Ô]Dados do cliente gravados com sucesso![Ô]), vbInformation, [Ô]ATENÇÃO[Ô]
        Unload Me
        
    Else
        MsgBox ([Ô]Operação cancelada[Ô]), vbInformation, [Ô]ATENÇÃO[Ô]
    End If
MOREIRA 20/11/2015 19:04:38
#454272
sim.. grava..
JABA 20/11/2015 19:10:09
#454273
Faça assim então:

ConectaDbBase True
    Dim Gr As String
    Gr = MsgBox([Ô]Confirmar gravar os dados cliente ? [Ô] & Chr(13) & [Ô][Ô] & Chr(13) & [Ô]--------------------------------------------[Ô], vbYesNo + vbInformation, ([Ô]ATENÇÃO[Ô]))
    If Gr = vbYes Then
    Sql = [Ô]INSERT INTO tb_cliente (CLCPFCNPJ[Ô]
        Sql = Sql & [Ô]        , CLNOMECLIENTE[Ô]
        Sql = Sql & [Ô]        , CLNOMESOCIAL[Ô]
        Sql = Sql & [Ô]        , CLRG[Ô]
        Sql = Sql & [Ô]        , CLRGESTEMISSOR[Ô]
        Sql = Sql & [Ô]        , CLRGDTEMISSAO[Ô]
        Sql = Sql & [Ô]        , CLDTNASCIMENTO[Ô]
        Sql = Sql & [Ô]        , CLNATURALIDADE[Ô]
        Sql = Sql & [Ô]        , CLNOMEMAE[Ô]
        Sql = Sql & [Ô]        , CLNOMEPAI[Ô]
        Sql = Sql & [Ô]        , CLENDERECO[Ô]
        Sql = Sql & [Ô]        , CLBAIRRO[Ô]
        Sql = Sql & [Ô]        , CLCIDADE[Ô]
        Sql = Sql & [Ô]        , CLESTADO[Ô]
        Sql = Sql & [Ô]        , CLLOGRADOURO[Ô]
        Sql = Sql & [Ô]        , CLREFERENCIA[Ô]
        Sql = Sql & [Ô]        , CLFONE1[Ô]
        Sql = Sql & [Ô]        , CLFONE2[Ô]
        Sql = Sql & [Ô]        , CLFONE3[Ô]
        Sql = Sql & [Ô]        , CLOUTRASINFO) Values ([Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClCpfCnpj.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClNomeCliente.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClNomeSocial.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClRg.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClRgEstEmissor.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClRgDtEmissao.Text & [Ô][ô],[Ô]
[txt-color=#e80000]        sql = sql & IIf(txtClDtNascimento.Text = [Ô][Ô], Null, [Ô][ô][Ô] & Format(txtClDtNascimento.Text, [Ô]mm/dd/yyyy[Ô] & [Ô][ô],[Ô]))[/txt-color]
        Sql = Sql & [Ô]     [ô][Ô] & txtClNaturalidade.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClNomeMae.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClNomePai.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClEndereco.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClBairro.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClCidade.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & ClCboUf.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClLogradouro.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClReferencia.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClFone1.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClFone2.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClFone3.Text & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & txtClOutrasInfo.Text & [Ô][ô])[Ô]
        Cnn.Execute Sql
        ConectaDbBase False
        MsgBox ([Ô]Dados do cliente gravados com sucesso![Ô]), vbInformation, [Ô]ATENÇÃO[Ô]
        Unload Me
        
    Else
        MsgBox ([Ô]Operação cancelada[Ô]), vbInformation, [Ô]ATENÇÃO[Ô]
    End If
MOREIRA 20/11/2015 19:54:58
#454274
rapaz.... nao passa.... não é possivel !!
JABA 20/11/2015 19:59:46
#454275
Teria que ter funcionado. Pra mim você está montando errado aí. Tem que ser exatamente como lhe passei. Se funcionou colocando a data diretamente, era pra funcionar agora também. Execute o Msgbox(sql) após a montagem e manda o print com a mensagem pra que eu possa dar uma verificada.
MOREIRA 20/11/2015 23:28:06
#454278
como. estou fazendo exatamente. como estás passando e já tentei aqui outros métodos... não é possivel que estava deixando algum detalhe passar..!!
JABA 20/11/2015 23:38:36
#454279
Não tem como ser outra coisa, eu testei o código aqui e é isso aí. Está exatamente como tinha funcionado quando jogamos a data diretamente. A não ser que você esteja passando a data errada no campo, aí não vai funcionar. Execute o Msgbox(sql) para mostrar uma mensagem com a sql formada e me mande um print dessa mensagem, por favor. Quero ver o conteúdo que está sendo passado e a formação da sql.
DS2T 21/11/2015 00:33:05
#454280
sql = sql & IIf(txtClDtNascimento.Text = [Ô][Ô], Null, [Ô][ô][Ô] & Format(txtClDtNascimento.Text, [Ô]mm/dd/yyyy[Ô] & [Ô][ô],[Ô]))

Acho que está fechando o Format no lugar incorreto. Deveria fechar (colocar [Ô])[Ô]) logo após o [Ô]mm/dd/yyyy[Ô], não?
JABA 21/11/2015 00:39:28
#454281
Tá correto. Para uma data qualquer, a saída seria(com vírgula no final) --> [ô]20/10/2015[ô],
Página 4 de 5 [49 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar