lei2.vb

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

Imports System.Data.SqlClient
Imports System.Data



Module Module2
    Public name1 As String
    Public name2 As String

    Public mySql, myConnStr As String
    Public myConnetion As New SqlConnection
    Public myDataAdapter As New SqlDataAdapter
    Public myCommand As New SqlCommand
    Public myDataSet As New DataSet
    Public myTable1 As New DataTable
    Public myTable2 As New DataTable
    Public myTable3 As New DataTable
    Public myRow As DataRow
    Public myColumn As New DataColumn

        '传递一个参数据做为SQL语句
        '且为数据连接的参数据赋值
        Public Sub returnmyConnStr(ByVal sql As String)
            myConnStr = "packet size=4096;integrated security=SSPI;data s" & _
            "ource=""(local)"";persist security info=False;initial catalog=ASSETSMANAGEDB"
            mySql = sql
        End Sub
        Public Function connstr() As String
        myConnStr = StrData
        ' myConnStr = "User ID=sa;Password=;Trusted_Connection=yes;Initial Catalog=assent;data source=THP520-2C30BE3C"
        Return myConnStr

        End Function

        '连接到数据库，且填到数据集,参数是将要填的表名
        Public Sub returnConnSet(ByVal strTable As String)
            myConnetion = New SqlConnection(myConnStr)
            myConnetion.Open()
            myCommand = New SqlCommand(mySql, myConnetion)
            'myCommand.ExecuteNonQuery()
            myDataAdapter.SelectCommand = myCommand
            myConnetion.Close()
            'myDataSet.Clear()
            myDataAdapter.Fill(myDataSet, strTable)
        End Sub
    End Module