Imports System.Data
Imports System.Data.OleDb

Partial Class ChatOnePage
    Inherits System.Web.UI.Page


    Protected Sub btnSendA_Click(sender As Object, e As EventArgs) Handles btnSendA.Click

        UpdateTextView()
    End Sub



    Sub UpdateTextView()
        Dim tk_provider = "Provider=Microsoft.ACE.OLEDB.12.0"
        '資料庫所在的路徑
        Dim tk_database = "Data Source=" & Server.MapPath("CHATDB.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 連線編號 = 'AB'"
        tk_conn.Open()

        Dim tk_cmd As New OleDbCommand(tk_sql, tk_conn)
        tk_datareader = tk_cmd.ExecuteReader()

        TB_ViewText.Text = ""
        While tk_datareader.Read() = True
            TB_ViewText.Text = TB_ViewText.Text & tk_datareader.Item(0).ToString() & ":" & tk_datareader.Item(1).ToString() & vbCrLf

        End While

        tk_datareader.Close()
        tk_conn.Close()
    End Sub

    Protected Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        Dim tk_provider = "Provider=Microsoft.ACE.OLEDB.12.0"
        Dim tk_database = "Data Source=" & Server.MapPath("CHATDB.accdb")
        Dim tk_conn As New OleDbConnection(tk_provider & ";" & tk_database)
        Dim tk_sql As String
        tk_conn.Open()
        tk_sql = "Delete From 交談內容 WHERE 連線編號 = 'AB'"
        Dim tk_cmd As New OleDbCommand(tk_sql, tk_conn)
        tk_cmd.ExecuteNonQuery()
        If Err.Number = 0 Then
            TB_InputB.Text = ""
        Else
            Response.Write(Err.Description)
        End If
        tk_conn.Close()
        TB_ViewText.Text = ""
    End Sub
End Class