none
Nenhum valor foi fornecido para um ou mais parametros necessarios! RRS feed

  • Pergunta

  • Bom dia a todos!

    Estou enfrentando um problema ao desenvolver uma aplicação no VB.NET 2015 onde está dando o erro "Nenhum valor foi fornecido para um ou mais parametros necessarios" o codigo onde esta dando tal erro segue abaixo:

    Public Class frmClientes Private bsClientes As New BindingSource() Dim dtClientes As New DataTable Dim dsClientes As New DataSet Dim daClientes As New OleDb.OleDbDataAdapter Dim WithEvents otxtUF, oMskCNPJ_CPF As Binding Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) If (m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32() = SC_MOVE) OrElse (m.Msg = WM_NCLBUTTONDOWN AndAlso m.WParam.ToInt32() = HTCAPTION) Then Return Else MyBase.WndProc(m) End If End Sub Private Sub frmClientes_Load(sender As Object, e As EventArgs) Handles MyBase.Load BindingNavigatorSearchItem.Image = My.Resources.search1 dgvRegistros.AutoGenerateColumns = False dgvRegistros.DataSource = bsClientes Carrega_Dados() End Sub Private Sub BindingNavigatorExit_Click(sender As Object, e As EventArgs) Handles BindingNavigatorExit.Click Me.Dispose() Me.Close() End Sub Private Sub frmClientes_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing If gCN.State = ConnectionState.Open Then gCN.Close() Me.Dispose() End Sub Private Sub Carrega_Dados() Try dsClientes.Locale = System.Globalization.CultureInfo.InvariantCulture If gCN.State = ConnectionState.Open Then gCN.Close() gCN.Open() gMensagem = "Adicionar dados da tabela Clientes para o DataSet." gSQL = "Select * From tbcliente Order by RazaoSocial asc" daClientes = New OleDb.OleDbDataAdapter(gSQL, gCN) daClientes.TableMappings.Add("Table", "tbCliente") daClientes.Fill(dsClientes, "tbCliente") gMensagem = "Vincular o conector de dados mestre para a tabela Clientes." bsClientes.DataMember = "tbCliente" bsClientes.DataSource = dsClientes gMensagem = "Conectar Navegador aos Dados" bnClientes.BindingSource = bsClientes Call Carregar_Controles() Exit Sub Catch ex As Exception MsgBox(ex.Message & vbNewLine & gMensagem, MsgBoxStyle.Critical, "ERRO: Carregando Tabela") End Try End Sub Private Sub Carregar_Controles() Try gMensagem = "Formatando Campos " otxtUF = New Binding("Text", bsClientes, "Estado") oMskCNPJ_CPF = New Binding("Text", bsClientes, "CNPJ_CPF") gMensagem = "Carregando Campos do Form" txtNomeRazaoSocial.DataBindings.Add("Text", bsClientes, "RazaoSocial") txtCodNome.DataBindings.Add("Text", bsClientes, "CodiNome") txtEndereco.DataBindings.Add("Text", bsClientes, "Endereco") txtNumero.DataBindings.Add("Text", bsClientes, "Numero") txtComplemento.DataBindings.Add("Text", bsClientes, "Complemento") txtBairro.DataBindings.Add("Text", bsClientes, "Bairro") txtCidade.DataBindings.Add("Text", bsClientes, "Cidade") txtEstado.DataBindings.Add(otxtUF) mskCEP.DataBindings.Add("Text", bsClientes, "CEP") mskCNPJ_CPF.DataBindings.Add(oMskCNPJ_CPF) txtLocalEntrega.DataBindings.Add("Text", bsClientes, "LocalEntrega") txtPrazoPgto.DataBindings.Add("Text", bsClientes, "PrazoPgto") txtAosCuidados.DataBindings.Add("Text", bsClientes, "AosCuidados") txtNomeContato.DataBindings.Add("Text", bsClientes, "Contato") mskFone1.DataBindings.Add("Text", bsClientes, "Telefone1") mskCelular1.DataBindings.Add("Text", bsClientes, "Telefone2") mskFone2.DataBindings.Add("Text", bsClientes, "Telefone3") mskCelular2.DataBindings.Add("Text", bsClientes, "Telefone4") txtPaginaWEB.DataBindings.Add("Text", bsClientes, "Site") txtE_Mail.DataBindings.Add("Text", bsClientes, "E-Mail") txtObservacoes.DataBindings.Add("Text", bsClientes, "Observacoes") Exit Sub Catch ex As Exception MsgBox(ex.Message & vbNewLine & gMensagem, MsgBoxStyle.Critical, "Erro: Carregando Controles") End Try End Sub Private Sub otxtUF_Format(ByVal sender As Object, ByVal e As System.Windows.Forms.ConvertEventArgs) Handles otxtUF.Format If IsDBNull(e.Value) Then e.Value = txtEstado.Text End If End Sub Private Sub omskCNPJ_CPF_Format(sender As Object, e As ConvertEventArgs) Handles oMskCNPJ_CPF.Format If Not IsDBNull(e.Value) AndAlso IsNumeric(e.Value) Then If Len(e.Value) = 14 Then mskCNPJ_CPF.Mask = "00,000,000/0000-00" ElseIf Len(e.Value) = 11 Then mskCNPJ_CPF.Mask = "000,000,000-00" End If End If End Sub Private Sub txtEstado_LostFocus(sender As Object, e As EventArgs) Handles txtEstado.LostFocus Dim lEstados As String If txtEstado.Text > "" Then lEstados = "AC-AL-AM-AP-BA-CE-DF-ES-GO-MA-MG-MS-MT-PA-PB-PE-" lEstados = lEstados & "PI-PR-RJ-RN-RO-RR-RS-SC-SE-SP-TO" If InStr(1, lEstados, txtEstado.Text, Microsoft.VisualBasic.CompareMethod.Binary) = 0 Then MsgBox("Estado inválido", vbCritical, UCase(txtEstado.Text)) txtEstado.Clear() txtEstado.Focus() Exit Sub End If Else MsgBox("Campo com preenchimento Obrigatório!", vbInformation, "ATENÇÃO") txtEstado.Clear() txtEstado.Focus() Exit Sub End If End Sub Private Sub BindingNavigatorSearchItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorSearchItem.Click If BindingNavigatorSearchText.Text <> "" Then If BindingNavigatorSearchItem.Text = "ButtomSearch" Then BindingNavigatorSearchItem.Text = "ButtomClear" BindingNavigatorSearchItem.Image = My.Resources.no bsClientes.Filter = "RazaoSocial Like '%" & BindingNavigatorSearchText.Text & "%'" ElseIf BindingNavigatorSearchItem.Text = "ButtomClear" Then BindingNavigatorSearchItem.Text = "ButtomSearch" BindingNavigatorSearchItem.Image = My.Resources.search1 bsClientes.RemoveFilter() BindingNavigatorSearchText.Clear() BindingNavigatorSearchText.Focus() End If Exit Sub Else MsgBox("Não há nada para buscar!", MsgBoxStyle.Question, "Buscar Registro") BindingNavigatorSearchText.Clear() BindingNavigatorSearchText.Focus() Exit Sub End If End Sub Private Sub BindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorSaveItem.Click Try If txtNomeRazaoSocial.Text.Trim = String.Empty Then MsgBox("Nome/Razão Social: Campo com preenchmento obrigatório", MsgBoxStyle.Information, "ATENÇÃO") txtNomeRazaoSocial.Focus() Exit Sub End If 'If txtEndereco.Text.Trim = String.Empty Then ' MsgBox("Endereço: Campo com preenchmento obrigatório", MsgBoxStyle.Information, "ATENÇÃO") ' txtEndereco.Focus() ' Exit Sub 'End If 'If txtBairro.Text.Trim = String.Empty Then ' MsgBox("Bairro: Campo com preenchmento obrigatório", MsgBoxStyle.Information, "ATENÇÃO") ' txtBairro.Focus() ' Exit Sub 'End If 'If txtCidade.Text.Trim = String.Empty Then ' MsgBox("Cidade: Campo com preenchmento obrigatório", MsgBoxStyle.Information, "ATENÇÃO") ' txtCidade.Focus() ' Exit Sub 'End If 'If mskCNPJ_CPF.Text.Trim = String.Empty Then ' MsgBox("CNPJ/CPF: Campo com preenchmento obrigatório", MsgBoxStyle.Information, "ATENÇÃO") ' mskCNPJ_CPF.Focus() ' Exit Sub 'End If gMensagem = "Adicionando na Tabela Clientes" Validate() bsClientes.EndEdit() Dim cm As OleDbCommandBuilder = New OleDbCommandBuilder(daClientes) daClientes.Update(dsClientes.Tables("tbCliente")) dsClientes.AcceptChanges()

    MsgBox("Registro Adicionado/Alterado com sucesso!", MsgBoxStyle.Exclamation, "AVISO") Exit Sub Catch ex As Exception MsgBox(ex.Message & vbNewLine & gMensagem, MsgBoxStyle.Critical, "Erro: Gravando Registro") End Try

    O erro esta dando na hora de gravar o registro ou seja na parte em negrito e sublinhada!

    A quem realmente puder ajudar-me fico grato!



    Dilson J. Hasselmann Desenvolvedor VB.NET

    sábado, 28 de maio de 2016 13:56