Não grava data em branco

[EduardoFonseca 0]

Boa tarde,

 

Faz mais de dois dias que estou tentando resolver este problema, por gentileza alguem poderia me ajudar?. Não esta permitindo apagar uma data existe e salvar em branco. Não acusa erro apenas não grava. Estou usando vb 2008 e bd em access.

 

Subi um exemplo do projeto para quem quiser olhar, segui o link:

 

http://www.4shared.com/account/file/NDsojOE6/projetovb2008_bdaccess.html

 

Abraço, Edu

 

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyConnection As OleDbConnection
       Dim sql_checkDATA As String
       If DatanascimentoMaskedTextBox.Text = "  /  /" Then
           'BancodedadosDataSet.EnforceConstraints = False
           sql_checkDATA = "''"   'Já tentei como Null
       Else
           sql_checkDATA = "#" & DatanascimentoMaskedTextBox.Text & "#"
       End If
       Try
           MyConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + Application.StartupPath + "\bancodedados.mdb")
           Dim Sql As String = "UPDATE cadastro SET codigo=" & CodigoTextBox.Text & ", nome='" & NomeTextBox.Text & "', salario ='" & SalarioTextBox.Text & "', datanascimento=" & sql_checkDATA & " WHERE codigo=" & CodigoTextBox.Text & ""
           MyConnection.Open()
           Dim MyComand As New OleDbCommand(Sql, MyConnection)
           MyComand.ExecuteNonQuery()
           MessageBox.Show("Gravado com sucesso!!!", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
           MyConnection.Close()
           MyComand.Dispose()
           MyConnection.Dispose()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

[quintelab 91]

Não tenho certeza como funciona o access. Mas nem outro banco você deveria passar assim:

 

UPDATE cadastro SET codigo=" & CodigoTextBox.Text & ", nome='" & NomeTextBox.Text & "', salario ='" & SalarioTextBox.Text & "', datanascimento=NULL WHERE codigo=" & CodigoTextBox.Text

 

Abraços...

[EduardoFonseca 0]

Obrigado pela resposta, porem não funciona como null. Não sei o que esta ocorrendo.

 

[quintelab 91]

O campo foi criado como not null? Caso sim, não será possível mesmo.

Tente executar o update direto pelo banco e não via software, caso não consiga é melhor mover este tópico para a área de banco de dados.

 

Abraços...