[Resolvido] Diferença entre seis datas

[alissong 1]

Scorpio,

 

Muito obrigado pela dica, pois não sabia desse detalhe com o campo numérico, mas por que no mysql com a aspa simples funciona, mas o campo é integer será que tem diferença. Testarei olhe em casa. Entrei na tabela e verifiquei se o campo exigia not null, mas não será tem a vê com a conexão, pois criei um formulário no access e o campo aceita null sim. Então veja código a conexão:

Sub ADOAbrirBDProtegido()

Dim CNN As New ADODB.Connection

CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & App.Path &"\database\banco.MDB;Jet " & _

"OLEDB:Database Password=senha;"

End Sub

 

Um abraço.

 

 

Alissong

[scorpio 7]

Não, ai na conexão não vejo nada de mais, indica o provedor, o caminho e a senha, normal.

 

Não sei, sinceramente não sei por que ocorre isso.

 

 

Porque você poe

<campo> = Empty & <valor>

Qual a finalidade do Empty ?

 

 

Flw, e fico te devendo essa.

[alissong 1]

Scorpio,

 

Desculpe-me por não respondê-lo mais rápido, mas aqui o bicho tá pegando.....

Retirei as aspas simples foi ficou show de bola, o empty era para aceitar nulo, mas nada não resolveu, mas tudo bem. Resolvi passa para tudo para o mysql.

Muito obrigado pelas dicas, como disse anteriormente você é muito bom no visual basic.

 

 

Um abraço.

 

 

Alissong

[Claudio Neto 3]

Scorpio,

 

Desculpe-me por não respondê-lo mais rápido, mas aqui o bicho tá pegando.....

Retirei as aspas simples foi ficou show de bola, o empty era para aceitar nulo, mas nada não resolveu, mas tudo bem. Resolvi passa para tudo para o mysql.

Muito obrigado pelas dicas, como disse anteriormente você é muito bom no visual basic.

 

 

Um abraço.

 

 

Alissong

Alissong, provavemente esse campo:

AdoHoraExtra("hora") = CDate(hora.Text)

está declarado como datetime não é mesmo? Campos datetime ou smalldatetime não aceitam branco. Se você não tem uma data para passar para ele, precisa passar null.

 

Utilize um if:

 

If hora.text = "" then

AdoHoraExtra("hora") = null

else

AdoHoraExtra("hora") = CDate(hora.Text)

end if

 

Talvez o tipo de declaração que você usou para o campo situacao também não aceite. De que tipo é?

 

Tenta e avisa.

 

Abraços.

[alissong 1]

Claudio Neto,

 

Desculpe-me pelo atraso na resposta. Funcionou beleza....................

 

 

Um abraço.

 

 

Alissong