CAMPO TYPE TIMESTAMP NO DB FIREBIRD

MOREIRA 20/11/2015 10:24:36
#454211
tive que mudar de banco de dados, mysql para firebird

dando erro na linha, preciso que grave a data de nascimento null, dando error mesmo com a linha acima..

alguma sugestação ?

  Sql = Sql & [Ô]     [ô][Ô] & IIf(txtClDtNascimento.Text = [Ô][Ô], [Ô]Null[Ô], [Ô][ô][Ô] & Format(txtClDtNascimento.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]) & [Ô][ô],[Ô]


já teste com os campo TIMESTAMP ou date.

conversion error from string [Ô]Null[Ô]
PERCIFILHO 20/11/2015 10:28:38
#454212
Tenta assim:
IIf(txtClDtNascimento.Text = [Ô][Ô], DBNull.Value, [Ô][ô][Ô] & Format(txtClDtNascimento.Text, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]) & [Ô][ô],[Ô]
MOREIRA 20/11/2015 10:55:49
#454217
nada, no mesmo...
GUIMORAES 20/11/2015 11:11:06
#454219
Data no firebird.

format(cdate(txtClDtNascimento.Text), [Ô]MM/dd/yyyy[Ô])

A letra m em minúsculo representa os minutos, tome cuidado.
GUIMORAES 20/11/2015 11:14:03
#454220
Detalhe, você pode trabalhar com parâmetros, neste caso a data não precisa ser formatada.
 
sql = [Ô]Insert into tabela(codigo, data) values (@codigo, @data)[Ô]

Dim cmd As New FbCommand(sql, connection)
            cmd.Parameters.Add([Ô]@codigo[Ô], parametroCodigo)
            cmd.Parameters.Add([Ô]@data[Ô], parametroData)
MOREIRA 20/11/2015 11:20:46
#454222
é... amigos, não quer funcionar com M com m.. ô coisa complicada,

no mysql simples e fácil;;

mas tenho que usar o firebird....
MOREIRA 20/11/2015 11:23:52
#454223 
  Private Sub CmbGravar_Click()
    
    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, [Ô]dd/mm/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
    
End Sub
GUIMORAES 20/11/2015 11:28:21
#454226
Desculpa, não vi que era vb6, mais o formato se prevalece o mesmo.
Qual é o erro que está sendo retornado?
MOREIRA 20/11/2015 11:31:18
#454227
sqlCode:-413
overflow occurred during data type converion
conversion error form string
DS2T 20/11/2015 13:11:18
#454229
Tem como mandar a consulta que você tá usando? Isto é, depois que você passa todos os parâmetros.
Quero ver o que está gerando, assim fica mais fácil ajudar.

Abraços!
MARCELOKROL 20/11/2015 13:15:27
#454230
bom se o campo é timestamp tenta formatar a data com Data e Hora pra ver se funciona

Format(txtClDtNascimento.Text, [Ô]yyyy-mm-dd hh:mm:ss[Ô])

mais se é data de nascimento não precisa ser timestamp, pode ser apenas date, pois creio que há a necessidade de saber a hora de nascimento, correto?

outra coisa... o formato de datas é o padrão americano: ano/mês/dia
Página 1 de 5 [49 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar