電腦心得及科學隨筆

以 ACCESS 資料庫管理帳號及密碼後，建立新使用者也是必備的功能。

在VS2005中建立網站（AccessCreateUser），建立新使用者通常可以不經登入就執行（範例中也附上登入網頁，如果管理者才具備此功能時可使用）：建立 create.aspx 網頁做為建立新使用者的網頁，拖曳 CreateUserWizard 控制項到設計視窗中，並在下方拖曳一個 Label 控制項做為顯示錯誤訊息之用。

在 create.aspx.vb 中輸入下列程式碼：

    Protected Sub CreateUserWizard1_CreatingUser(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.LoginCancelEventArgs)

        ' 檢查帳號是否已存在

        Dim ads As New AccessDataSource("~/app_data/db1.mdb", "")

        Dim SqlStr As String = "select * from table1 where name='" & CreateUserWizard1.UserName & "'"  '

        ads.SelectCommand = SqlStr

        Dim dv As Data.DataView

        dv = ads.Select(New DataSourceSelectArguments)

        ' 如果已存在就顯示警告訊息

        If dv.Count <> 0 Then

            Label1.Text = "帳號已存在!"

        Else

            '不存在就寫入資料庫

            Dim a As String = CreateUserWizard1.Password.ToString

            SqlStr = "insert into [table1] ([name],[passwd]) VALUES('" & CreateUserWizard1.UserName & "','" & a & "')"

            ads.InsertCommand = SqlStr

            ads.Insert()

            Response.Redirect("main.aspx")

        End If

    End Sub

執行 create.aspx，帳號填入「yyy」，密碼設為「1234」，其餘隨意填入,最後按「建立使用者」鈕。

開啟 Access 資料庫查看 table1，可以見到新帳號已建立。

此範例只在資料庫中寫入帳號及密碼，如果其他資料也要寫入，僅需在資料表中新增記錄欄位即可。