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

2007年12月28日
眼看2007年快要結束了，卻還有一堆假沒休，所以便強迫綠豆和我去新竹一日遊，
美其名是新竹一日遊，其實愛吃的我，想要一探網路上推薦的芎林的新美珍布丁蛋糕，
為了不白跑一趟，當然順便幫同事們帶囉（事先當然不敢和綠豆說，不然免不了被削一頓）

union的指令，遇到兩筆一樣的資料時會只取一筆資料，
若要兩筆都取的話，在兩個table中加上一個固定的值即可，
則即便兩筆資料是一樣的，也會因為 該固定值不同，而不會變成同一筆
 select spid,spname,isnull(worktypeid,'') Worktypeid,sum(cntemp) cntemp,
Sum(cnttotal) cntTotal, department, departmentName, worktype ,1  table1
from monsaleproduct where 1=1 and left(Department,1) = 'W' 
and DataDate = '200712'  AND LEFT(Division,1) = 'W' 
and LEFT(Division,1) = 'W'  and  worktypeid='bsn00s'
group by spid,spname,worktypeid,department,departmentName,worktype
 union 
select spid,spname,isnull(worktypeid,'') Worktypeid,sum(cntemp) cntemp,
Sum(cnttotal) cntTotal, division, divisionName, worktype,2  table2
 from monsaleproduct
where 1=1 and left(Department,1) <> left(division,1) and left(division,1)='W'
 and department in ( select distinct department from monsaleproduct
where left(Department,1) <> left(division,1) and left(division,1)='W' )
and DataDate = '200712' AND LEFT(Division,1) = 'W' 
and LEFT(Division,1) = 'W'  and  worktypeid='bsn00s'
group by spid,spname,worktypeid,division,divisionName,worktype

 --連接的方法 
  gv.DataSource = vReader
  gv.DataBind()

--欄位轉為圖檔
  Function chart(ByVal hourindex As GridViewRow, ByVal E As Integer) As String     
   Dim I As Integer
   Dim WKIMAGE As String
   Dim WKHOUR As String
   Dim HOUR As String 
   HOUR = "Hour" & E  --組成欄位成為table中的變數名稱
   WKHOUR = DataBinder.Eval(hourindex.DataItem, HOUR)
   WKIMAGE = " "
   For I = 1 To 4
      If Mid(WKHOUR, I, 1) = "0" Then
       '用ASP:會傳回的值是STRING，而非ＡＳＰ認得的物件，所以要直接用HTML的方法
       '讓HTML去編譯他，因為HTML認得        '像這種在CLIENT可處理的，就不用回到SERVER去處理，如此是費事
       'WKIMAGE = WKIMAGE & "                         ImageUrl= '~/0.jpg' />"
        WKIMAGE = WKIMAGE & ""  組成html的指令
      Else
       If Mid(WKHOUR, I, 1) = "2" Then
          WKIMAGE = WKIMAGE & ""
       Else    
         'WKIMAGE = WKIMAGE & "                   ImageUrl= '~/1.jpg' />"
          WKIMAGE = WKIMAGE & ""
       End If
      End If
        Next
        Return WKIMAGE
    End Function  
----------------------------------------------------------------------------------------------------------------------------------------
  --欄位的傳送及接收方式
  
  --正常欄位的接收方式
 
 
 
 -- 將其boundfield轉成templatefield後，其連接的資料會變成用bind(“變數名稱”)
 
    
                  
   --將其boundfield轉成templatefield後，再用副程式方法將資料傳入 
  pression="Hour1">
     
     
     < asp:TableCell ID="TableCell1" runat="server" >
    <%#chart(Container, 1)%>  
   
    
  --Container是固定的名稱，表示傳入的為該view的資料
    <%#chart(Container, 13)%>
        
    

 -- 未定義陣列的長度，則要用程式判斷來給陣列的長度
   dim aa as string()
   vstr = Split(Request("textdate"), "/")  '前者是欲分割的字串，後者是區別的符號
--要定義已知大小的陣列，才能用I(變數)來定義初始值，否則用I(變數)的話，因不知陣列大小，會有錯誤
  dim bb(24) as string
    for I =0 to 10
        bb(i) = “00”
    next
--不知陣列的大小，先定義一個未知的陣列，再用redim來給予陣列的大小
  Dim strcnt()
  ReDim strcnt(NewDT.Columns.Count)
--陣列的大小
    Dim attenddata As String()
    attenddata = split(pattend, ";")
    For i = 0 To ubound(attenddata)  『算陣列極大值，lbount算極小值』
        response.write(" " & attenddata(i) & "    ")
    Next

 

今天是2007/12/31日，時間總在不知不覺中就流逝了...
回想今年發生過最令人難忘的事，腦中一片空白...
竟然想不起一絲絲的東西，卻又開始懷念即將過去的一年...

       --利用TimeSpan來相減
        Dim diff As TimeSpan 
        diff = New System.TimeSpan(4 , 0, 0, 0) --要定義成這樣才能使用，4表示會加或減四日

今天收到一封mail，看的我頭暈眼花...
哎~~又來一個超童心的爸爸了...
真是覺得眼前一片黑....

在從紐約到波士頓的火車上，我發現我隔壁座的老先生是位盲人。
我的博士論文指導教授是位盲人，因此我和盲人談起話來，一點困難也沒有，
我還弄了一杯熱騰騰的咖啡給他喝。

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