vb Ajuda com meu codigo

[Wallace Salvador Ferreira Da Silva]

Boa noite a todos.

 

Estou tendo problemas para salvar em meu bando de dados acess as informações de cadastro de novos usuários.

o que acontece é que quando clico em salvar, ele não salva as informações na tabela e também não executa o restante dos comandos para fechar a form de cadastro e voltar a form

de inicio....

se puderem me dar uma ajuda... segue a baixo o código...

agradeço desde já pela ajuda de todos...

 

os objetos estão sendo importados form de login

 

Imports System.Data.OleDb
Public Class frnovousuario
    Private ds As Object
    Private dt As Object
    Private conexao As Object
    Private da As Object
    Private Sub Btn_limpar_Click(sender As Object, e As EventArgs) Handles Btn_limpar.Click
        Txt_nomeusuario.Text = ""
        Txt_senhausuario.Text = ""
        Cmb_classeusuario.Text = ""

    End Sub

    Private Sub Btn_cancelar_Click(sender As Object, e As EventArgs) Handles Btn_cancelar.Click
        Me.Hide()
        frinicio.Show()
    End Sub

    Private Sub Btn_salvar_Click(sender As Object, e As EventArgs) Handles Btn_salvar.Click
        If Txt_nomeusuario.Text = "" Then
            MsgBox("Informe o Nome de Usúario", vbInformation) : Txt_nomeusuario.Focus()
        ElseIf Txt_senhausuario.Text = "" Then
            MsgBox("Informe a Senha de Usúario", vbCritical) : Txt_senhausuario.Focus()
        ElseIf Cmb_classeusuario.Text = "" Then
            MsgBox("Informe a Classe de Usúario", vbInformation) : Cmb_classeusuario.Focus()
        ElseIf Txt_nomeusuario.Text = Txt_confirmasaosenha.Text Then

            conexao.open()
            ds.Tables.Add(dt)
            da.Fill(dt)

            Dim novo As DataRow = dt.NewRow

            With novo
                .Item("Usuario") = Txt_nomeusuario.Text
                .Item("Senha") = Txt_senhausuario.Text
                .Item("Tipo") = Cmb_classeusuario.Text
            End With

            dt.rows.Add(novo)

            Dim cb As New OleDbCommandBuilder(da)
            da.Update(dt)
            conexao.close()

            MsgBox("Novo Usuária Criado Com Sucesso")
            Me.Close()
            frinicio.Show()
        End If
    End Sub
End Class

 

 

 

 

 

 

Editado Junho 8, 2017 por Wallace Salvador Ferreira Da Silva