|
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=LDBYYQ3R1MYSQLTEST; Initial Catalog=MES_TRANS_MCD; User ID=sa; PassWord=admin; Persist Security Info=False;"
End Class End Namespace （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
