none
[Ajuda] Sistema de cadastro com access RRS feed

  • Pergunta

  • Boa noite,

    Tenho um projeto onde quero fazer o cadastro de um usuário e salvar no banco de dados access,porem na hora de aperta o botão da o seguinte erro:

    Propriedade Connection não foi inicializada

    Codigo:

     Private Sub PSalva()
            Using con As OleDbConnection = GetConnection()
                Try
                    con.Open()
                    Dim sql As String = "INSERT  INTO tabusuarios HERE usuario=?,senha=?,perfil=? "
                    Dim cmd As OleDbCommand = New OleDbCommand("sql, con")
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@usuario", txtusuario.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@senha", txtsenha.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@perfil", cmdPerfil.Text))
                    cmd.ExecuteNonQuery()
                Catch ex As Exception
                    MsgBox("Ocorreu um erro ao cadastrar o usuario.Erro" & ex.Message, MsgBoxStyle.Information, "Cadastro")
                Finally
                    con.Close()
                End Try
            End Using
        End Sub

    sexta-feira, 2 de março de 2018 00:30

Respostas

  • Tenta isso:

      Dim sql As String = "INSERT INTO tabusuarios (usuario, senha) VALUES (?,?)"
                    Dim cmd As OledbCommand = New OledbCommand(sql, con)
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@usuario", txtusuario.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@senha", txtsenha.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@perfil", cmdPerfil.Text))
                    cmd.ExecuteNonQuery()
                

    • Marcado como Resposta iBueninho sexta-feira, 2 de março de 2018 04:14
    sexta-feira, 2 de março de 2018 01:47

Todas as Respostas

  • Boa noite.

    Qual o código aqui?

    GetConnection()


    MARIANO1776

    sexta-feira, 2 de março de 2018 01:36
  • Tenta isso:

      Dim sql As String = "INSERT INTO tabusuarios (usuario, senha) VALUES (?,?)"
                    Dim cmd As OledbCommand = New OledbCommand(sql, con)
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@usuario", txtusuario.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@senha", txtsenha.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@perfil", cmdPerfil.Text))
                    cmd.ExecuteNonQuery()
                

    • Marcado como Resposta iBueninho sexta-feira, 2 de março de 2018 04:14
    sexta-feira, 2 de março de 2018 01:47
  • obg funcionou.
    sexta-feira, 2 de março de 2018 04:13