Error de inicio de sesion del usuario ". Estoy creando en mi web un inicio de sesion usando los controles createuserwizard y Login, pero cuando en la parte de registro quiero crear un usuario me aparece el error: error de inicio de sesion del usuario ".
El código VB que tengo es el siguiente:
Código:
Imports System.Data
Imports System.Data.SqlClient
Partial Class Registro
Inherits System.Web.UI.Page
Dim Usuario, Contraseña As String
Public Function crear(ByVal username As String, ByVal password As String) As Boolean
Dim Cadena As String = "Data Source=Ley-PC\LEYDA;Initial Catalog=usuarios;"
Dim dbConnection As SqlConnection
Dim Adaptador As SqlDataAdapter
Dim dt As New DataTable
Dim DataSet As New DataSet
Dim SQL As String
Dim res As Boolean
Try
SQL = "INSERT INTO usuarios VALUES='" & username & "''" & password & "'"
dbConnection = New SqlConnection(Cadena)
Adaptador = New SqlDataAdapter(SQL, dbConnection)
DataSet.Clear()
Adaptador.Fill(DataSet, "usuarios")
Catch ex As Exception
MsgBox("ERROR: " & ex.Message)
End Try
Return res
End Function
Protected Sub CreateUserWizard1_CreatingUser(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.LoginCancelEventArgs) Handles CreateUserWizard1.CreatingUser
Dim resultado As Boolean
Usuario = CreateUserWizard1.UserName.ToString
Contraseña = CreateUserWizard1.Password.ToString
resultado = crear(Usuario, Contraseña)
If resultado = True Then
MsgBox("Usuario Registrado", MsgBoxStyle.OkOnly, "Información")
End If
End Sub
End Class
suario;pwd=tu_contraseña"
