module1.vb

奖学金评定系统

Imports System.Data.SqlClient
'引入ADO.NET操作命名空间
Module Module1
    Public ADOcmd As SqlDataAdapter
    Public ds As DataSet = New DataSet
    '建立DataSet对象 
    Public mytable As DataTable
    '建立表单对象
    Public myrow As DataRow
    '建立数据行对象
    Public rownumber As Integer
    '定义一个整型变量来存放当前行数
    Public SearchSQL As String
    Public cmd As SqlCommandBuilder

    Public Function Testtxt(ByVal txt As String) As Boolean
        '判断字符串是否为空
        If Trim(txt) = "" Then
            Testtxt = False
        Else
            Testtxt = True
        End If
    End Function

    Public Function ExecuteSQL(ByVal SQL As String, ByVal table As String)
        Try
            '建立ADODataSetCommand对象
            '数据库查询函数
            Dim constr As String
            constr = "data source=localhost;database=xueji;Integrated security=true"
            'constr = constr & Application.StartupPath() & "\student.mdb"
            ADOcmd = New SqlDataAdapter(SQL, constr)
            '建立ADODataSetCommand对象

            ds.Clear()
            ds.Tables.Clear() '清除数据集中的所有表

            ADOcmd.Fill(ds, table) '取得表单

            mytable = ds.Tables.Item(0) '取得名为table的表
            rownumber = 0 '设置为第一行
            myrow = mytable.Rows.Item(rownumber)
            '取得第一行数据
        Catch
            MsgBox(Err.Description)
        End Try
    End Function


End Module