学历信息.vb

人事管理系统

Imports Microsoft.VisualBasic
Imports System
Imports System.Reflection
Imports System.Data
Imports System.Data.OleDb
Imports System.Web
Namespace xuelixinxi

    Public Class xueli
        Private filepath As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & HttpContext.Current.Server.MapPath("~/App_Data/db1.mdb")
        Public Function selected(ByVal yno As String) As DataView
            Dim ds As New DataSet()
            Dim cn As New OleDbConnection(filepath)
            cn.Open()
            Dim cmd As New OleDbDataAdapter("select * from 员工学历信息表 where 员工号='" & yno & "'", cn)
            cmd.Fill(ds, "员工学历信息表")
            Return ds.Tables("员工学历信息表").DefaultView

            cn.Close()

        End Function
        Public Function deleted(ByVal yno As String) As Boolean

            Dim cn As New OleDbConnection(filepath)
            cn.Open()

            Dim cmd As New OleDbCommand("delete from 员工学历信息表 where 员工号='" & yno & "'", cn)
            If cmd.ExecuteNonQuery() = 1 Then
                cn.Close()

                Return True
            Else
                cn.Close()
                Return False
            End If


        End Function
        Public Function inserted(ByVal yno As String, ByVal xl As String, ByVal zy As String, ByVal sj As String, ByVal bx As String, ByVal yz As String) As Boolean

            Dim cn As New OleDbConnection(filepath)
            cn.Open()
            Dim cmd As New OleDbCommand("insert into 员工学历信息表 values('" & yno & "','" & xl & "','" & zy & "','" & sj & "','" & bx & "','" & yz & "')", cn)
            If cmd.ExecuteNonQuery() = 1 Then
                cn.Close()
                Return True
            Else
                cn.Close()
                Return False
            End If
        End Function
        'Public Function update(ByVal yno As String, ByVal xl As String, ByVal zy As String, ByVal sj As String, ByVal bx As String, ByVal yz As String) As Boolean
        '    Dim ds As New DataSet()
        '    Dim cn As New OleDbConnection(filepath)
        '    cn.Open()
        '    Dim ada As New OleDbDataAdapter("select * from 员工学历信息表 where 员工号='" & yno & "'", cn)
        '    ada.Fill(ds, "员工学历信息表")
        '    ada.UpdateCommand = New OleDbCommand("update 员工学历信息表 set 学历='" & xl & "',专业='" & zy & "',毕业时间='" & sj & "',语种='" & yz & "'where 员工号='" & yno & "' ", cn)
        '    ada.Update(ds, "员工学历信息表")
        '    cn.Close()


        'End Function
        Public Function update(ByVal yno As String, ByVal xl As String, ByVal zy As String, ByVal sj As String, ByVal bx As String, ByVal yz As String) As Boolean
            Dim ds As New DataSet()
            Dim cn As OleDbConnection = New OleDbConnection(filepath)
            cn.Open()
            Dim cmmd As OleDbCommand = New OleDbCommand("update 员工学历信息表 set 学历='" & xl & "',专业='" & zy & "',毕业时间='" & sj & "',语种='" & yz & "'where 员工号='" & yno & "' ", cn)
            If cmmd.ExecuteNonQuery() = 1 Then
                cn.Close()
                Return True
            Else
                cn.Close()

                Return False
            End If


        End Function

    End Class
End Namespace