CAMPO TYPE TIMESTAMP NO DB FIREBIRD

MOREIRA 20/11/2015 14:55:47
#454249
estão. só retirei a coluna e o valor da data de nescimento consigo gravar normal..

  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 & [Ô][ô],[Ô]
        [ô][ô][ô][ô][ô]Sql = Sql & [Ô]     [Ô] & IIf(txtClDtNascimento.Text = [Ô][Ô], Null, [Ô][ô][Ô] & Format(txtClDtNascimento.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô][ô][Ô])
        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 15:04:19
#454253 

 aqui.. ele está achando dois valores para uma só coluna.... Sql = Sql & [Ô]     [ô][Ô] & IIf(txtClDtNascimento.Text = [Ô][Ô], Null, [Ô][ô][Ô] & Format(txtClDtNascimento.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô][ô][Ô])
JABA 20/11/2015 15:06:15
#454255 
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 & [Ô][ô],[Ô]
        Sql = Sql & [Ô]     [ô][Ô] & IIf(txtClDtNascimento.Text = [Ô][Ô], Null,  Format(txtClDtNascimento.Text, [Ô]mm/dd/yyyy[Ô])) & [Ô] [ô], [Ô]
        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
GUIMORAES 20/11/2015 15:08:07
#454256
Retire o que está comentado e poste a string sql gerada no código, para verificarmos o que está dando de errado.
MOREIRA 20/11/2015 15:12:38
#454257
nada.... aff.. ô coisa chata!!



agora deu conversão da string


  Sql = Sql & [Ô]     [ô][Ô] & IIf(txtClDtNascimento.Text = [Ô][Ô], Null, Format(txtClDtNascimento.Text, [Ô]mm/dd/yyyy[Ô])) & [Ô][ô],[Ô]
JABA 20/11/2015 15:16:27
#454258
Retire os espaços vazios do inicio:

Sql = Sql & [txt-color=#e80000][Ô][ô][Ô][/txt-color] & IIf(txtClDtNascimento.Text = [Ô][Ô], Null, Format(txtClDtNascimento.Text, [Ô]mm/dd/yyyy[Ô])) & [Ô][ô],[Ô]
MOREIRA 20/11/2015 15:22:07
#454259
retirei, e nada.. continua...
JABA 20/11/2015 15:28:38
#454260
Coloque uma data válida diretamente e faça o teste, se funcionar é porque o erro está sendo na formatação da data.

Sql = Sql & [Ô] [ô]11/20/2015[ô], [Ô]
JABA 20/11/2015 15:33:31
#454261
Do jeito que estávamos fazendo, se caísse Null, ele ficaria com aspas simples da mesma forma que antes, então corrija e faça assim:

Sql = Sql & IIf(txtClDtNascimento.Text = [Ô][Ô], Null, & [txt-color=#e80000][Ô][ô][Ô][/txt-color] & Format(txtClDtNascimento.Text, [Ô]mm/dd/yyyy[Ô]) & [txt-color=#e80000][Ô][ô][Ô][/txt-color]) & [txt-color=#e80000][Ô],[Ô][/txt-color]
MOREIRA 20/11/2015 18:30:05
#454269




não quer funcionar mesmo... caracas, meu !!

que isso!!!
  Sql = Sql & IIf(txtClDtNascimento.Text = [Ô][Ô], Null, & [Ô][ô][Ô] & Format(txtClDtNascimento.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô][ô][Ô]) & [Ô],[Ô]
Página 3 de 5 [49 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar