聽說幸福…在山的那邊 (浪機子)

1.       使用app_code的注意==其放在WEB 的路徑要為iis的虛擬路徑

意思就是說，如果IIS定義的目錄為 c:\Inetpub\wwwroot 則就要在 這裡建立一個App_code 

c:\Inetpub\wwwroot\App_Code\vb 裡，vb那子目錄，可有可無，程式就要放在裡面才行。

2.        app_code => inquiry.vb

Imports Microsoft.VisualBasic   Imports system  Imports System.Data.SqlClient 

Imports System.IO  Imports System.Data  Imports System.Configuration 



Public Class InqueryData 

Inherits System.Web.UI.Page  

定義為 Shared則要注意，是否有資料要清除，否則vdt的資料會愈跑愈多(重覆記錄)

 'Shared vDT As DataTable = New DataTable() 

 

'定義 Public Shared Function才行 

Public Shared Function GetConn(ByVal strconnecion As String, ByVal strsql As String) As DataTable 

Dim Vconn As SqlConnection          Dim vCmd As New SqlCommand     Dim Vreader As SqlDataReader 

Dim vDA As SqlDataAdapter = New SqlDataAdapter() 

Dim vDT As DataTable = New DataTable() 

Vconn = New SqlConnection(strconnecion) 

vCmd.Connection = Vconn 

Vconn.Open() 

vCmd.CommandText = strsql 

Vreader = vCmd.ExecuteReader 

' vDT.Clear() 

vDT.Load(Vreader) 

Vreader.Close()           vCmd.Dispose()           Vconn.Close() 

Return vDT 

End Function 

End Class 

3.       .aspx中定義

@ Page Language="VB"   %>   @ Import Namespace ="System.Data" %>

    @ Import Namespace ="System.Data.SqlClient" %>   @ Import Namespace ="system.web.configuration"  %>

    @ Import Namespace ="system.threading"  %>   

script runat="server"  > 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) 

      '取得連線字串並傳入db中，因在class無法讀一般的data file

         Dim Vconn As String

         vconn = GetSqlConnStr("Certification")   

        Dim PDT as  dataTable = new datatable 

        PDT = InqueryData.SPLicenseCnt(Vconn)

        Dim PDR as datarow 

        for each PDR in