moduleclass.vb

来自「固定资产管理信息系统,虽然还有些不足,但基本功能已实现!希望大家多多改进!」· VB 代码 · 共 45 行

Imports System.Data
Imports System.Data.sqlClient

Module ModuleClass

    Public ClassDataSet As DataSet = New DataSet
    Dim CustDataAdapter As New SqlDataAdapter
    Dim conn As New SqlConnection
    'Dim StrData As String
    Public classTable As DataTable
    Public ClassRow As DataRow

    Dim StrSql As String

    Public ObjForm1 As New Form1

    Public Sub AssentClass()
        ' StrData = "User ID=sa;Password=;Trusted_Connection=yes;Initial Catalog=assent;data source=localhost"

        conn = New SqlConnection(StrData)

        StrSql = "select * from T_ASSET_TYPE"

        Dim myCommand As SqlCommand = New SqlCommand(StrSql, conn)

        conn.Open()

        CustDataAdapter.SelectCommand = myCommand



        CustDataAdapter.Fill(ClassDataSet, "T_ASSET_TYPE")

        For Each ClassRow In ClassDataSet.Tables("T_ASSET_TYPE").Rows
            ' ObjResch.ComboBox2.Items.Add(ClassRow("TYPE_CODE"))
        Next

        conn.Close()
        classTable = ClassDataSet.Tables("T_ASSET_TYPE")
        classTable = ClassDataSet.Tables(0)

    End Sub

End Module