vb.net BL

Imports System.Data
Imports System.Data.SqlClient

Imports Gates.DA

Namespace BL

    Public Class Common

        Dim _DBTrans As DBTransaction

        Public Sub New(ByVal connectionString As String)
            _DBTrans = New DBTransaction(connectionString)
        End Sub

        Public Function QueryByPN(ByVal PN As String) As DataSet

            Dim reDS As New DataSet
            Dim strSQL As String

            Try

                strSQL = " select * from apps.releasedJob where" & _
                        " partnumber='" & PN & "'"

                reDS = _DBTrans.SQLToDataset("Job", strSQL)
                Return reDS

            Catch ex As Exception
                Throw ex
            End Try

        End Function

    End Class
End Namespace

 

Namespace BL
    Public Class clxMain
        Public Const CONNECTIONSTRING As String = "Data Source=LDBYYQ3R1\MYSQLTEST;  Initial Catalog=MES_TRANS_MCD; User ID=sa; PassWord=admin; Persist Security Info=False;"

    End Class
End Namespace