TYPE SQLCONNECTION IS NOT DEFINED
Amigos, estou desenvolvendo um sistema de locadora no vb 2008 Express. No meu formulario de Acesso (Cadastro de Usuarios) aparece esse erro na linha em negrito.
Como resolver ?? Outro problema também. Quando cadastro um usuario ele me confirma com a mensagem na tela que o usuario foi registrado, porem quando visualizo em Show table data, não tem nada cadastrado.
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 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 Como resolver ?? Outro problema também. Quando cadastro um usuario ele me confirma com a mensagem na tela que o usuario foi registrado, porem quando visualizo em Show table data, não tem nada cadastrado.
Alguem ???? Me ajuda
Vamos lá pessoal, eu sei que vocês conseguem ...
CKRALLS não vi linha grifada daqui não e nem a messagem de erro que ocorre
Saquei a messagem no titulo .. ta faltando o tipo de query
coloca antes de executar
comando.CommandType = CommandType.Text
coloca antes de executar
comando.CommandType = CommandType.Text
Onde coloco essa linha ?
Esta ai com a alteraçã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.[Ô])
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
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.[Ô])
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
Fiz a inclusão da linha de comando conforme acima, porem o erro persiste.
O erro sdo titulo aparece por culpa das linhas:
Em especial por culpa do SqlConnection...
O erro sdo titulo aparece por culpa das linhas:
Dim conn As New SqlConnection
Dim comando As New SqlCommand Em especial por culpa do SqlConnection...
CKRALLS
La no começo antes de [Ô]Public Class Acesso[Ô] você declarou os imports das classes ???
Imports System.Data
Imports System.Data.SqlClient
La no começo antes de [Ô]Public Class Acesso[Ô] você declarou os imports das classes ???
Imports System.Data
Imports System.Data.SqlClient
Ok MadMax, esta questão foi sanada. E quanto ao fato de eu realziar um novo cadastro de usuario, me retornar a caixinha de texto confirmando que o usuario foi cadastrado. Eu ir na tabela > Data > Show table data e não encontrar o usuario que ele disse que foi cadastrado ?
Ou estou vendo o cadastro no lugar errado, ou o codigo acima esta errado e não esta realizando o cadastro no banco. O que fazer ???
Faça seu login para responder