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


    Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        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
       
        tk_conn.Open()

       
        Label1.Text = ""
       

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

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

        tk_conn.Close()
    End Sub
End Class