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