Discuss "import excel file into asp_net membership" in the .Net Development forum.

imports System.Data
.
.
.
.
.
.
Dim excelconnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=full_path_to_filename\excelfile.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1;"""
Dim excelconn As New OleDb.OleDbConnection(excelconnString)
Dim excelcom As New OleDb.OleDbCommand("SELECT * FROM [Sheet1$]", excelconn)
Dim exceldtr As OleDB.OleDbDataReader
 
excelconn.Open
exceldtr = excelcom.ExecuteReader()
do while exceldtr.Read()
 
'save into membership table
 
loop
exceldtr.close

Imports System.Data.SqlClient
Imports System.Web.Configuration
Imports System.IO
Imports System.Text
Imports System.Web.mail
Imports System.IO.stream
Imports System.Data
Imports System.Data.OleDb
Imports System.Net.Mail
Imports System.Text.regularexpressions
Imports System
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.UserControl
Imports System.Web.UI.WebControls
Imports System.Web.Management
Imports System.Diagnostics.Process
Partial Class exceluserimport
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim doctxt As String = Right(FileUpload1.FileName, 3).ToString 'upload text file in upper and lower case "txt"
        Dim fileName As String = Server.MapPath("uploads/testexcelmembership.xls")
        If doctxt.ToLower = "xls" Or doctxt.ToLower = Nothing Or doctxt = "" Then
            If FileUpload1.HasFile And doctxt.ToLower = "xls" Then
                Try
                    File.Delete(Server.MapPath("uploads/testexcelmembership.xls"))
                    FileUpload1.SaveAs(Server.MapPath("uploads\" & ID + FileUpload1.FileName))
                Catch ex As Exception
                    Response.Write("file not uploaded" & ex.Message)
                End Try
            End If
        Else
            Label2.Visible = True
        End If

        Dim app As String = ""
        Dim pass As String = ""
        Dim email As String = ""
        Dim lowemail As String = ""
        Dim passwardformat As String = ""
        Dim isappr As String = ""
        Dim islock As String = ""
        Dim username As String = ""




        Dim excelConn As String = "Provider=Microsoft.Jet.OleDb.4.0;" _
                            & "data source=C:\Documents and Settings\peebman2000\My Documents\Visual Studio 2005\WebSites\testhelp3\uploads\testexcelmembership.xls;" _
                            & "Extended Properties=Excel 8.0;"
        'First DataGrid
        Dim excel_obj As New OleDbConnection(excelConn)
        Dim excelcom As New OleDb.OleDbCommand("Select ApplicationId,Password,Email,LoweredEmail,PasswordFormat,IsApproved,IsLockedOut, UserName From [Sheet1$]", excel_obj)
        'Dim strExcel As String = "Select ApplicationId,Password,Email,LoweredEmail,PasswordFormat,IsApproved,IsLockedOut From [Sheet1$]"
        Dim excel_dtr As OleDb.OleDbDataReader

        excel_obj.Open()
        excel_dtr = excelcom.ExecuteReader()
        Do While excel_dtr.Read()
            app = excel_dtr("ApplicationID")
            pass = excel_dtr("Password")
            email = excel_dtr("Email")
            'lowemail = excel_dtr("LoweredEmail")
            passwardformat = excel_dtr("PasswordFormat")
            isappr = excel_dtr("IsApproved")
            islock = excel_dtr("IsLockedOut")
            username = excel_dtr("UserName")



            Dim dataadapter As SqlDataAdapter
            Dim datacommand As SqlCommand

            dataadapter = New SqlDataAdapter
            datacommand = New SqlCommand

            datacommand.CommandText = ("aspnet_Membership_CreateUser")
            datacommand.Connection = New SqlConnection(ConfigurationManager.ConnectionStrings("dave").ToString)

            dataadapter = New SqlDataAdapter("aspnet_Membership_CreateUser", datacommand.Connection)

            datacommand.CommandType = Data.CommandType.StoredProcedure

            datacommand.Parameters.Add("@ApplicationName", SqlDbType.NVarChar, 256).Value = app

            datacommand.Parameters.Add("@Password", SqlDbType.NVarChar, 128).Value = pass

            datacommand.Parameters.Add("@Email", SqlDbType.NVarChar, 256).Value = email

            'datacommand.Parameters.Add("@LoweredEmail", SqlDbType.NVarChar, 256).Value = lowemail

            datacommand.Parameters.Add("@PasswordFormat", SqlDbType.Int).Value = CType(passwardformat, Int32)

            datacommand.Parameters.Add("@UserName", SqlDbType.NVarChar, 256).Value = username

          '

            datacommand.Connection.Open()
            Try
                datacommand.ExecuteNonQuery()
                Response.Write("inserted data")
                Response.End()
            Catch ex As Exception
                Response.Write(ex.Message.ToString() + "Problem")
                Response.End()
            End Try

            datacommand.Connection.Close()

        Loop

        excel_dtr.Close()
        excel_obj.Close()
        'Try
        '    Response.Write(app & pass & email & lowemail & passwardformat & isappr & islock)
        '    Response.End()

        'Catch ex As Exception
        '    Response.Write(ex.Message.ToString() + "error with code")
        '    Response.End()
        'End Try




        'lblSql1.Text = strExcel
        'Dim objCmd As New OleDbCommand(strExcel, excel_obj)
        'Try
        '    excel_obj.Open()
        '    GridView1.DataSource = objCmd.ExecuteReader()
        '    GridView1.DataBind()
        'Catch exc As Exception
        '    Response.Write(exc.ToString())
        'Finally
        '    excel_obj.Dispose()
        'End Try

    End Sub
End Class

  Dim newUser As MembershipUser = Membership.CreateUser(username, pass, email)
            'newUser.Comment = comment.Text
            Membership.UpdateUser(newUser)