Si, lo siento, estoy programando en vb.net, es una página web y estoy usando el createuserwizard, mi código completo 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;integrated security=true"
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