liuyan.vb

来自「人事管理系统」· VB 代码 · 共 57 行

Imports Microsoft.VisualBasic
Imports system
Imports System.Data
Imports System.Data.OleDb
Imports System.Web
Imports lianjie1
Namespace chakan
    Public Class liuyan
        Dim cn As lianjie = New lianjie()
        Dim filepath As String = cn.lianjie
        Public Function add(ByVal nm As String, ByVal nr As String, ByVal tx As String) As Boolean
            Dim ds As DataSet = New DataSet
            Dim myconnection As OleDbConnection = New OleDbConnection(filepath)
            Dim mycommand As OleDbCommand = New OleDbCommand("insert into 留言板(昵称,内容,时间,头像) values('" & nm & "','" & nr & "',cstr(now()),'" & tx & "')", myconnection)
            myconnection.Open()
            If mycommand.ExecuteNonQuery() = 1 Then
                Return True
            Else
                Return False
            End If
            myconnection.Close()
        End Function
        Public Function sdata() As DataView
            Dim ds As DataSet = New DataSet
            Dim myconnection As OleDbConnection = New OleDbConnection(filepath)
            Dim mycommand As OleDbDataAdapter
            myconnection = New OleDbConnection(filepath)
            mycommand = New OleDbDataAdapter("select * from 留言板", myconnection)
            mycommand.Fill(ds, "留言板")
            Return ds.Tables("留言板").DefaultView
        End Function
        Public Function delete(ByVal yno As Integer) As Boolean
            Dim myconnection As OleDbConnection = New OleDbConnection(filepath)
            myconnection.Open()
            Dim cmd As OleDbCommand = New OleDbCommand("delete from 留言板 where 编号=" & yno & "", myconnection)
            If cmd.ExecuteNonQuery() = 1 Then
                myconnection.Close()
                Return True
            Else
                myconnection.Close()
                Return False
            End If
        End Function

        'Public Function deleteall() As DataView
        '    Dim cn As OleDbConnection = New OleDbConnection(filepath)
        '    cn.Open()
        '    Dim ds As DataSet = New DataSet
        '    Dim myconnection As OleDbConnection = New OleDbConnection(filepath)
        '    myconnection = New OleDbConnection(filepath)
        '    Dim mycommand As OleDbDataAdapter = New OleDbDataAdapter("delete from 留言板 where 编号>30 ", myconnection)
        '    mycommand.Fill(ds, "留言板")
        '    Return ds.Tables("留言板").DefaultView
        'End Function
    End Class
End Namespace