fun.vb

北京市公交车查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar] - 网上成绩查询系统 把学生姓名成绩输入数据库...[

Imports System.Data
Imports System.Data.SqlClient
Module Fun
    Public Function GetAppSetting(ByVal str) As String
        Return ConfigurationSettings.AppSettings(str)
    End Function
    Public Function GetConnStr() As String
        Return ConfigurationSettings.AppSettings("data")
    End Function
    Function Conn() As SqlConnection
        Dim conntemp As New SqlConnection(GetConnStr)
        conntemp.Open()
        Return conntemp
    End Function
    Function RunSql(ByVal sqlstr As String) As Int16
        Dim i As Int16
        Dim cmd As New SqlCommand
        cmd.CommandText = sqlstr
        cmd.Connection = Conn()
        i = cmd.ExecuteNonQuery()
        Return i
    End Function
    Function CheckStudent(ByVal StudentId As String) As Boolean
        Dim sql As String = "select * from marks where studentid='" & StudentId & "'"
        Dim rstemp = Rs(sql)
        If rstemp.read Then
            Return True
        End If
    End Function
    Function AddMark(ByVal studentId As String, ByVal sql As String) As String
        If CheckStudent(studentId) = False Then
            If RunSql(sql) > 0 Then
                Return "添加成功"
            Else
                Return "添加失败"
            End If
        Else
            Return "该学号已经存在,请确认!"
        End If
    End Function
    Function Rs(ByVal sqlstr As String) As SqlDataReader
        Dim rstemp As SqlDataReader
        Dim cmd As New SqlCommand
        cmd.CommandText = sqlstr
        cmd.Connection = Conn()
        rstemp = cmd.ExecuteReader
        Return rstemp
    End Function
    Sub binddata(ByVal obj As DataGrid, ByVal sql As String)
        Dim dr As New SqlDataAdapter(sql, Conn)
        Dim ds As New DataSet
        dr.Fill(ds, "news")
        obj.DataSource = ds.Tables(0).DefaultView
        obj.DataBind()
    End Sub
  
End Module