Vb.net UI

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!