Imports System.Data
Imports System.Data.sqlClient
Imports Gates.DA
Imports Gates.BL
Public Class ctrQuerybyPN
Dim _DBTrans As DBTransaction
Dim _BL As Gates.BL.Common
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Dim connec As String = Gates.BL.clxMain.CONNECTIONSTRING
Dim reDS As New DataSet
'_DBTrans = New DBTransaction(connec)
_BL = New Common(connec)
reDS = _BL.QueryByPN(TextBox1.Text)
DataGridView1.DataSource = reDS.Tables(0)
DataGridView1.Enabled = True
End Sub End Class