ADICIONAL VALORES EM BRANCO NO CAMPO NUMERICO

 Tópico anterior Próximo tópico Novo tópico

ADICIONAL VALORES EM BRANCO NO CAMPO NUMERICO

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#487826 - 24/03/2019 16:28:44

MAGICMEN
PORTALEGRE
Cadast. em:Maio/2004


Boa tarde
necessito ajuda para colocar valores em branco vb.net access
se mudar o campo em access para texto funciona mas eu queria números
só que se não colocar valor dá erro.

Private Sub BtnNovo_Click(sender As Object, e As EventArgs) Handles BtnNovo.Click
        conexao.Open()

        comando = New OleDb.OleDbCommand("insert into frota (viatura,km,motivo,oficina,data,final)" & Chr(13) &
            "values (txtViaturactt,Txtkm,txtmotivo,txtoficina,TxtData,txtfinal)", conexao)
            comando.Parameters.AddWithValue("@viatura", TxtViaturactt.Text.ToUpper)
            comando.Parameters.AddWithValue("@km", Txtkm.Text.ToUpper)
            comando.Parameters.AddWithValue("@motivo", TxtMotivo.Text.ToUpper)
            comando.Parameters.AddWithValue("@oficina", TxtOficina.Text.ToUpper)
            comando.Parameters.AddWithValue("@data", txtdata.Text.ToUpper)
            comando.Parameters.AddWithValue("@final", TxtFinal.Text.ToUpper)

        comando.ExecuteNonQuery()


        CargaDataGridView()
        Me.TxtValor.Text = getMaximumValue()

        FormatarDG()
        conexao.Close()
    End Sub



#487827 - 24/03/2019 17:50:08

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


comando = New OleDb.OleDbCommand("insert into frota (viatura,km,motivo,oficina,data,final) values ('" & txtViaturactt.text & "'," & Txtkm.text & ",'" & txtmotivo.text & "','" & txtoficina.text & "','" & TxtData.text & "','" & txtfinal.text & "')", conexao)
Para Km usa  Null dentro da caixa de texto e verifica.
Tenta ai,caso alguém faça um sugestão melhor.



#487828 - 24/03/2019 18:44:40

JABA
CABO FRIO
Cadast. em:Agosto/2005


Defina um valor padrão nas configurações da tabela no banco de dados.

_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



Resposta escolhida #487830 - 24/03/2019 23:05:22

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Pode usar assim
comando = New OleDb.OleDbCommand("insert into frota (viatura,km,motivo,oficina,data,final) values ('" & txtViaturactt.text & "'," & iif(Txtkm.text = "", "NULL", txtkm.text) & ",'" & txtmotivo.text & "','" & txtoficina.text & "','" & TxtData.text & "','" & txtfinal.text & "')", conexao)

Ou substitua NULL por um valor padrão... como 0 por exemplo



#487832 - 25/03/2019 07:07:30

MAGICMEN
PORTALEGRE
Cadast. em:Maio/2004


Citação:
:
Pode usar assim
comando = New OleDb.OleDbCommand("insert into frota (viatura,km,motivo,oficina,data,final) values ('" & txtViaturactt.text & "'," & iif(Txtkm.text = "", "NULL", txtkm.text) & ",'" & txtmotivo.text & "','" & txtoficina.text & "','" & TxtData.text & "','" & txtfinal.text & "')", conexao)

Ou substitua NULL por um valor padrão... como 0 por exemplo



Obrigado já funcionou





 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MAGICMEN em 25/03/2019 07:08:00