Imports System.Data
Imports System.Data.OleDb
Partial Class SL
    Inherits System.Web.UI.Page


    Protected Sub btnReg_Click(sender As Object, e As EventArgs) Handles btnReg.Click
        'Label1.Text = TextBox1.Text & "/" & TextBox2.Text

        Dim tk_provider = "Provider=Microsoft.ACE.OLEDB.12.0"
        '資料庫所在的路徑
        Dim tk_database = "Data Source=" & Server.MapPath("ShopDB.accdb")
        Dim tk_conn As New OleDbConnection(tk_provider & ";" & tk_database)
        Dim tk_sql As String
        Dim tk_datareader As OleDbDataReader
        tk_sql = "SELECT 密碼 FROM(會員資料表) WHERE((帳號 = '" & TextBox1.Text & "'))"
        tk_conn.Open()

        Dim tk_cmd As New OleDbCommand(tk_sql, tk_conn)
        tk_datareader = tk_cmd.ExecuteReader()
        Label1.Text = ""
        If tk_datareader.Read() = True Then
            Label1.Text = "帳號已存在!"
        Else
            tk_datareader.Close()

            tk_sql = "Insert Into 會員資料表 (帳號,密碼) Values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
            tk_cmd = New OleDbCommand(tk_sql, tk_conn)

            tk_cmd.ExecuteNonQuery()
            If Err.Number = 0 Then
                Label1.Text = "新增成功！"
            Else
                Label1.Text = Err.Description
            End If
        End If

        tk_conn.Close()

    End Sub

   
End Class