database.vb

来自「网络版教务管理系统.rar」· VB 代码 · 共 47 行

Imports System
Imports System.Data
Imports System.Drawing
Imports System.Data.OleDb

Module DataBase
    Public ConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; "
    Public ConnectStr As String = ConnStr & "Data Source=C:\student.mdb"
    Public DataAdapter As OleDbDataAdapter
    Public DataConnection As OleDbConnection
    Public DataSet As DataSet
    Public Indexs As Integer
    Public pepdom As Integer
    Public No As String

    Public Function GetDataFromDB(ByVal sqlstr As String) As DataSet
        Try
            DataConnection = New OleDbConnection()
            DataConnection.ConnectionString = ConnectStr
            DataAdapter = New OleDbDataAdapter(sqlstr, DataConnection)
            DataSet = New DataSet()
            DataSet.Clear()
            DataAdapter.Fill(DataSet)
            DataConnection.Close()
            If Not DataSet Is Nothing Then
                Return DataSet
            End If
        Catch
            Return Nothing
        End Try
    End Function

    Public Function UpdateDataBase(ByVal sqlstr As String) As Boolean
        Dim sqlconn As New OleDbConnection(ConnectStr)
        Try
            Dim cmdTable As OleDbCommand = New OleDbCommand(sqlstr, sqlconn)
            cmdTable.CommandType = CommandType.Text
            sqlconn.Open()
            cmdTable.ExecuteNonQuery()
            sqlconn.Close()
        Catch
            Return False
        End Try
        Return True
    End Function
End Module