module1.vb

来自「是一套开发的VB的学生成绩管理系统,希望有需要的人去参考」· VB 代码 · 共 35 行

Imports System.Data.SqlClient
Module Module1
    Public sqlcon As New SqlConnection("server=(local);database=jwgl;" & "User id=sa;password=;")
    Public sqladapter As SqlDataAdapter
    Public ds As New DataSet
    Public mytable As DataTable
    Public myrow As DataRow
    Public rownumber As Integer
    Public searchsql As String
    Public sqlcmd 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
            sqladapter = New SqlDataAdapter(sql, sqlcon)
            ds.Clear()
            ds.Tables.Clear()
            sqlcon.Open()
            sqladapter.Fill(ds, table)
            mytable = ds.Tables.Item(0)
            rownumber = 0
            myrow = mytable.Rows.Item(rownumber)
            sqlcon.Close()
        Catch
            MsgBox(Err.Description)
        End Try
    End Function
End Module