TYPE SQLCONNECTION IS NOT DEFINED

MADMAX 07/11/2013 10:27:16
#430834
CKRALLS e não da erro nenhum ???

Cara tem certeza que olhou na tabela Usuarios ???

Você usou que programa para ver no banco de dados ??? foi o SQL Server Management Studio? Conectou a base correta

Na variavel reg retornou 1 apos a execução do insert ???

Usa este codigo inclui um teste para ver se gravou mesmo ou não

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.CommandType = CommandType.Text
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.[Ô])

[ô]ISSO AQUI VOCE TIRA DEPOIS QUE TESTAR

Dim dt As New System.Data.DataTable
Dim adapter As New SqlDataAdapter()
adapter.SelectCommand = New SqlCommand([Ô]select * from Usuarios where nomeUsuario = [ô][Ô] & txtUsuario.Text & [Ô][ô][Ô], connection)
adapter.Fill(dt)
If dt.Rows.Count > 0 Then
MessageBox.Show([Ô]Gravado e Lido:[Ô] & dt.Rows(0)([Ô]nomeUsuario[Ô]).ToString & [Ô] - [Ô] & dt.Rows(0)([Ô]senhaID[Ô]).ToString)
Else
MessageBox.Show([Ô]Não Achei[Ô])
End If
[ô]##############################################

Catch ex As Exception
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



CKRALLS 07/11/2013 11:02:54
#430836
hein ???
MADMAX 07/11/2013 13:33:40
#430846
CKRALLS

Te fiz umas perguntas ... e postei um codigo para você testar , esse codigo chama um messagebox caso com o resultado do insert ... informando se deu certo ou não ... testa e me fala o que esta retornando.
CKRALLS 07/11/2013 17:03:43
#430862
Não estou conseguindo testar, pois la em project eu defini que o sistema começaria pela forulario de login, e não acesso. Mesmo alterando para o formulari de acesso, salvando, saindo so sistema, e entrando de nov, mesmo assim ele continua começando o sistema pelo formulario de login, e não pelo form. de acesso, que e onde eu preciso fazer o teste, pois é o formulario onde realizo o cadastro.
MADMAX 07/11/2013 17:31:59
#430864
Po CKRALLS você é o programador , [Ô]QUEM MANDA ALI E VOCÊ[Ô] kkkkkkkk

Cria um atalho no codigo quando um usuario for XX você loga direto sem precisar de senha ... depois você tira fora .

CKRALLS 07/11/2013 18:03:30
#430867
Como faço isso ?
MADMAX 08/11/2013 09:00:52
#430881
CKRALLS não tem como eu saber . O codigo e seu ..rsrs .. você criou o form de login e por lá
CKRALLS 08/11/2013 09:08:36
#430884
O problema MadMax é que o sistema só inicia pelo formulario de login, eu ja alterei para assim que o sistema inicia ser inciado pelo formulario acesso. Mas ele não ta indo, não alterou, continua iniciando pelo form login.
MADMAX 08/11/2013 09:18:32
#430886
CKRALLS , tem algo errado que você fez o esta fazendo . Não tenho o que fazer ... Manda o codigo aqui pata eu ver
CKRALLS 08/11/2013 10:00:28
#430890
codigo formulario login :

 Imports System.Data.SqlClient

Public Class Login

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click


        Dim conn As New SqlConnection
        Dim comando As New SqlCommand
        Dim senhaID As String

        conn.ConnectionString = My.Settings.LocadoraConnectionString
        Try
            conn.Open()

            comando.Connection = conn
            comando.CommandText = [Ô]SELECT senhaID FROM Usuarios Where nomeUsuario=@nomeUsuario[Ô]
            comando.Parameters.AddWithValue([Ô]@nomeUsuario[Ô], UsernameTextBox.Text)
            senhaID = comando.ExecuteScalar

            conn.Close()

            If chkLembraUsuario.Checked Then
                My.Settings.Usuario = UsernameTextBox.Text
                My.Settings.Save()
            Else
                My.Settings.Usuario = [Ô][Ô]

            End If


            If util.GeraHash(PasswordTextBox.Text).Equals(senhaID) Then
                My.Forms.Principal.Show()
                Me.Hide()
            Else

                MessageBox.Show([Ô]Senha/Usuário Incorreto(s)[Ô], [Ô]Senha incorreta[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
                PasswordTextBox.Focus()

            End If
        Catch ex As SqlException
            MessageBox.Show([Ô]Erro ao efetuar a conexão com a base de dados : [Ô] + ex.Message)
            conn.Dispose()
        End Try

    End Sub

   
End Class
Página 2 de 3 [26 registro(s)]
Faça seu login para responder
Voltar