Erro VB2008

mcaa · 4 de outubro de 2013

olá pessoal,

estou seguindo uma apostila para desenvolver um software para locadora, até aqui tem dado certo.

O problema é que, na tela de acesso, onde vou cadastrar os novos usuarios, quando clico em registrar me apresenta o seguinte erro:

Erro ao efetuar a conexão com a base de dados: Falha ao converter o nvarchar valor 'DwN1hMmef9T0+MWVUPj1Bw==' para o tipo de dados int.

estou usando vb2008 + sql

alguém tem ideia de como resolver ?

LBarcelosM · 4 de outubro de 2013

Bem intuitivo o erro, não?

Você esta tentando colocar o valor 'DwN1hMmef9T0+MWVUPj1Bw==' em uma coluna no banco de dados que é do tipo integer.

Veja onde você define os valores para salvar no banco de dados, em algum lugar tem alguma coisa errada rsrsrs

ATT,

LBarcelosM

mcaa · 4 de outubro de 2013

Olá LBarcelosM,

O codigo da classe do formulário é o seguinte :

Public Class Acesso

    Private Sub btnRegistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegistrar.Click

        Dim conn As New SqlConnection
        Dim comando As New SqlCommand
        Dim reg As Integer

        conn.ConnectionString = My.Settings.LocadoraConnectionString

        If txtUsuario.Text = "" Then
            MessageBox.Show("Informe um valor válido.")
            txtUsuario.Focus()
            Exit Sub
        End If
        If txtSenha.Text = "" Then
            MessageBox.Show("Informe um valor válido.")
            txtSenha.Focus()
            Exit Sub
        End If
        If Not txtSenha.Text.Equals(TxtSenha2.Text) Then
            MessageBox.Show("A senha não confere.")
            TxtSenha2.Focus()
            Exit Sub
        End If
        Try
            conn.Open()
            comando.Connection = conn
            comando.CommandText = "INSERT INTO Usuarios(nomeUsuario,senhaID)values(@Usuario,@senha)"
            comando.Parameters.AddWithValue("@Usuario", txtUsuario.Text)
            comando.Parameters.AddWithValue("@senha", util.GeraHash(txtSenha.Text))
            reg = comando.ExecuteNonQuery()
            MessageBox.Show(reg.ToString + " registro de Usuário incluido com sucesso.")
        Catch ex As SqlException
            MessageBox.Show("Erro ao efetuar a conexão com a base de dados : " + ex.Message)
        Finally
            conn.Close()
            conn.Dispose()
        End Try

    End Sub

End Class