天天都要dot Net

程式設計師勸敗 QNAP RAID 1 檔案伺服器管理

2012-01-10T09:47:00.000-08:00

最近筆者買了一個QNAP TS-212來當家裡的檔案伺服器

會選擇QNAP當然是下了不少功課，基本上RAID 1就已經非常厲害了

當然會買的理由是因為有在維護網站程式，所以保護原始碼也是Programmer的工作之一啊^^

這一台可以裝上Subversion簡稱svn，這樣就能把所有的原始碼commit進這一台機器內，

是不是很棒呢!!不不不!是非常棒，想像一下一台24小時不關機的svn在運作，又非常省電環保，真的是想到作夢都會笑耶。呵呵呵

關於svn怎麼運作可以參考有一系列的文章，看完就會http://demo.tc/Post/715
關係Qnap怎麼設定svn也不難，可以上Google找找。

真心勸敗啊^_^

TortoiseSVN 使用，使用分支Branch開發新功能

2011-12-21T14:43:00.000-08:00

版本控管真的可以提高效能，花個時間學會一定值得，一輩子受用。

看看這一篇文章我想所有的程式設計師看完一定心有戚戚焉
http://demo.tc/Post/715

以下是文章大意:

某日B工程師正在開發一個驚天地動鬼神的功能，扯到了專案的最核心，眼看大概再三個工作天就可以完成了，正在沾沾自喜的時候客戶來了一通電話。

客戶：「我想要改變一下流程你幫我把A功能和B功能中間差一個確認頁面，避免使用者一直打來說他不小心刪除了，叭啦叭啦...」

（這時你聽到需求感到相當簡單，不就是加個 Confirm 就可以解決的小事，於是你很有信心的回）

B工程師：「喔～這樣阿，沒問題阿我馬上幫你改好」

客戶：「嗯！快點阿，不然總機小姐快忙死了」

電話掛掉後你很自然的開啟A功能修改一下馬上就完成了客戶要的東西，你正要上傳的時候卻發生了悲劇！因為你正在修改的大功能是在主線（Trunk）中修改的，即使現在只是要一個那麼小那麼容易的功能你卻因為大功能尚未完成而卡住了你所有的修改。這時候電話又來了...

客戶：「阿不是說一下就改好？三個小時過去了電話還是一直來阿」

B工程師：「嗯…..這功能可能還要三天才可以上去…….」

客戶：「你以為我不會寫程式阿！！這麼簡單的功能你也要做三天，我去找你老闆說

Toad For SQL 5.5看到Description (描述)了

2011-08-02T11:38:00.000-07:00

之前一直覺得Toad For SQL好用歸好用，可是就是少了一點什麼!
因為有用過Toad For Oracle比較之下，就是有Descrition欄位可以看
從Toad For SQL 3x版一直等啊等，終於盼到5.5版把此欄位納進去了
說了一堆!看圖最清楚~

補充:
原來4.1版就內建Description了，哈哈
5.5版試用一天的心得，速度有變快，所以直接衝最新版吧^^

Linq DataClasses Cache問題

2011-06-08T11:40:00.000-07:00

有一個查詢db的Linq語法，在資料刪除及新增時，使用以下語法都可以得到最新的資料


Dim irt = From p In db.Items_Raw_Type _
   Where p.irt_Type.ToUpper = irt_Type.ToUpper _
   Order By p.irt_Name Ascending _
   Select p

可是當更新完UPDATE時從irt得到的資料居然是一樣
可是開啟SQL PROFILE明明看到有要求連線DB返回的資料也是最新的
這明明就是LINQ自動Cache了吧~
設定中斷點之後，真的是沒有被Update
後來求救Google大神


Dim irt = From p In db.Items_Raw_Type _
   Where p.irt_Type.ToUpper = irt_Type.ToUpper _
   Order By p.irt_Name Ascending _
   Select p
db.Refresh(Data.Linq.RefreshMode.OverwriteCurrentValues, irt)

只要加上一行!得到的結果就會正確了

db.Refresh(Data.Linq.RefreshMode.OverwriteCurrentValues, irt)

Case close

真的被MS SQL版本問題卡到

2011-03-20T19:40:00.000-07:00

最近在寫一個案子要用SQL 2008當Database
可是PM給我的.Bak檔一直無法還原，就連PM把DB卸載下來給我也無法順利掛上去
明明我灌的也是MS SQL 2008啊

後來PM給我遠端的帳號密碼讓我自己去連連看，打開SSMS一看
一時間不知該說什麼才好MS SQL 2008 R2
該不會是R2的關係吧!
上網查了一下
基本上因為版本不同所以SQL2008 R2相關資料檔是無法再附加回SQL2008
簡單的說微軟讓你都能從舊的昇級，確不讓你降級
好在現在都有Express版本(免費)，開發者專用!

只好摸摸頭皮去下載MS SQL 2008 R2 Express囉

Case Close

繼上一篇Easeus backup之後對SSD的影響

2011-03-14T09:25:00.000-07:00

這個備份還原軟體好用不在話下
但是遇到SSD的硬碟呢?
答案是:功能一切正常

可是還原之後必須要做一下Alignment一次
各位可以查查免費Alignment的工具
有Alignment和沒Alignment的差別來看看吧!有圖有真相
紅字Error表示需要Alignment

綠字OK表示已經Alignment了

最後的總分多了一倍!感覺還不錯
雖然筆者的主機板沒支援ACHI感覺有嚴重掉速
但是因為是公司的電腦，所以就不敢要求太多了^^
Case Close

推薦:快速上手EASEUS Todo Backup 2.0 ,免費備份還原Windows系統

2011-03-09T11:26:00.000-08:00

今天早上發生了一件大慘事，原因就是自作聰明多勾了一個勾勾造成的!
在說明之前大家可以看看筆者推薦"電腦玩物"的部落格

快速上手EASEUS Todo Backup 2.0 ,免費備份還原Windows系統

真的是免費又好用
一切都是那麼的簡單，備份時也能一邊操作電腦也不需要重開機，詳細的備份還原操作過程
麻煩大家還是看一下原創

這裡要提醒大家一點就是有一個勾勾千萬不要勾
會無法開機或是出現BOOTMBR的錯誤，請看下圖:

如果你也和筆者一樣勾起來並且無法開機時，
解決方式為，用Windows 7開機片!整個C砍掉，重建!
並且把系統灌好之後，再安裝EASEUS Todo Backup 2.0
再還原一次就好!而且這次還原千萬不要再勾上面Disk的勾勾就好囉

呼!真的是有備份有保佑!之前換SSD硬碟然後重灌花了將近一天的時間
筆者可不想再來一次^_^
這次還原只是少了Windows 7 SP1真的還可以接受!

看來把Windows 7 SP1裝完之後!一定要趕快來備份^_^

Case Close

是夠義氣的朋友，就該幫忙擺脫IE6!" XD (Friends don't let friends use IE6)

2011-03-09T02:04:00.000-08:00

微軟啟動了撲殺IE6的計劃，喊出口號: "是夠義氣的朋友，就該幫忙擺脫IE6!" XD (Friends don't let friends use IE6)，網站將持續統計全世界IE6的殘存比例，台灣目前約還有10.7%

連結網址http://ie6countdown.com/

ASP.NET Slideshowextender Using WebService

2011-03-07T15:40:00.000-08:00

下載AjaxControlToolkitSampleSite的範例網站就可以看到完整範例
照著用也都非常的ok，也應用到前個案子上面，輕鬆愉快。

問題是現在著手的新案子，PM要求也要使用Slide Show的方式，
筆者馬上答應，沒想到才是痛苦的開始，先說說問題點
AjaxControlToolkitSampleSite的範例網站的使用方式是用在
Codebeside裡面，假設你的網頁叫Menu.aspx那Slide Show的Ajax是寫在Menu.aspx.vb
卡點一:
因為筆者本身有使用UrlRewritingNet.UrlRewriter.dll為的就是SEO優化
會自動把MENUS.aspx?mm_Id=4&smt=1轉成是MENUS_SOUP.aspx
也就是二者是相通的，然後在Codebeside用到Request.Query("mm_Id")和Request.Query("mm_Id")
一執行MENUS_SOUP.aspx，馬上報錯，可是執行MENUS.aspx?mm_Id=4&smt=1確可以
網頁上一切正常，可是用Fiddler查看Url居然會自動加料變成MENUS.aspx?mm_Id=4&smt=1/GetSlides
本來想放棄直接使用MENUS.aspx?mm_Id=4&smt=1帶參數的方式表現時，另一個問題又來了
卡點二:
要把Slide Show放入Repeater裡面，假定有三筆資料，每筆資料裡面又有自己的圖，而且圖都要變換，有可能是第一筆資料有5張圖，第二筆料有10張圖，第三筆資料有7張圖。
PM想要的就是每資料內的Slide Show，

解法:
一定要用Web Service了，而且是要帶參數的
取一個MenuPhotoWebService.asmx


<%@ WebService Language="VB" Class="MenuPhotoWebService" %>
Imports System
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Linq
Imports AjaxControlToolkit

 _
 _
 _
 _
Public Class MenuPhotoWebService
Inherits System.Web.Services.WebService

 _
Public Function GetSlides(ByVal contextKey As String) As AjaxControlToolkit.Slide()
    Dim db As New vb.StarryNightDataClassesDataContext()
    Dim mp = (From p In db.Menus_Photo _
             Where p.mp_sm_Id = CType(contextKey, Integer) _
             Select p).ToList()
    If mp IsNot Nothing Then
        Dim result As AjaxControlToolkit.Slide() = New AjaxControlToolkit.Slide() {}
        Array.Resize(result, mp.Count)
        Dim i As Integer = 0
        For Each m In mp
            result(i) = New AjaxControlToolkit.Slide("images/Menus/S" + m.mp_img_Name, "", "")
            i += 1
        Next
        Return result
    End If
    Return Nothing
End Function

End Class

前端頁面如下


〈asp:Repeater ID="rpt_menu_detail" runat="server" DataSourceID="ods_menu_details"〉
〈ItemTemplate〉
 〈asp:Image ID="imgLeft" ImageAlign="AbsMiddle" runat="server" CssClass="img-l" /〉
 〈ajaxToolkit:SlideShowExtender ID="SlideShowExtenderLeft" runat="server" TargetControlID="imgLeft" SlideShowServiceMethod="GetSlides"
  UseContextKey="true" ContextKey='〈%#Eval("sm_Id")%〉' SlideShowServicePath="~/MenuPhotoWebService.asmx" AutoPlay="true"
  Loop="true" /〉
〈/ItemTemplate〉
〈/asp:Repeater〉

重點是

UseContextKey ContextKey 看出來了嗎^^



ASP.NET 網頁名稱的保留字
2011-03-02T10:36:00.000-08:00
多年前在寫SQL語法時，因為不小心誤用了保留字
當然是Error連連囉。

所以之後一直謹記在心，不管是T-SQL語法或是寫程式時，都會格外注意
1.寫T-SQL語法時，真的一定要用到保留字當資料表或是欄位時，要加上[]
2.寫程式我都會用UnderLine 來做區別

今天踢到的鐵板居然是建立網頁名稱時，因為取了一個名為EVENT.aspx的網頁
結果就不給run了，debug了許久，發現
<%@ Page Title="" Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="EVENT.aspx.vb" Inherits="EVENT" %>
問題出在Inherits="EVENT"

當然就沒再去深入研究，另取一個新的檔名就好
沒必要和它硬碰硬，呵呵

Case Close


使用SmtpClient注意事項如果你不是使用.Net 4.0+
2010-11-03T11:51:00.000-07:00
這個Bug源自於該功能不會自動Close or Dispose Session
只能等到自行Time out，這會造成有些e-mail不對而造成錯誤信息

解決方式其實很簡單，將MaxIdleTime設為0還有ConnectionLimit設為1就搞定囉!


SmtpClient.ServicePoint.MaxIdleTime = 0
SmtpClient.ServicePoint.ConnectionLimit = 1


如果想看官網回報可以看這裡
SmtpClient does not close session after sending message


Visual Studio 2010 英文版 .NET 3.5 SP1 Crystal Report 2008 FP31 Winform 內嵌於 Setup 專案內的解決方案
2010-08-31T14:56:00.000-07:00
1.安裝VS2010英文版!(中文版不知行不行，請測過的朋友告知，謝謝!)
2.安裝cr4vs2010.exe 如果無法下載!請網路上自行尋找，下載網址如下:
http://www.sdn.sap.com/irj/scn/weblogs?blog=/pub/wlg/20322
目前有二個版本:
Beta 1 MD5: 48B63F922440CC98C207720D48FE0E79
Beta 2 MD5: 7E6D73E19C4ECC252B61C7529C44AD39
3.將Crystal Report 2008更新到最新的Service Pack
筆者是安裝Crystal Report 2008 SP0然後一路安裝升級包
SP1, SP2, SP3, FP31，目前最新的Pack，安裝網址如下:
https://websmp130.sap-ag.de/sap%28bD1lbiZjPTAwMQ==%29/bc/bsp/spn/bobj_download/main.htm
下拉選單:
Software Product 選 Crystal Reports
Product Version (optional) 選 Crystal Reports 2008
Software Type (optional) 選 Utility
然後按下Search按鈕
裝完最新的service pack fp31 之後別忘了還要下載Crystal Reports 2008 Fix Pack 3.1 - Merge Modules
下載完成會得到cr2008sp3_mm_fp31.zip
請解壓後，把CRRuntime_12_3.msm，如果需要繁簡體，請一起複制起來，CRRuntime_12_3_zh_CN.msm,CRRuntime_12_3_zh_TW.msm
放到C:\Program Files (x86)\Common Files\Merge Modules
32位元作業系統請把(x86)拿掉
4.請參考VS2008 SP1 如何設定讓 .NET 3.5 SP1 內嵌於 Setup 專案內
5.將Microsoft Visual C++ 2005 Redistributable Package (x86)也內嵌於專案內
http://www.xun6a.us/file/8bf2543d8/vcredist_x86_2005.zip.html
於此下載，解壓後會得到一個vcredist_x86_2005目錄，將此目錄複制貼到以下路徑
C:\Program Files (x86)\Microsoft SDKs\Windows\v7.0A\Bootstrapper\Packages\


注意:如果客戶端不想用內嵌的方式，則必需自行安裝.Net Framework 3.5 SP1和
Microsoft Visual C++ 2005 Redistributable Package (x86)

------------------------------------------------------------------------------------------------------------
開始測試:
1.先開一個新的空的專案選要存的地方(桌面)，執行環境別忘了要選.Net Framework 3.5
2.在空的專案內按右鍵，加入Windows Form專案選.Net Framework 3.5
加一個新的WinForm在左邊Toolbar選到Crystal Report Viewer拉到視窗內，按下Show All Files按鈕
就會看到References裡面多了6個Crystal Report的dll

請把這6個Crystal開頭的References記下來
然後選起來之後選右鍵，Remove掉
再依序到以下目錄一個一個加回來
C:\Program Files (x86)\Business Objects\Common\4.0\managed
C:\Program Files (x86)\Business Objects\Common\4.0\managed\dotnet2

3.在空的專案內按右鍵，加入Setup專案選.Net Framework 3.5
在Setup專案上按右鍵選Add=>Merge Module...選CRRuntime_12_3.msm，如需繁簡體CRRuntime_12_3_zh_CN.msm，CRRuntime_12_3_zh_TW.msm也一併加入
4.選到CRRuntime_12_3.msm右鍵Properties看到MergeModuleProperties，在Keycode輸入
5.在空的專案內按右鍵Properties選到Prerequisites...按鈕
把.net4.0 勾勾取消
.NET Framework 3.5 SP1打勾
Microsoft Visual C++ 2005打勾
Installwindows 3.1打勾
選Download prerequisites from the same location as my application

如果是自己安裝不需內嵌的客戶端，那就都
把.net4.0 勾勾取消把.NET Framework 3.5 SP1打勾
其他留預設就行
Download prerequisites from the component vendor's web site

6.在Setip專案內Detected Dependencies目錄展開選到Microsoft .NET Framework點二下
把Version從.NET 4.0改成.NET Framework 3.5


7.搞定囉，可以開始編譯了
最後會得到



執行setup.exe就會檢查.NET 3.5 SP1和Microsoft Visual C++ 2005
如果沒有就會自動裝好，搞定收工!

後記，編譯時會得到15個Warnings，但是不影響執行結果
如果有解決Warnings的朋友請幫忙告知，如何解決，多謝


Word 套版 With Office Word 2007 問題
2010-08-10T08:57:00.000-07:00
網路上找的大部份都是這樣的範例，當成功執行之後[Name]會被換成Boss
一切都是這樣的美好，因為我們全公司都使用Office 2003


  Dim word As New Microsoft.Office.Interop.Word.Application
  Dim doc As Microsoft.Office.Interop.Word.Document
  Try
      doc = word.Documents.Open("C:\1.doc")
      doc.Activate()
      Dim myStoryRange As Microsoft.Office.Interop.Word.Range
      For Each myStoryRange In doc.StoryRanges

          With myStoryRange.Find
              .Text = "[Name]"
              .Replacement.Text = "Boss"
              .Wrap = Microsoft.Office.Interop.Word.WdFindWrap.wdFindContinue
              .Execute(Replace:=Microsoft.Office.Interop.Word.WdReplace.wdReplaceAll)
          End With
      Next myStoryRange
      word.Visible = True
  Catch ex As COMException
      MessageBox.Show("Error accessing Word document.")
  Finally
      doc = Nothing
      word = Nothing
  End Try


可是好景不常，噹噹噹~踢到了一個鐵板
---------------------------
System.AccessViolationException: Attempted to read or write protected memory. This is often an indication that other memory is corrupt.
at Word.Find.set_Text(String prop)
---------------------------
網路上眾說紛雲，
1.有人說是記憶體壞掉
2.也有說是因為Office 2003和Office 2007同時安裝的關係

嗯~發生問題的User真的是使用Office 2007
長話短說，為了這個問題在茫茫網海中花了二天半的時間
最後當然是找到了解決方式
原來只要改一個字
把Word.WdFindWrap.wdFindContinue改成Word.WdFindWrap.wdFindAsk
問題解決!

如果套板的文字只要換一次可以把wdReplaceAll改成wdReplaceOne
這樣可以節省一些時間喔!

Case close.


Crystal Reprot For VS 2010
2010-08-04T09:13:00.000-07:00
Crystal Reprot For VS 2010出了Beta2囉

要在VS2010的Toolbar出現Crystal Report Viewer控制項的人可以安裝
SAP Crystal Reports, version for Visual Studio 2010
目前好像只支援英文版的VS2010

安裝心得，由以下網址進入
http://www.sdn.sap.com/irj/scn/weblogs?blog=/pub/wlg/20322

會看到三個下載
SAP Crystal Reports, version for Visual Studio 2010
SAP Crystal Reports runtime engine for .NET Framework 4 (32-bit)
SAP Crystal Reports runtime engine for .NET Framework 4 (64-bit)
當初只想嘗鮮!所以只裝了SAP Crystal Reports, version for Visual Studio 2010
然後就興高采烈的開了一個Windows專案，因為是VS2010的緣故
所以預設就以.NET Framework 4.0的方式開啟!
結果在Toolbar看不到Crystal Report Viewer控制項，當場冷掉，
花了幾小時的重灌和上網找資料，突然心念一轉就以.Net Framework 3.5開一個新專案
登登登登~Toolbar居然看到了久造的Crystal Report Viewer控制項，感動ing
結論:
要想.NET Framework 4.0可以看到Crystal Report Viewer控制項
最好把底下二個也灌一灌:
SAP Crystal Reports runtime engine for .NET Framework 4 (32-bit)
SAP Crystal Reports runtime engine for .NET Framework 4 (64-bit)





Windows 7 Print Spooler 自動關閉
2010-07-27T09:39:00.001-07:00


原來是Windows 7 與 HP相衝的關係
發生原因可能是該印表機被當成是Shared的印表機
列印文件發生問題，造成此Service當掉所致

1.先將此Service停用 (Stop)，按滑鼠右鍵Stop
2.然後到C:\Windows\System32\spool\PRINTERS將目錄內的資料全數刪除
3.將此Service啟用 (Start)，按滑鼠右鍵Start

應該可以解決此問題


Linq Where in 進階版
2010-05-18T13:57:00.000-07:00
之前的文章有介紹
http://lovetoknowgoogleandmstech.blogspot.com/2009/01/linq-where-in-and-not-in.html

現在來個進階版囉!直接看Code比較快
先來個String字串的Where in

     Dim Lot() As String = Split("21003144,21003145", ",")
     Dim i1 As Integer = 0
     Dim query = From p In db.Packing_Item_Entry_History _
                 Where (Lot).Contains(p.pieh_Lot_No) _
                 Select p.pieh_Lot_No, p.pieh_pih_Job_No
     DataGridView1.DataSource = query
or
     Dim query = From p In db.Packing_Item_Entry_History _
                 Where (Split("21003144,21003145", ",")).Contains(p.pieh_Lot_No) _
                 Select p.pieh_Lot_No, p.pieh_pih_Job_No
     DataGridView1.DataSource = query


再來個數字版的Where in


Use integer
       Dim dkey_arr() As String = Split("14472,14473", ",")
       Dim iArray(dkey_arr.Length - 1)
       For i As Integer = 0 To dkey_arr.Length - 1
           iArray(i) = CType(dkey_arr(i), Integer)
       Next
       Dim query = From p In db.Packing_Item_Entry_History _
                   Where (iArray).Contains(p.pieh_dKey) _
                   Select p.pieh_Lot_No, p.pieh_pih_Job_No
       DataGridView1.DataSource = query


或者是



Use integer
       Dim i_List As New List(Of Integer)
       For Each s As String In String.Split("14472,14473", ",")
           i_List.Add(CType(s, Integer))
       Next
       Dim query = From p In db.Packing_Item_Entry_History _
                   Where (i_List).Contains(p.pieh_dKey) _
                   Select p.pieh_Lot_No, p.pieh_pih_Job_No
       DataGridView1.DataSource = query




Winfrom 子視窗傳值給父視窗
2010-05-11T10:53:00.000-07:00
直接看Code囉


先在Form1建立一個Untyped dataset並取名為DS1及Textbox取名為TextBox1
Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sForm2 As New Form2()
        sForm2.ShowDialog(Me)
        DataGridView1.DataSource = DS1.Tables(0)
    End Sub
End Class


Public Class Form2
    Dim db As New VivaDataClassesDataContext()
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim frm1 As Form1 = DirectCast(Me.Owner, Form1)
        DirectCast(frm1.Controls("textBox1"), TextBox).Text = TextBox1.Text
        Dim query = From p In db.Product_Daily_Report_Comment _
                    Select p
        frm1.DS1.Tables(0).Load(New DataTableReader(query.ToDataTable()))
        Me.Close()
    End Sub
End Class




Vmware Open Intel VT
2010-04-28T15:15:00.000-07:00
查看Bios已經開了VT可是在VMware還是不能灌64位元的作業系統

後來拜請Google大神查到以下文章

原來Bios打開VT之後!重點來了

請先關機，把電源都拔掉!筆者為了保險起見!連螢幕的電源都拔了

等了幾秒之後!再把插頭都接回去!

開機之後!一切問題迎刃而解!


http://stupefydeveloper.blogspot.com/2008/12/intel-vt-how-to-enable.html


Windows 7 當機 處理方式
2010-04-27T11:54:00.000-07:00
今天遇到一件很奇怪的事!就是電腦開機之後
有看到歡迎畫面~然後進到桌面時!畫面一片藍底，滑鼠會動!
很明顯就是當掉了!因為Ctrl+Alt+Del都不能用!

再重開機一次之後會出現不正常關機的畫面!可以選擇進安全模式
呵!安全模式可以進!腦中浮現最近安裝的軟體!唯一可疑的就是防毒程式Nod32
先移掉看看吧!那泥!原來Windows 7安全模式是不能移除軟體的!

拜求Google大神之後，找到一個讓Windows 7安全模式也能安裝和移除軟體的方式
進安全模式之後!進command mode然後打以下指令


REG ADD "HKLM\SYSTEM\CurrentControlSet\Control\SafeBoot\Minimal\MSIServer" /VE /T REG_SZ /F /D "Service"

net start msiserver


然後再選到防毒程式的安裝程式*.msi按右鍵!呵~Uninstall出現囉

移完之後!重新開機!果然ok了!看來防毒程式真的要慎選!


使用LINQ 得到Server時間
2010-04-14T08:39:00.000-07:00
看來此需求是寫Winform的人比較會用的到
因為如果是用ASP.net直接使用Now就會得到Server的時間

廢話不多說，直接看Code
請先建一個新的檔案!檔名隨便取XXXXX.vb
內容如下:


Imports System
Imports System.Data.Linq.Mapping
Imports System.Reflection

Partial Class 你的LINQ.dbml檔案取的名稱DataClassesDataContext
 Inherits System.Data.Linq.DataContext
 'REF: http://bit.ly/9l6LDz

 <[Function](Name:="GetDate", IsComposable:=True)> _
 Public Function GetDate() As DateTime
     Dim mi As MethodInfo = TryCast(MethodBase.GetCurrentMethod(), MethodInfo)
     Return DirectCast(Me.ExecuteMethodCall(Me, mi, New Object() {}).ReturnValue, DateTime)
 End Function
End Class



用法超級簡單
直接用Label1.Text = db.GetDate()就是Server的時間囉!

如果是寫C#的朋友請看
http://peteohanlon.wordpress.com/2008/01/11/sql-server-getdate-and-linq-to-sql/


新年新氣象~昇級Windows 7 X64
2010-02-13T08:03:00.000-08:00
之前都有在觀注Windwos 7的發展!從早期beta版就一直在試用
32位元和64位元都有嘗試，因為筆者的電腦記憶體有6G的RAM

終於盼到正式版上市了，輸入法和Firefox備份的方法都搞懂之後

噹噹噹!正式邁入Windows 7 X64的懷抱囉

用後感當然是比Windows XP還要棒
完整使用6G的Ram真的是爽^_^


VB.net DateDiff 取得日期是週末或是非週末
2010-01-12T09:32:00.000-08:00


Math.Floor((DateDiff(DateInterval.Day, CType("1900/01/02", Date), CType(Now.ToString("yyyy/MM/dd"), Date)) Mod 7) / 5)



如果得到是0表示是Weekday非週日
如果得到是1表示是Weekend週末


LINQ 查日期區間 between 日期 From to 使用VB.NET
2009-12-30T08:44:00.000-08:00
昨天遇到一個要使用到LINQ查日期區間的程式

原來就是這麼簡單!
直接來看Code吧!抄回去就能用了



Using db As New TestClassesDataContext()

Dim query = From p in db.Test _
          Where p.CreateDt >= CType(dt_Date_From.Value, DateTime) _
          And p.CreateDt 〈 DateAdd(DateInterval.Day, 1, CType(dt_Date_To.Value, DateTime)) _
          Select p
End Using


搞定~收工


大易三碼5.1版 win7 x64 windows 7 64位元 完美解決方案
2009-12-30T00:36:00.000-08:00
相信一堆使用過大易三碼5.1版的人，已經不可能再回頭打四碼的大易了
網路上有看到使用vista or win 7 x86還是能用大易三碼
但是64位元的電腦呢? 一定有很多人都和筆者一樣!一堆問號吧!
其實解決方法也是有!只是照作了之後無法成功!其實大易三碼差一步就能成功喔

筆者不敢藏私!把網路上各位大大的作法加以補充!祝各位安裝順利

1.先安裝大易5.1單字版(三碼)至 Vista 或 windows 7
2.把網路上大大分享的檔案抓下來dayi_x64.zip
3.得到檔案dayi.rar，解壓之後會得到一個目錄為dayi底下還有二個子目錄及一個檔案
依序為system32, syswow64, dayi5.1.reg
4.請把system32, syswow64反白起來copy到C:\windows再貼上，貼上時!會跳提醒，此時請選擇覆蓋的方法
5.點二下執行dayi5.1.reg
6.進到c:\windows\syswow64找到DAYI.SYS這個檔案!
選到之後按滑鼠右鍵再選"內容" => "安全性" => "編輯"  => "新增" => "進階" => "立即尋找" => "請找到Everyone並點一下使之反白然後按確定" => "再按一次確定" => "然後把完全控制打勾" => "再按一次確定" => "再按一次確定"
7.到輸入法內把大易單字版加進來!在這裡不能編輯內容!沒關係!繼續看下去
8.注意事項:因為這是32位元的輸入法!所以64位元的軟體不用能!像是檔案總管和筆記本!不過真的沒差，因為一堆程式都是32位元的!像是office和msn和firefox!用檔案總管想取中文名很簡單!先灌http://filehippo.com/download_notepad/ 比筆記本好用並且是免費的進階版筆記本!把想要的中文字打在notepad++裡面!再用複制貼上的到你想取的檔名或是目錄名稱!這樣檔名就可以是中文囉
9.內建的是64位元的!所以打不出中文!所以請先灌進階版的筆記本再來測試
選擇大易單字版後!就會跳出易(3)半，請在上面按滑鼠右鍵，並選擇內容
10.把不使用浮動組字視窗、使用三碼、滿三碼自動組碼打勾
把相關字詞功能、不使用快速鍵、使用者自定詞優先勾勾取消
再按確定!

恭喜各位在win7 x64有大易三碼5.1版可以用囉

補充說明:剛重灌了x64系統一遍!第一次無法使出大易三碼!要先灌一次大易三碼程式再依上面操作一次就行!

請各位讀者看清楚喔!這是給64位元的解決方案!
如果是32位元的使用者請看以下:
使用方式：
1. 先安裝大易5.1單字版(三碼)至 Vista 或 windows 7
2.  請找一台裝有windows XP的電腦，到C:\Windows\System32底下 將uniime.dll 這個檔案 copy  至你的至 Vista 或 windows 7電腦同樣的C:\Windows\System32底下 (這時你會發現至 Vista 或 windows 7底下是沒有這個檔案的)
3.  在至 Vista 或 windows 7底下，開啟輸入法設定，在大易輸入法那邊點選內容，將 相關字詞功能[P] 取消選取，此步驟同XP，因為大易5.1單字版，在XP使用 也要做這個步驟。


BT @ China 联盟 - BT搜索引擎, BT @ China 聯盟 - BT搜索引擎~復活了~可以下載了
2009-12-26T15:03:00.000-08:00
有看新聞的大大都知道大陸的一堆BT因為某些原因關站
筆者最常上的大站"BT @ China 联盟 - BT搜索引擎"
也在這一波名單中暗然停站了
可是在不久前~筆者發現他的海外鏡像站居為活起來了
不敢藏私~馬上公佈網址給各位硬碟裝不滿的大大

http://overseas.btchina.net/

報告完畢


String was not recognized as a valid DateTime.Couldn't store <12/15/2009> in pqh_Quotation_Date Column.  Expected type is DateTime.
2009-12-16T12:58:00.000-08:00
String was not recognized as a valid DateTime.Couldn't store <12/15/2009> in pqh_Quotation_Date Column.  Expected type is DateTime.

今天一直遇到這個問題！
有的電腦會！有的電腦不會
是因為程式裡面SQL的寫法和電腦本身的日期格式相衝而造成的原因

只要把語法改一下！問題就解決囉
原本
CONVERT(CHAR(10), IsNULL(pqh.pqh_Quotation_Date,''), 101) AS pqh_Quotation_Date
改成
CONVERT(Varchar(10), pqh.pqh_Quotation_Date, 111) As pqh_Quotation_Date

搞定！收工


ToString Format　使用時的注意事項
2009-11-30T11:32:00.000-08:00
承上一篇文章
剛才遇到一個問題～特此來紀錄一下
因為DB的TABLE不是筆者開的！所以一直沒注意到從DB叫出來的數值
使用　.ToString("0000")　會有問題
在DB內原來開的欄位是numeric(18, 0)
欄位內的數值為911062
使用
MsgBox(Mid(DS_View.Tables(0).Rows(0).Item("LastNo").ToString("0000000"), 1, 4))
各位猜的到叫出來會是什麼答案嗎？

答案是9
酷吧！完成出乎筆者的意料之外
因為筆者想得到的答案很簡單
就是先把911062轉成0911062然後從第一位數取四個
就是0911
可是只有取到一個9
天吶～

解決方法！把該欄位先轉成Integer就好了
MsgBox(Mid(CType(DS_View.Tables(0).Rows(0).Item("LastNo"), Integer).ToString("0000000"), 1, 4)）

使用前請注意喔

不然遇到問題再來解決也是很花時間的


ToString Format 齊頭用法
2009-11-30T10:25:00.000-08:00
今早改寫公司的ERP時！看到了為了要數字轉文字而且While迴圈的寫法
初始值是數字1　可是想要産出0001的文字格式


Dim xLastNO As Integer = 1
Dim xLastNO_Str As String
While xLastNO_Str.Length < 4
      xLastNO_Str= "0" + xLastNO_Str
End While


看到了吧！舊式的這樣不錯吧！
其實在我以前也不這樣寫　我會這樣寫


Dim xLastNO As Integer = 1
Dim xLastNO_Str As String
xLastNO_Str = Right("0000" + xLastNO.ToString() , 4)


這樣的解法是把數字1轉成文字之後　再加上0000四個零
最後再取最後右邊四位！就會得到格式0001

作法全是對的　但是有新的做法囉
請看


Dim xLastNO As Integer = 1
Dim xLastNO_Str As String　＝　xLastNO.ToString("0000")



搞定

是不是很爽^_^

非常直覺非常好用！必學喔


Linq 的ROW_NUMBER() 使用 VB.NET
2009-11-25T13:02:00.000-08:00
網路上找到不少文章！可是自已怎麼都試不出來
文章如下網址
http://bentleydavis.com/2008/11/linq-row-number-in-visual-basic-vb-net.html

真的是江湖一點訣~說穿了就不值錢了
依上面例子！想依樣畫葫盧出來！可是就是沒辦法成功
過了三個小時後才看懂！原來作者是用自己産出的STRING陣列來測試
並不是從DB拉資料出來
Public Class IncrementerZeroBased還是一樣不變
但是Linq Query 請改成


      Dim query = From ii In db.Item_Inventory _
                  Select ii
      Dim i As New IncrementerZeroBased
      Return query.ToList().Select(Function(ii) New With {.NO = i.increment, _
                                                .Loc = ii.ii_lc_ID, _
                                                .Qty = ii.ii_Qty})


或是你要這樣寫也可以



      Dim query = (From ii In db.Item_Inventory _
                  Select ii).ToList()
      Dim i As New IncrementerZeroBased
      Return query.Select(Function(ii) New With {.NO = i.increment, _
                                                .Loc = ii.ii_lc_ID, _
                                                .Qty = ii.ii_Qty})



各位客倌有看出來那裡不一樣嗎

沒錯！就是.ToList()
用SQL Server Profiler來觀察結果
只要用了.ToList()就會産出SQL語法
這樣剛好符合原作使用STRING陣列來測試的條件了

如果你照原作有問題的話~可以試試這個方法喔
終於搞定囉


Linq to SQL 三層式架構之商業層使用Using的問題
2009-11-16T08:49:00.000-08:00
因為Using and End Using 用習慣了
所以很習慣的在寫Linq to SQL時也不小心用上了
可是在前端展示層一直叫用不到資料
一度懷疑是不是見鬼了
大家先看Code吧


Public Class Item_InventoryBLL

   Public Function Get_Items_Date() As IList
  Using db As New ERPDataClassesDataContext
   Dim query = From p In db.Item_Kinds _
      Select p
   Return query.ToList()
  End Using
   End Function
End Class


正常可用版


Public Class Item_InventoryBLL

   Dim db As New ERPDataClassesDataContext
   Public Function Get_Items_Date() As IList
       Dim query = From p In db.Item_Kinds _
                   Select p
       Return query.ToList()
   End Function
End Class


看出問題了嗎？
使用Using在前端收不到資料喔
大家用時要小心


Infragistics Win UltraWinGrid 水平捲軸 移過太慢造成畫面錯誤
2009-10-14T13:37:00.000-07:00


如果 發生以上的畫面解決方法還蠻簡單的
請看到最後一個row是不是只有出現三分之一
剩下的被水平捲軸擋到了
只要把此WinGrid的高度加高一點點就行讓最後一行的Row
不會被擋到就可！

搞定~收工


WinForm內開啟一個新灠器的視窗
2009-09-24T11:19:00.000-07:00
公司內部在用的是Winform的介面，每次有功能更新，都需要請使用者手動更新
所以每次功能更新時，我會發Email請相關人員更新，並把更新的功能和使用方式寫上

但是寄出的Email很少有人看，大家都是看到有更新就去按Update的按鈕，但是更新了什麼卻不知

所以想把更新的歷史記錄寫成Web的方式，作成一個列表，請使用者有空再去看，
所以就在WinForm的介面加一個LinkLabel，並在程式code的地方加上

Private Sub LinkLabel1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkLabel1.Click
    System.Diagnostics.Process.Start("http://yourURL")
End Sub

就搞定囉


中文存入 MS SQL 2005 亂碼解決方案
2009-09-24T09:13:00.000-07:00
有一個Winform介面，存入DB時會造成亂碼
使用SQL Server Profiler查看DB動作，程式介面使用
Dim jParameter_plh_cus_ID As New OleDb.OleDbParameter("@plh_cus_ID", OleDb.OleDbType.VarChar, 20)
jParameter_plh_cus_ID.Value = ucb_Customer.SelectedRow.Cells("cus_ID").Value
jOleDbCommand.Parameters.Add(jParameter_plh_cus_ID)

Table的欄位使用Varchar(500)

預存程序使用也是Varchar(500)

症狀很明顯了吧!

把以上三個地方都改成Unicode存進去就行

解決辦法:

1.在程式內使用OleDb.OleDbType.VarWChar
2.Table的欄位使用nvarchar(500)
3.預存程序使用也是nvarchar(500)


Decimal.Round 產出的錯誤信息
2009-09-16T14:36:00.000-07:00
Decimal.Round(CType(txt.ToString(), Decimal), 2).ToString

之前在VS2003 .NET 1.1 Run的好好的程式，因為昇級到了VS2005 .NET 2.0 Sp2的環境之後
產生的錯誤訊息，因為VS2005之後就可以使用Math.Round這個Function所以大概只有昇級完會碰到這個問題吧，而且在編譯時不會有任何的錯誤，是在Run Time才會發現，所以才頭痛啊，言歸正傳

Decimal.Round只接受傳入的值為Decimal所以轉型一下就ok囉
Dim txt As Decimal = Ctype(txt.Tostring(), Decimal)
Decimal.Round(txt, 2).ToString()


如需叫用 Just-In-Time (JIT) 偵錯的詳細資料，
請參閱本訊息結尾處 (而非這個對話方塊) 的資訊。

************** 例外狀況文字 **********
System.Reflection.AmbiguousMatchException: Overload resolution failed because no Public 'Round' can be called without a narrowing conversion:
    'Public Shared Function Round(d As Decimal, mode As System.MidpointRounding) As Decimal':
        Argument matching parameter 'd' narrows from 'String' to 'Decimal'.
        Argument matching parameter 'mode' narrows from 'Integer' to 'MidpointRounding'.
    'Public Shared Function Round(d As Decimal, decimals As Integer) As Decimal':
        Argument matching parameter 'd' narrows from 'String' to 'Decimal'.
   於 Microsoft.VisualBasic.CompilerServices.OverloadResolution.ResolveOverloadedCall(String MethodName, List`1 Candidates, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, BindingFlags LookupFlags, Boolean ReportErrors, ResolutionFailure& Failure)
   於 Microsoft.VisualBasic.CompilerServices.OverloadResolution.ResolveOverloadedCall(String MethodName, MemberInfo[] Members, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, BindingFlags LookupFlags, Boolean ReportErrors, ResolutionFailure& Failure)
   於 Microsoft.VisualBasic.CompilerServices.NewLateBinding.ResolveCall(Container BaseReference, String MethodName, MemberInfo[] Members, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, BindingFlags LookupFlags, Boolean ReportErrors, ResolutionFailure& Failure)
   於 Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack)
   於 wsERP2004.fm_QC_Raw_Sampling_W.fm_QC_Raw_Sampling_W_Load(Object sender, EventArgs e)
   於 System.Windows.Forms.Form.OnLoad(EventArgs e)
   於 System.Windows.Forms.Form.OnCreateControl()
   於 System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   於 System.Windows.Forms.Control.CreateControl()
   於 System.Windows.Forms.Control.WmShowWindow(Message& m)
   於 System.Windows.Forms.Control.WndProc(Message& m)
   於 System.Windows.Forms.ScrollableControl.WndProc(Message& m)
   於 System.Windows.Forms.ContainerControl.WndProc(Message& m)
   於 System.Windows.Forms.Form.WmShowWindow(Message& m)
   於 System.Windows.Forms.Form.WndProc(Message& m)
   於 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   於 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   於 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


VMware 7 Preview
2009-09-13T23:48:00.000-07:00
剛下載了VMware 7試用
有效期限可以到2009年10月30日
vm7最讓筆者亮眼的就是可以設定cpu數量和核心量
舉例來說:筆者使用Q6600的cpu，cpu數量1個~核心數有4個
所以組合就是1和4
最高組合支援4個cpu和4核心~真猛

之前VM6.5只支授雙cpu或雙核心!筆者用q6600真的是有點浪費了
沒讓cpu發揮最大的極限!好像就對不起它的感覺^^

現在VM7一出!真是一點都不浪費了



如何利用表單檔名(字串)，動態叫出winform
2009-09-11T14:32:00.000-07:00
先拜請了一下Goolge大神，得到一個網址
http://bauann-makeit.blogspot.com/2008/08/form.html


Dim myF As Form = _
CType(Activator.CreateInstance(System.Reflection.Assembly.GetExecutingAssembly.GetType("YourAssemblyName." & "YourFormName")), Form)
myF.ShowDialog()


其中YourAssemblyName就是你的專案名稱
YourFormName就是你的Form的名字

如果你新建專案是用預設的名稱那就會是WindowsApplication1
表單是Form1
組合起來就是WindowsApplication1.Form1
看懂了嗎?


SQL 2005自動備份排程作業
2009-09-08T10:29:00.000-07:00
新灌MS SQL 2005之後，想設定維護計畫，找到一個寫的很不錯的網站教導如何備份
附上網址
http://blog.xuite.net/tangesi/blog/16735300

可是今天的重點是，排程無法設定成功
錯誤信息如下圖:


使用關鍵字Agent XPx，拜請Googel大神之後，找到
http://www.symantec.com/connect/blogs/enabling-agent-xps-new-sql-server-2005-install

跑完下面一整段T-SQL語法之後，就能使用維護計畫囉!

sp_configure 'show advanced options', 1;
GO
RECONFIGURE;
GO
sp_configure 'Agent XPs', 1;
GO
RECONFIGURE
GO



Godaddy.com web hosting and email server
2009-09-01T14:56:00.000-07:00
昨晚把公司的網站搬家到了godaddy.com
之前的組合是，網址在godaddy.com買的，web hosting 是在aspnix買的
網站空間很穩也很好操作，可是Email有些信會被退信，error code是601
寫信給管理員也一直沒解決，出於不得已只好換一家空間商囉!

無意間發現godaddy.com也在幫管web hosting了，馬上選了windows plan每月6.99
email空間有500mb，當要設定email帳號時，我傻眼了
500mb他拆成100mb然後有5個，每個可設定100個信箱，重點來了
我先設定第一個30mb之後，要來設定第二個時顯示剩下70mb可以設定
言下之意難不成有人會把100mb一個信箱分1mb分成100個嗎。
真的傻眼，比較重點的人物，100mb只能設定5個，每人使用20mb
也只好這樣囉

早上到了公司之後發現更傻眼的問題，一個信箱一天只能寄250封出去
每封信裡面別人的email只能包含100個，而且是To, CC, BCC加起來100個
意思就是說，你寄三封信，
第一封裡面有100個email，這樣你就用掉了一天的額度的100封，剩150封
第二封裡面有100個email，這樣你就用掉了一天的額度的100封，剩50封
第三封裡面有100個email，你就寄不出去了，因為一天只能寄250封信，殘念啊

但是請不要絕望，如果使用web base來寄信

一樣會有一封只能含有100個email位址
但是不會有一天250信的限制

https://email.secureserver.net/login.php

給各位要用godaddy.com的web hosting的人一個參考

心得:
web hosing 很穩，email也很穩目前沒被退信，除了以上的缺點其他沒有好抱怨了


新工作新氣象
2009-09-01T14:23:00.000-07:00
好久沒更新Blog了
原因很多!一堆藉口
最主要的原因就是懶>"<

找到新工作也上班了二個多月了!
之間遇到一些程式問題和解決方式

我會Post 到來這來，分享分享
一方面也可以幫助自己記憶


Cannot resolve the collation conflict between "SQL_Latin1_General_CP1_CI_AS" and "Latin1_General_CI_AI" in the equal to operation.
2009-09-01T14:15:00.000-07:00
公司有一台DB是從SQL 2000昇級到SQL 2005
昇級過程一切順利，但是在執行一個Query時發生了以下的錯誤:
System.Data.OleDb.OleDbException: Cannot resolve the collation conflict between "SQL_Latin1_General_CP1_CI_AS" and "Latin1_General_CI_AI" in the equal to operation.

查明原因為Stored Procedure裡面使用了

Create table [#tmp_Search_Products]
(
 [i_ID] [varchar] (20),
 [Version] [varchar] (10),
 [skeyword] [varchar] (100)
)

之前遇到一次是使用ASP.NET 內建的Membership資料庫，在本機測試都沒問題
可是上傳到國外的web hosting server之後也是一樣的錯誤，上次找了整整二天才解決

這一次又遇到，一開始也是往錯誤的方向找，後來突然想到有可能是一樣的問題
靈機一動，噹噹噹，加上COLLATE SQL_Latin1_General_CP1_CI_AS就好囉

以下為完整範例

Create table [#tmp_Search_Products]
(
 [i_ID] [varchar] (20) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
 [Version] [varchar] (10) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
 [skeyword] [varchar] (100) COLLATE SQL_Latin1_General_CP1_CI_AS NULL
)


Internet Explorer全螢幕模式
2009-05-13T23:18:00.000-07:00
相信大家應該都知道
在瀏覽IE時，按下F11鍵就會變成全螢幕瀏覽模式
可是當滑鼠移到視窗最上面，原本自動隱藏的功能列表會浮現出來，

可是目前進行的一個專案，需要使用觸碰式螢幕，而且到時會把滑鼠鍵盤拆掉或是鎖起來
以手碰螢幕進行路徑的導覽，如果使用F11全螢幕瀏覽，勢必會被一些白目的使用者把視窗給關掉

上網Google了一下，找到了一個解決方案，就是在IE按右鍵，在桌面上建立一個捷徑
然後在該捷徑按右鍵選擇內容，在目標的地方加上參數 -k (要有空格喔!如下)
"C:\Program Files\Internet Explorer\IEXPLORE.EXE" -k
按下確定之後，點選該捷徑!就會變成超級全螢幕模式，滑鼠移到最上面的視窗，原本自動隱藏的功能列表也不會浮現出來

那要如何關掉呢!請按Alt + F4鍵

又有人問了?如果我想要一開機就執行這個超級全螢幕模式呢?
很簡單，先把要進的頁面設定成首頁，然後依下面步驟
"開始"==>"控制台"==>"排定的工作"==>"新增排定的工作"==>"下一步(要等一下喔!這個會要等一下)"
選到"Internet Explorer"==>"按下一步"==>"選擇在您登入時執行，按下一步"==>"打上登入的密碼，按下一步"==>"按下「完成」後開啟這個xx進階功能，按下完成"==>"在執行那個加上-k的參數，記得-k之前要空一格喔"



好了!重開機看看吧


LINQ Where in and Not in
2009-01-28T17:03:00.000-08:00
在LINQ內如何如用in及not in呢
正常SQL語法

Select * From Customers Where City IN ('UK', 'TW')

在LINQ呢?

 Dim query = From c In db.Customers Where (New String() {"UK", "TW"}).Contains(c.City) Select c

那NOT IN呢?

 Dim query = From c In db.Customers Where Not (New String() {"UK", "TW"}).Contains(c.City) Select c



LINQ Where Like 的And串接搜尋
2009-01-28T16:42:00.000-08:00
簡單的例子:
在做Google搜尋時大家習慣查LINQ空格ASP.NET
轉成SQL語法是
Select * From Google Where Keyword Like '%LINQ%' And Keyword Like '%ASP.NET%'
這段語法大家一定會寫!
可是轉成LINQ呢?
大家一定覺得很簡單

For Each kw As String In Keywords.Trim.Split(" ")
    query = query.Where(Function(k As Google) k.Keyword.Contains(kw))
Next


呵呵!以上是錯誤的示範，編譯會成功
但是無法執行，原因為
Using the iteration variable in a lambda expression may have unexpected results. Instead, create a local variable within the loop and assign it the value of the iteration variable.
筆者查了好久!也有一堆人問為何這樣不行
原來只要加上一行就好了

For Each kw As String In Keywords.Trim.Split(" ")
    Dim Key As String  = kw
    query = query.Where(Function(k As Google) k.Keyword.Contains(Key))
Next


真是江湖一點訣，知道了就很容易


Group By and Order By And Left Join
2009-01-28T16:39:00.000-08:00
使用Northwind內的Table Orders


Dim db As New NorthwndDataClassesDataContext()
Dim query = From p In db.Orders() _
   Group By p.CustomerID _
   Into Total = Count(p.OrderID), avg = Average(p.OrderID) _
   Order By CustomerID _
   Select New NorthwndDLL.ddlCustomerID With {.CustomerID = CustomerID, _
                .Total = Total, _
                .avg = avg}



Dynamic LINQ Gridview Custom Paging
2009-01-28T16:31:00.000-08:00
請參考
http://weblogs.asp.net/scottgu/archive/2008/01/07/dynamic-linq-part-1-using-the-linq-dynamic-query-library.aspx

首先把DynamicLinq.vb加到App_Code內
引用

Imports System.Linq.Dynamic
Imports System.Linq.Expressions

    <DataObjectMethod(DataObjectMethodType.Select, False)> _
    Public Function GetOrgAllData(ByVal startRowIndex As Integer, _
                                  ByVal maximumRows As Integer, _
                                  ByVal sortExpression As String) As IEnumerable(Of Organization)
        'If sortExpression = "" Then sortExpression = "OrganizationsID"
        Dim tbl As New DataClassesDataContext
        Dim query = tbl.Organizations _
                    .OrderBy(IIf(sortExpression = "", "OrganizationsID", sortExpression)) _
                    .Skip(startRowIndex) _
                    .Take(maximumRows)
        Return query
    End Function

    <DataObjectMethod(DataObjectMethodType.Select, False)> _
    Public Function GetOrgAllDataCount() As Integer
        Dim tbl As New DataClassesDataContext
        Return tbl.Organizations.Count
    End Function



LINQ 初體驗
2009-01-28T16:17:00.000-08:00
看了一堆的LINQ文章之後，終於忍不住也開始寫起來了
說實在用看的比寫的容易的多，看別人做出來的和自己動手做出來的感覺真的不一樣

LINQ對於SQL語法很熟的朋友來說要轉換一點都不困難
二~三天一定可以上手，這個投資不管是對是錯，至少益多於害吧^^

寫GridView搭配ObjectDatasource時的Custom paging真的超級方便
Dim query = From p In db.Orders _
          Skip (startRowIndex) _
          Take (maximumRows) _
          Select p


但是困難的來了!如果遇到GridView搭配ObjectDatasource時的Custom paging加Sorting時
那真的頭就大了，用Dynamic LINQ可以解決，但是如果你移到BLL層級時，因為是擴充所以不能用Dynamic LINQ只能乖乖的寫Select Case
Select Case sortExpression
  Case "ShipAddress"
      query = query.OrderBy(Function(u As Orders) u.ShipAddress)
  Case "ShipAddress DESC"
      query = query.OrderByDescending(Function(u As Orders) u.ShipAddress)
  Case Else
      query = query.OrderBy(Function(u As Orders) u.OrderID)
      query = query.OrderByDescending(Function(u As Orders) u.Employees.FirstName)
End Select


這篇文章可以定義為
GridView搭配ObjectDatasource時的Custom paging加Sorting的LINQ語法


快譯通 MD8000 WiFi 電腦辭典
2009-01-28T11:23:00.000-08:00
昨夜不經意看到11年前買的無敵CD-67翻譯機
除了用來發音的喇叭壞掉之外!其它的功能一切完好
心血來潮查了查最近翻譯機的發展看到一台
MD8000 wifi 令我超級感興趣的地方就是翻譯機居然做到無線上網
呵呵!
翻譯機不外乎內建字庫幾百萬組，超級真人發音...等功能
但是掛上Wifi之外，又多了一個想買的理由囉

目前看到的開箱文針對上網部份寫的都不是很清楚
所以比較想知道
1.能不能上YouTube看到影片
2.從BT下載的rmvb檔案也支援播放嗎?rate多高還會很順
3.wifi是G型還是N型的
4.待機時間
5.查字時間

以上大概就是筆者的疑問了!
等以上問題都清楚大概才會想買一台來玩玩


微軟佛心大發:Microsoft Chart Controls for .NET 3.5 (Dundas)
2008-10-26T23:01:00.000-07:00
目前看過蠻方便用的ASP.NET Chart的元件就屬 Dundas，但是要$買，還不便宜喔

經筆者四個專案的使用，真的很好用!

但是微軟大大居然把他買下來了，而且在ASP.NET SP1整合進去，現在開放使用變免費的喔!

剛看了範例之後，使用方式一模一樣，呵呵

唯一改變的是Server的Tag由DCWC:Chart變成asp:CHART

大家要看詳細的內容可以參考保哥寫的很清楚 看這裡

因為這個緣故，讓許久沒更新BLOG的我，忍不住也來慶祝這個好消息


Exception has been thrown by the target of an invocation
2008-07-16T21:56:00.000-07:00
剛才接獲客戶通報出現以下錯誤信息
Exception has been thrown by the target of an invocation
問了新增所需要填的資料之後，便展開調查，
因為客戶給的填寫資料的發票號碼是空白的，所以我先到DB去查看，當初開發票號碼這個欄位是不是必填，調查結果為非必填，所以就是允許Null值的Insert，嗯~很好~那就是程式的問題囉

找到新增資料的程式語法如下
command.Parameters.Add("$ReInvoiceNum", DbType.String).Value = ReInvoiceNum.ToUpper()

看起來沒有問題，因為發票前2碼英文字是大寫，所以順手就ToUpper了，就是這裡有問題，為什麼呢?從這裡看不出錯誤的，要等到Run Time時才會出錯。

解答:因為發票號碼沒填任何值的情形下，傳到後端時ReInvoiceNum會等於Nothing就出錯囉

我列出二種解決方式，我選擇解法1 ^_^
解法1:在網頁端加入
  Protected Sub FormView1_ItemInserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.FormViewInsertEventArgs) Handles FormView1.ItemInserting
      e.Values("ReInvoiceNum") = e.Values("ReInvoiceNum").ToString.ToUpper()
  End Sub
在後端的新增語法改為
command.Parameters.Add("$ReInvoiceNum", DbType.String).Value = ReInvoiceNum

解法2:在後端新增語法改為
                      If ReInvoiceNum IsNot Nothing Then
                          command.Parameters.Add("$ReInvoiceNum", DbType.String).Value = ReInvoiceNum.ToUpper()
                      Else
                          command.Parameters.Add("$ReInvoiceNum", DbType.String).Value = Nothing
                      End If

Case Close


ViewState 小解析
2008-07-12T02:03:00.001-07:00
ViewState是ASP.NET用來紀錄頁面的資訊，初學者對它不是了解，但是高手對他是敬而遠之，因為不必要的資訊造成頁面http request時，佔去太多封包，那要怎麼樣用呢?

筆者做了一個小實驗，就是產生一頁MasterPage、一頁Default.aspx(內容頁)、一頁UserControl頁面，最簡單的方式是直接在Web.config裡面Page關掉 EnableViewState="false"，那整個站台就不能用viewstate了。

如果在MasterPage裡面設定EnableViewState="false"，Masterpage不能用viewstate，內容頁可以用，UserControl不能用。

如果在Default.aspx設定EnableViewState="false"，效果居然和在web.config一樣，大家都不能用viewstate

各位看倌一定猜到了，在Usercontrol設定 EnableViewState="false"後，只有本身UserControl不能用viewstate，其他二者都可以。

小實驗謝謝各位賞臉


jQuery是個好東西
2008-06-28T11:24:00.000-07:00
這幾個星期以來，我已經聽到三個以上的微軟MVP提到，並且使用jQuery了

經過我實際瀏覽的結果，jQuery真是一個好物啊，依筆者個人的了解，jQuery大大簡化了JavaScript Code，而且你本身如果JavaScript的底子很好，那jQuery一定馬上就上手了，而且用了之後一定會愛不釋手相見恨晚，我打算在下一個專案引用jQuery，寫專案或是代寫作業真的是提昇自己coding功力的好方式^^


資料庫定序
2008-05-13T12:53:00.000-07:00
如果使用了微軟提供的權限管理，在資料庫會多出11個TABLE，因為我灌的MS SQL SERVER 2005是中文版的，所以預設的資料庫定序是台灣語系，當我把DB傳到外國主機時，會自動被改成拉丁語系，造成有些資料更新不完全，解決的辦法是手動到DB的屬性去更改資料庫的定序，如下圖



TEA FOR YOUR BRAIN
2008-04-29T15:52:00.000-07:00
Brain tissue is 85% water. That's why we need to drink water to keep our brain function.
   
  I mention about Tea, because I don't like to drink water, but please remember any kind of drink is good for your brain except pop, sugar in our diet requires more water to process.
   
  If you are a programmer or a designer or your job need to use computer a lot. 
  There’s a tip to keep your dry eyes away. Put a glass of water near your monitor. I prefer to put hot tea I can see the steam on the air. When I do this I feel my dry eyes situation getting better, hehe.
   
  Most of people asked me what kind of tea I used to drank. I prefer GABA tea here a link talk about GABA tea a lot. Go online and buy tea.
   
  http://www.aurateas.com/oolong-tea-Formosa-Mingjian-GABA-Oolong-detail.aspx
   
  DRINK MORE WATER - IT WILL HELP YOUR BRAIN WORK BETTER.



DELL Insprion 530 Intel Q6600 @ 2.4G 電腦真是棒啊!
2008-04-24T00:55:00.000-07:00
最近筆者的電腦汰換成DELL Insprion 530 Intel Q6600 @ 2.4G，因為原本只有配備1G X 2的記憶體，看到主機板四個插槽中還有二個插槽剩下，基於爽度考量和工作需要考量，託友人買了2G X 2，加一加記憶體就變成6G囉。當初在買記憶體之前上GOOGLE拜了一下，怕這張OEM的板子不能支援4G以上，看到很多討論，剛好DELL最近有放出新版的BIOS剛好可以支援到8G，毫不猶豫馬上敗下去，在查找討論區的同時，也看到一篇文章，將Q6600超頻到3G，或許各位高手大大覺得GO版的Q6600隨便要超到3G以上根本是一件輕輕鬆鬆的事情，可是壞就壞在OEM的主機板，BIOS的功能全部都是鎖死的，看不到也不能調整，例如，調整電壓、倍頻、外頻...之類的設定。

好吧~本篇的重點來了，有買到DELL Insprion 530 Intel Q6600的朋友有福了，只要遮掉CPU上面的一個點，馬上無痛昇級到3G，呵呵，為什麼說是無痛呢?因為不用換電源不用換風扇不用換RAM，所有的東西都是原廠的配備，超頻和不超頻的溫度差不多一樣，看到這樣如果再不想動手實做的話，簡直就是浪費了DELL的美意啊!那麼到底是那一點呢?請看以下網址
http://forums.nvidia.com/lofiversion/index.php?t58361.html
我是用紙膠帶貼的，很容易，整個過程不到三分鐘，用CPU-Z測得的結果很令我滿意，原本外頻是266MHZ(1066)在跑，遮點之後馬上變成333MHZ(1333)，超酷的啦!

令我更滿意的是，這張板子的cpu電壓和倍頻是自動調整的，CPU使用率是0%時倍頻自動降成6，有在工作時倍頻自動昇成9，好處就是省電啊，電腦不用時CPU是用2G在跑，要用力時就自動變成3G囉!

以下是用CPU-Z測得的圖，有圖有真相






發現免費賺錢網站，只要動動滑鼠就可以喔^^
2008-03-31T03:07:00.000-07:00
寫的很詳細，只要動動滑鼠，真的就有錢轉到你的帳戶
看來廣告的商機真的是很好賺^^
網站如下:
http://freemoneyguides2.blogspot.com/
http://freemoneyguides.googlepages.com/index.html


打個廣告，自己寫的免費刊登外包接案網站
2008-03-31T02:51:00.000-07:00
目前此網站在google打關鍵字"免費外包接案"，可以排在GOOGLE搜尋第一頁第一筆
真好

網址如下:
http://www.tpievent.com


SQL語法，保留字的處理方式
2008-03-30T14:13:00.000-07:00
一般來說在Create DB Table時，很直覺的都會取好記的英文單字，例如像是:Case, Log...等等。

但是問題來了，如果在Key in SQL語法時，一個不小心就會掉進SQL保留字的錯誤信息，

舉例來說，請看以下SQL語法，更新TABLE有何問題
Update Log Set IsDeleted = 0 Where LogId = 'xxx';
看起來是不是很一般，呵，結果一執行馬上報錯，因為Log就是保留字，遇到保留字時很簡單
加上中括號把它關起來就好囉，解答如下
Update [Log] Set IsDeleted = 0 Where LogId = 'xxx';

簡單吧，保留字不止是TABLE會遇到，就連Column也是有保留字的，處理方式一模一樣
安全起見，如果都能用中括號關起來，是不是就好囉^^
Update [Log] Set [IsDeleted] = 0 Where [LogId] = 'xxx';


Ajax ModalPopup 設定寬度和長度
2008-03-30T04:10:00.000-07:00
前幾天幫客戶寫的專案內，就用到了AjaxToolKits內的ModalPopup，參考了作法之後，呵呵
測試也成功了，引進專案用使用時，一切都很順利，直到發佈專案到IIS之後，發現ModalPopup的視 窗會被擠到很下面，真是怪，再回到VS2008測試，一切正常，拜了一下google，沒有找到答案，好吧，只好自己debug了，首先看到ModalPopup的Panel只有設定width="75%"沒有設定高度，所以我加上了高度之後，vs2008測試OK，IIS測試居然也OK了。

找到原因，原來是我叫用ModalPopup時要顯示的資料長度太長，所以跳出來的視窗會被擠到很下面，後來我限定了寬度和高度，並把Panel的拉Bar設成Auto，一切正常。

我只是覺得奇怪為何沒限定高度時，在vs2008顯示是正常，在IIS顯示卻是不正常，此題留到以後再解囉

case close


用VS2005和VS2008開發並且有在用RamDisk的朋友有福了Temporary ASP.NET Files
2008-03-19T21:37:00.000-07:00
RamDisk這一套好用的軟體我想我應該不用再多做介紹，就是可以把系統內的記憶體當然硬碟來用，像筆者在用4G的記憶體就撥出256M做出一個R槽。

廢話不多說，直接切到重點
在VS2005以上開發ASP.NET專案時，開發段階系統會把網頁編譯後暫存到
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files
依你開的專案名稱再取目錄，說是暫存也不算是暫存，因為就會留在那裡了
只要你的程式有變更，就會再自行編譯進去。其實刪除也無所謂，因為只要用
VS2005以上瀏覽網頁時，它會再自行編譯進去，聰明的朋友已經想到我要說什麼了

如果可以把Temporary ASP.NET Files移到RamDisk是不是一件很美好的事情呢!

解決方案來囉!只要在專案的Web.config內加上，就可以了

<system.web>

<compilation tempDirectory="R:\ASP.Net Temporary Folder\" debug="false"/>

</system.web>


註:筆者的RamDisk是建在R槽


[OPB秘方]你有這種"該記憶體不能為read(or write)的毛病困擾你嗎?
2008-03-18T11:40:00.000-07:00
原刊登出處:滄者極限
作者:狂少
http://forum.coolaler.com/showthread.php?t=167891&highlight=0x000000

你碰過0x000000...該記憶體不能為read或是write的錯誤訊息
然後你又氣到要翻桌嗎?
來,這味狂少牌錯誤解決法包你藥到命除...
不是..是藥到病除

方法:
1.開始--->執行--->cmd
2.填入這指令,目的在重新註冊及編排所有DLL

for %1 in (%windir%\system32\*.dll) do regsvr32.exe /s %1

等所有dll重新註冊完,就不會再看到類似狀況
這對常換硬體做測試的朋友會有很大幫助!!

Good luck

真是強，連這個都知道，馬上來試用一下^^


web 2.0教學影片，看了就會！
2008-03-14T02:25:00.000-07:00
之前有朋友問我什麼是Web 2.0，我也是一知半解，雖然知道是什麼可是確很難清楚的表達，但是看完這8個教學影片之後，呵，原來Web 2.0離我們很近

影片網址如下:

http://blog.soft.idv.tw/?p=145


web testing ieunit nant2report 網站測試工具和報表
2008-03-14T01:59:00.000-07:00
想知更清楚內容請參考黑大的文章，還有PDF檔可以看，網址如下
http://blog.darkthread.net/blogs/darkthreadtw/archive/2008/02/26/1203.aspx#1771

相信大家看過黑大寫的文章之後，應該都會用了解ieunit才對，可是接下來要怎麼產生report.html呢
呵呵

為了方便起見，我自己做了一個rar檔，想要的讀者下載之後放到c槽，直接解壓縮後，
會產生一個目錄nant-0.85，這個目錄底下有二個目錄bin和TesResult，直接執行RunTest.bat後
就會開始跑Ieunit的測試項目，筆者預先做好的測試內容，RunTest.bat執行時會跳出dos視窗，接著會跳出IE開始測試，測試完畢會產生result.xml檔案，接著會跑nant2report，最後就產出result.htm來囉，有圖有真相，簡單吧!
下載nant-0.85.rar




GridView Page Ajax History 換頁時加入歷史記錄
2008-03-08T15:21:00.000-08:00
在上一篇文章介紹過如何如用ASP.NET 3.5 Extendsion的History功能今天就來實做GridView結合ObjectDataSource或SqlDataSource的換頁瀏覽紀錄

前端.aspx

<asp:ScriptManager ID="ScriptManager1" runat="server" EnableHistory="true" EnableStateHash="false"/>
<asp:TextBox ID="TextBox1" runat="server" /><asp:Button ID="Button1" runat="server" Text="Button" />
<asp:GridView ID="GridView_CustomPaging" runat="server" AllowPaging="true"
AllowSorting="true" AutoGenerateColumns="False" DataKeyNames="StuWeekID" DataSourceID="ObjectDataSource_CustomPaging" SkinID="TaideGridView">
<Columns>
<asp:BoundField DataField="StuUserID" HeaderText="StuUserID" SortExpression="StuUserID" />
<asp:BoundField DataField="EntID" HeaderText="EntID" SortExpression="EntID" />
<asp:BoundField DataField="SchoolID" HeaderText="SchoolID" SortExpression="SchoolID" />
</Columns>
</asp:GridView>
<asp:ObjectDataSource ID="ObjectDataSource_CustomPaging" runat="server" SelectMethod="GetStuWeekData" TypeName="mgStuWeek" EnablePaging="True"/>"

後端.aspx.vb(寫c#的朋友拍謝啦!網路上有很多轉換的網站，我就不貼上來了)
Protected Sub GridView_CustomPaging_PageIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView_CustomPaging.PageIndexChanged
'換頁時把頁碼加入歷史紀錄
If ScriptManager1.IsInAsyncPostBack And Not ScriptManager1.IsNavigating Then
Dim index As Integer = GridView_CustomPaging.PageIndex
ScriptManager1.AddHistoryPoint("PageIndex", index, "第 " & index + 1 & " 頁")
End If
End Sub

Protected Sub ScriptManager1_Navigate(ByVal sender As Object, ByVal e As System.Web.UI.HistoryEventArgs) Handles ScriptManager1.Navigate
'按上一頁會進到歷史紀錄的功能
Dim indexString As String = e.State("PageIndex")
Page.Title = "第 " & indexString & " 頁"
GridView_CustomPaging.PageIndex = CType(indexString, Integer)
GridView_CustomPaging.DataSourceID = ObjectDataSource_CustomPaging.ID
End Sub

搞定，簡單吧!


ASP.NET Ajax History 上一頁功能失效
2008-03-01T12:37:00.000-08:00
有在用ASP.NET Ajax 的朋友一定知道，微軟做了很方便的UpdatePanel，從此只要把做好的GridView拉到UpdatePanel內馬上享用現成的AJAX程式，但是使用Ajax Gridview的缺點也就此產生。呵呵

這應該算是一種困擾吧，假設每頁顯示100筆資料，當你看到第3頁時，突然想看某個項目的細項，當你點進去看到細項頁之後，想說按瀏覽器的上一頁會回到第3頁繼續瀏覽時，很抱歉!保證一定會回到第1頁，屢試不爽^^

有問題就會有改善的動力，微軟在新版的ASP.NET 3.5 Extendsion放入了History功能，雖然早在之前就有獨立的Control可以用，但是那是過去式了，有新的東西就來用新的吧

 要先安裝ASP.NET 3.5 Extendsion如果web hosting 有支援.Net 3.5的話，我用的web hosting剛好就有支援
 http://www.aspnix.com
  開專案時當然也要選ASP.NET 3.5 Extendsion囉
 沒選Extendsion，ScriptManager不會出現EnableHistory讓你選
 .aspx
 <asp:ScriptManager  ID="ScriptManager1" runat="server" EnableHistory="true" EnableStateHash="false" />
 底下當然還有UpdatePanel和你要顯示的Gridview之類的控件
 我試把過ViewState關掉都可以用History的功能
 .vb
    Private Sub BindRepeater(ByVal index As Int32)         If ScriptManager1.IsInAsyncPostBack And Not ScriptManager1.IsNavigating Then
              ScriptManager1.AddHistoryPoint("PageIndex", index,  ConfigurationManager.AppSettings("PageTitle").ToString() & "- 全部案件第  "  & index & "  頁")
         End If
         pager1.CurrentIndex =  index
         pager1.ItemCount =  PostedBLL.GetPostedDataCount("All")
         CaseRepeater.DataSource =  PostedBLL.GetPostedByCustomPaging(index, pager1.PageSize, "All")
          CaseRepeater.DataBind()
          CaseUpdatePanel.Update()
     End Sub
  
    
  
     Protected Sub ScriptManager1_Navigate(ByVal sender As Object, ByVal e As System.Web.UI.HistoryEventArgs) Handles  ScriptManager1.Navigate
         Dim indexString As String = e.State("PageIndex")
         Dim CaseIndex As Integer
         If String.IsNullOrEmpty(indexString) Then
             CaseIndex =  1
         Else
             CaseIndex =  Convert.ToInt32(indexString)
         End If
         Page.Title =  ConfigurationManager.AppSettings("PageTitle").ToString() & "- 全部案件第  "  & CaseIndex & "  頁"
          BindRepeater(CaseIndex)
     End Sub



今天在ASP.NET WebApplication 使用Profile摔了一跤
2008-02-28T11:06:00.000-08:00
平時開發網站專案時，習慣都是使用Create web site的方式建立，想說VS2008都內建Web Application Project了，二者的差別應該不會太大才對，當一切的事情進行很順利時，我已經把會員權限(新增會員、修改密碼、忘記密碼)和所有版面(大概十幾頁)及資料庫都寫好之後，正想用Profile做個人化設定時，在codebeside打上profile按點，理應會出現在web.config設定好的profile可用，但是點點點之後，什麼...它居然完成不理我，上網查了google之後才知，原來web site專案中好用的profile在web application居然是不能用，說不能用有點太誤會這位老大哥了，應該是說要自己寫上customer profile後端的程式如.vb或.cs後才能用，這會不會有一點太畫蛇添足了啊。

提供各位WebProfileGenerator這個關鍵字，上google查查就知怎麼用了。

為何說摔了一跤呢?因為在不能用profile的第一時間內，沒有上google拜讀，而是自己trace不能用的原因，這算是小跤，上google查了之後，發現並不是想像中的簡單就搞定profile這一塊，試了一個下午之後，心裡真是又氣又好笑，這才是大跤，因為在web site project中要使用profle簡直就跟吃飯喝水一樣，但是在web application project中就好像看的到卻吃不到一樣，走了一段不近的路，真希望Microsoft能快點改善此一擾民的用法啊!


A Must Have MSDN Reader !
2008-02-12T13:13:00.000-08:00
此筆者灌完之後，體驗真的很讚，可以看到最新的消息
切換速度和流暢度都有很好的體驗，真的是寫asp.net的人必備良品啊^^
                
  We're Web Developers.... But there is still a place for rich client apps.
  recently we published a "Syndicated Client Starter Kit" over on www.WindowsClient.net (my team owns that site too. ) 
  In the showcase for that starter kit there is an AWESOME MSDN Reader application. 
  ITS FREE - Install it !
  http://windowsclient.net/wpf/starter-kits/sce.aspx
   



amon.sys 導致系統當機
2008-02-08T13:08:00.000-08:00
今天早上發生了一件很令人驚險的事，就是當按下電腦的Power鍵時，進到windows xp 桌面時，系統就出現藍底白字的畫面，很明顯就是當機了，出現了重要的關鍵字amon.sys 導致錯誤，重開機了N次之後，還是得到一樣的結果，根據提示開機之後按F8可以進到安全模式(Safe mode)，一般來說只要能進到安全模式並且順利開啟就表示系統某地方卡住了，可以不用重灌，而且神奇的是，只要進了安全模式後，再重新開機系統就會好了，可惜這一次並派不上場。
拜了google一下，關鍵字打上amon.sys按下搜尋，看來有些人也遇到和我一樣的問題，歸納如下就是NOD32防毒軟體和windows xp系統衝突，了解原因之後就好解決了。

重新開機後按F8進到安全模式(Safe mode)，把NOD32防毒軟體整個移除掉，再重新開機，呵呵，一切正常囉，再重新灌一次NOD32再重開機也是完好如初，看來真的是NOD32和windows xp突然卡到，好險有google的幫助，不然差一點就衝動又重灌系統了，呵!


林宥嘉台北跨年演唱-背影
2008-01-27T12:58:00.000-08:00
這是林宥嘉跨年的Silverlight版本，可以點畫面二下就變全螢幕觀看喔，超讚
看不到的人，只要點Microsoft Silverlight 那個箭頭安裝即可，裝完再重新整理就好囉 





無法啟用條件約束。一或多個資料列的值違反非 Null、唯一或外部索引鍵條件約束。
2008-01-22T23:09:00.000-08:00
客戶回報網頁出現問題，我在自己本機上看到的錯誤信息如下:
真是奇怪啊，完全摸不著邊，直接到dataset.xsd去Preview Data...
又可以看到資料呈現無誤。

利用Toad for SQL Server比較(schema compare)新舊版本的db之後發現，
其中有一個欄位長度是Char(8)被改成Char(32)，可是dataset.xsd確顯示還是舊的8
把長度改成32之後，一切都正常了。

Case closed....

後記:如果客戶會對欄位的長度一直修改的話，直接把MaxLength設成-1，表示無限大
那就再也不會出錯了




雙螢幕之路達成
2008-01-07T14:07:00.000-08:00
常常在用vs2008開發的朋友有福了，除了可以用Split View之外，整體的速度用過感覺也比vs2005順多了。

但是常常在執行看網頁時，還是要切換視窗，有點煩加累，所以上網搜尋想買個雙螢幕的顯示卡來過過癮，結果出乎意料之外，找到了USB 2.0 VGA，原來還有這個東東啊，只要接上USB再搬個螢幕，馬上連電腦機殼都不用拆，我也達成了我的雙螢幕之夢啊!
筆者原本是20吋寬螢幕加上外接19吋方螢幕，擺在一起不用開機也看起來很專業囉!

試用心得:
我只能說真的是爽度100%，呵呵，現在看技術文章要對照著操作時，根本不用切換視窗，感覺就好像去唱KTV會有大字報跑出來一樣，再也不用像考試偷看小抄，一會目光要聚集在小抄、監考官和考卷上面，那樣的累人了。
建議程式人員和設計人員，趁LCD螢幕便宜之際也去敗一個USB 2.0 VGA + LCD吧，呵呵！


Error in table name or view name in UPDATE clause.
2008-01-06T21:53:00.000-08:00
今天在寫.xsd檔案時，要做update時，遇到以下錯誤訊息
Error in table name or view name in UPDATE clause.
Unable to parse query text.
查詢google了一下，發現應該是Table裡面沒有主 索引鍵的緣故，因為是接別人的案子，Table不是我開的，所以沒有很特別注意，加上主索引鍵之後，就搞定了。

Case close




SQL Server Express 2005 無法還原資料庫
2008-01-04T23:04:00.000-08:00
今天遇到一件怪事，想把.bak檔還原到db時，居然報出錯誤信息。
先說明一下敵情，因為重灌系統的緣故在安裝VS2008時就一併把SQL Server Express 2005 打勾就一起安裝了，結果還原資料庫時出現錯誤信息。
Failed to retrieve data for this request.  (Microsoft.SqlServer.Express.SmoEnum)
馬上打開ProcessMonitor使用Path Filter並指到.bak檔的路徑C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Backup
找到元兇，原來是權限的關係，把NETWORK SERVICE加到Administrators群組即可，別忘了加完之後要把DB Service重新啟動才行。



上傳檔案到db varbinary截段字串錯誤
2007-11-05T12:59:00.000-08:00
  CREATE   TABLE  [dbo].[fl_ufd] (
       [fl_ufdID] [int]   IDENTITY  (1,   1)   NOT   NULL  ,
        [fl_file] [varbinary]  (-1)  NULL  ,
         CONSTRAINT  [PK_fl_ufd]   PRIMARY   KEY    CLUSTERED 
       (
           [fl_ufdID]
       )    ON  [PRIMARY] 
   )   ON  [PRIMARY]
  
GO
   
改為以下就ok，不然會出現DB截段的錯誤修息
  
[fl_file] [varbinary]  (MAX)  NULLL  ,



楊宗緯-Super Woman (Microsoft Silverlight版)
2007-09-07T01:04:00.000-07:00
觀眾真是熱情啊
呵呵
用我電腦看全螢幕時反而不會頓，建議用全螢幕看
可是用小視窗看就會一頓一頓的~真是怪啊






楊宗緯-至少還有你(Microsoft Silverlight版)
2007-09-06T00:34:00.000-07:00
這是微軟最新的技術Microsoft Silverlight，為了慶祝今天2007-09-05他們終於放出Silverlight(銀光) 1.0 正式版，我就特地來使用一下^^
相信不久的將來Microsoft Silverlight會變成Flash killer和YouTube Killer 呵呵
如果大大看不到影片的，只要安裝Silverlight player即可(不到1.1M Bytes)，
就像是看Flash要安裝Flash player一樣
用滑鼠點畫面1下是"開始播放"和"停止播放"
用滑鼠點畫面2下是"全螢幕"和"原始大小"
或是按左邊的+號就會變全螢幕，超讚~
要變回原來大小只要按Esc鍵或是畫面點2下就恢復囉





別搶啦~
2007-08-19T13:05:00.001-07:00
     


閃吧!七彩資料夾
2007-07-18T14:51:00.000-07:00
經筆者測試，安裝簡單，裝完直接在要設定顏色的資料夾按右鍵就可以變色或是還原。
蠻方便的，以下是筆者實作的照片


下載網址：http://icolorfolder.sourceforge.net/download_icolorfolder_page.htm


免安裝 切割圖片網站
2007-07-03T14:14:00.000-07:00
如果想切割圖片大小，又不想安裝任何軟體時，這個網站就派上用場囉

操作很簡單，上傳自己的照片，選擇要的寬和高，移動要切割的位置

最後按下右邊切割的Button，再把切割完的照片下載回來就行囉^^

連結網址


超能魔術-把LACOSTE變成鱷魚
2007-06-22T12:43:00.000-07:00
每次看Cyril的魔術都有驚喜



超級星光大道 楊宗緯 背叛
2007-06-18T17:11:00.001-07:00
超級星光大道 楊宗緯 背叛
2007-04-13
超精采



超級星光大道 林宥嘉 你快樂所以我快樂
2007-06-18T16:14:00.000-07:00
超級星光大道 林宥嘉 你快樂所以我快樂
2007-04-06 
花蓮人加油^^



超級星光大道 林宥嘉 Can't take my eyes off you
2007-06-18T15:36:00.000-07:00
2007-03-23 
超級星光大道 
林宥嘉 Can't take my eyes off you
花蓮人加油^^



超級星光大道 林宥嘉 走鋼索的人
2007-06-18T15:11:00.000-07:00
2007-03-09 比賽完整片段
超級星光大道 林宥嘉 走鋼索的人



超級星光大道 楊宗緯 Goodbye my love
2007-06-18T14:04:00.000-07:00
2007-03-16比賽完整片段
超級星光大道 楊宗緯 Goodbye my love



I Like Your Colors 分析網站配色的工具
2007-06-06T12:08:00.000-07:00
轉載:免費資源網路社群

輸入該網站的網址，馬上就會分析出該網站的配色

連.CSS檔都可以輕鬆下載，不用再慢慢找囉



http://redalt.com/Tools/I+Like+Your+Colors


大師級的廣告果然就是不一樣
2007-05-24T13:45:00.000-07:00
厲害厲害



餅乾Logo產生器
2007-05-20T00:37:00.000-07:00
轉貼:免費資源網路社群


bokstavskex 網站提供免費的餅乾風格Logo製作，支援英文 A-Z 的二十六個英文字母，只要在第一行填入欲產生的字串，第二行則是產生後圖片的高度，設定完後點選 Submit 即可產生一個餅乾風格的圖片，非常有趣。
 【網站網址】http://bokstavskex.framtid.nu/agi.asp
轉出的照片另存時選所有檔案，並把檔名改為.gif即可


如何於VS2005使用RssToolkit
2007-05-06T20:18:00.000-07:00
把RssToolkit.dll放到專案Bin目錄
下載檔案

在專案中引用此DLL


再來就可以在專案中用到這二個Controls, RssDataSource, RssHyperLink
RssDataSource用法
加入一個DataList和一個RssDataSource

到屬性RssDataSource內容更改
MaxItems要顯示的筆數，預設值為0，表示無限大
Url就是rss的位置或是Atom
這裡要注意一下，一般rss都有一個叫rss.xml的檔案
可是google的blog是用atom原本給的網址是
http://lovetoknowgoogleandmstech.blogspot.com/feeds/posts/default
不知為何，一定要改成下面這一個才可以成功被rsstoolkit control引用
http://lovetoknowgoogleandmstech.blogspot.com/feeds/posts/default?alt=rss

DataList裡面編輯樣板加入一個超連結
Text連繫到title, NavigateUrl連繫到link

完成圖







一些關於Silverlight 的新消息
2007-05-03T12:40:00.000-07:00
微軟在2007/04/30更新了Silverlight官方網站，其網址如下：
http://silverlight.net/

Sliverlight 1.0 & 1.1下載網址：
http://www.microsoft.com/silverlight/downloads.aspx
雖然1.0和1.1版都還不是正式版，但是建議還是要漸進式學習，不要用跳躍式學習，因為中間斷層太多了，學起來也辛苦。簡單的說就是別再等了！


ASP.NET 2.0 圖片驗證
2007-04-30T17:54:00.000-07:00
 使用方法：
在需要它的頁面html裡添加
＜img src="identifyingcode.aspx" /＞
後端CS
HttpCookieCollection cookies =  Request.Cookies;
string tmp =  cookies["ImageV"].Value;
然後比tmp與獲取的較驗證碼文本框中的值是否相同
後端VB
Dim cookies As  HttpCookieCollection = Request.Cookies
Dim tmp As String =  cookies("ImageV").Value
 

此寫法雖然是cs寫法，但是用在vb專案直接叫用此頁面即可
 identifyingcode.aspx
 直接寫到identifyingcode.aspx.cs即可，前端不做任何事
 using System;
using  System.Data;
using System.Configuration;
using  System.Collections;
using System.Web;
using System.Web.Security;
using  System.Web.UI;
using System.Web.UI.WebControls;
using  System.Web.UI.WebControls.WebParts;
using  System.Web.UI.HtmlControls;
using System.Drawing;
using  System.Drawing.Imaging;
using System.IO;
public partial class  identifyingcode : System.Web.UI.Page
{
protected void Page_Load(object  sender, EventArgs e)
{
  string tmp = RndNum(4);
   HttpCookie a = new HttpCookie("ImageV", tmp);
   Response.Cookies.Add(a);
  this.ValidateCode(tmp);
  
     }
private void  ValidateCode(string VNum)
{
  Bitmap Img = null;
   Graphics g = null;
  MemoryStream ms = null;
  
         int gheight = VNum.Length *  12;
  Img = new Bitmap(gheight, 25);
  g =  Graphics.FromImage(Img);
  //背景颜色
   g.Clear(Color.LightSteelBlue);
  //文字字体
  Font f = new  Font("Arial Black", 10);
  //文字颜色
  SolidBrush s = new  SolidBrush(Color.RoyalBlue);
  g.DrawString(VNum, f, s, 3,  3);
  ms = new MemoryStream();
  Img.Save(ms,  ImageFormat.Jpeg);
  Response.ClearContent();
   Response.ContentType = "images/Jpeg";
   Response.BinaryWrite(ms.ToArray());
  g.Dispose();
   Img.Dispose();
  Response.End();
}
  
     private string RndNum(int  VcodeNum)
{
  string Vchar =  "0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p" +
   ",q,r,s,t,u,v,w,x,y,z";
  string[] VcArray = Vchar.Split(new Char[] {  ',' });
  string VNum = "";
  int temp = -1;
  
         Random rand = new  Random();
  
         for (int i = 1; i < rand =" new">
  
             int t =  rand.Next(35);
      if (temp != -1 &&amp;amp;amp;amp;amp;amp; temp ==  t)
      {
          return RndNum(VcodeNum);
       }
      temp = t;
      VNum += VcArray[t];
   }
  return VNum;
}
 }



Google免費網路相簿Picasa2
2007-04-27T12:48:00.000-07:00
Google Picasa2真是神奇的軟體，只要有Google帳號就可以免費使用1G的相簿空間，完裝完Picasa2後直接就會用，簡單到不行，一次一個資料夾上傳或是合併資料夾，都很簡單，為什麼Google可以做到這麼人性化的軟體呢?完全不用看說明，說難聽點白痴都會用，寫到此我真的不佩服Google了。很多細節都被注意到了，整批上傳整批下載，公開不公開......，完全不拖泥帶水，一次就給足全部的功能，還有很多很多功能請讀者自行體會囉。
軟體下載：http://picasa.google.com/intl/zh-TW/index.html
熱氣球大展



超好玩Flash小遊戲，背景音樂也讚
2007-04-26T17:09:00.000-07:00
網址如下:
玩法，第一次要用滑鼠左鍵跳一次，之後移動滑鼠就行
左上角會顯示目前分數，白色的鳥會讓目前的分數加倍
目前我玩的最高分數是69XXXX分^^

http://www.ferryhalim.com/orisinal/




海賊王主題曲真人演唱Boystyle
2007-04-26T16:02:00.000-07:00
海賊王主題曲




Google圖書搜尋
2007-04-25T18:44:00.000-07:00
Google圖書搜尋
http://books.google.com.tw/

畫面如下:



Google 部落格搜尋服務
2007-04-25T18:40:00.000-07:00
連結網址:
http://blogsearch.google.com/

畫面如下:



Google免費翻譯，英文翻中文、中文翻英文
2007-04-25T18:32:00.000-07:00
網站也可以線上翻譯，真是太猛了

網址
http://www.google.com/translate_t

本部落格翻成英文的連結
按此連結





刪除IIS無用的ASP.NET 瀏覽時期產生的DLL暫存檔
2007-04-24T23:15:00.000-07:00
刪除IIS無用的ASP.NET 瀏覽時期產生的DLL暫存檔

請於C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files 內的檔案刪除.

此資料夾是把ASP.NET於第一次瀏覽時產生之暫存DLL檔.

未避免暫存過多，佔用磁碟空間，請自行檢查與維護。

經筆者實際刪除結果，刪了200多M的空間，酷吧!





VS2005專案同時使用C#與VB類別程式
2007-04-24T19:23:00.000-07:00
步驟1:
在App_Code建立cs與vb資料夾

步驟2:vb目錄裡面建立vbobj.vb內容如下
Imports  Microsoft.VisualBasic
  
 Public Class VBObject
Public Function  Hello() As String
  Return "Hi...VB"
End Function
End  Class
  
 cs目錄裡面建立csobj.cs內容如下
using  System;
 
public class CSharpObject
{
public  string Hello()
{
  return "Hi...C#";
}
}

步驟3:
Web.config設定
 


步驟4:
前端頁面叫用
VB用法
'呼叫C#類別
Protected Sub btnCSharp_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCSharp.Click
Dim myCSharpObject As New CSharpObject
txtMsg1.Text = myCSharpObject.Hello()
End Sub
'呼叫VB類別
Protected Sub btnVB_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnVB.Click
Dim myVBObject As New VBObject
txtMsg2.Text = myVBObject.Hello()
End Sub

CS用法　
//呼叫C#類別
protected void btnCSharp_Click(object sender, EventArgs e)
{
CSharpObject myCSharpObject = new CSharpObject();
txtMsg1.Text = myCSharpObject.Hello();
}
//呼叫VB類別
protected void btnVB_Click(object sender, EventArgs e)
{
VBObject myVBObject = new VBObject();
txtMsg2.Text = myVBObject.Hello();
}





湘北籃球隊-kuso版
2007-04-22T19:35:00.000-07:00
看了想扁人^^




如何為VS2005舊專案加上AJAX功能，修改Web.config就可以達成喔
2007-04-22T02:42:00.000-07:00
步驟1:
首先為您的IIS SERVER安裝ASP.NET AJAX (Free Framework)，目前為v1.0的版本。
安裝很簡單，而且不用重新開機

步驟2:
打開vs2005舊專案的web.config

依照下面網頁的步驟即可

注意黑色大字的標籤不要copy到就行囉

天天都要dot Net

程式設計師勸敗 QNAP RAID 1 檔案伺服器管理

TortoiseSVN 使用，使用分支Branch開發新功能

Toad For SQL 5.5看到Description (描述)了

Linq DataClasses Cache問題

真的被MS SQL版本問題卡到

繼上一篇Easeus backup之後對SSD的影響

推薦:快速上手EASEUS Todo Backup 2.0 ,免費備份還原Windows系統

快速上手EASEUS Todo Backup 2.0 ,免費備份還原Windows系統

是夠義氣的朋友，就該幫忙擺脫IE6!" XD (Friends don't let friends use IE6)

ASP.NET Slideshowextender Using WebService

ASP.NET 網頁名稱的保留字

使用SmtpClient注意事項如果你不是使用.Net 4.0+

Visual Studio 2010 英文版 .NET 3.5 SP1 Crystal Report 2008 FP31 Winform 內嵌於 Setup 專案內的解決方案

Word 套版 With Office Word 2007 問題

Crystal Reprot For VS 2010

Windows 7 Print Spooler 自動關閉

Linq Where in 進階版

Winfrom 子視窗傳值給父視窗

Vmware Open Intel VT

Windows 7 當機 處理方式

使用LINQ 得到Server時間

新年新氣象~昇級Windows 7 X64

VB.net DateDiff 取得日期是週末或是非週末

LINQ 查日期區間 between 日期 From to 使用VB.NET

大易三碼5.1版 win7 x64 windows 7 64位元 完美解決方案

BT @ China 联盟 - BT搜索引擎, BT @ China 聯盟 - BT搜索引擎~復活了~可以下載了

String was not recognized as a valid DateTime.Couldn't store <12/15/2009> in pqh_Quotation_Date Column. Expected type is DateTime.

ToString Format 使用時的注意事項

ToString Format 齊頭用法

Linq 的ROW_NUMBER() 使用 VB.NET

Linq to SQL 三層式架構之商業層使用Using的問題

Infragistics Win UltraWinGrid 水平捲軸 移過太慢造成畫面錯誤

WinForm內開啟一個新灠器的視窗

中文存入 MS SQL 2005 亂碼解決方案

Decimal.Round 產出的錯誤信息

VMware 7 Preview

如何利用表單檔名(字串)，動態叫出winform

SQL 2005自動備份排程作業

Godaddy.com web hosting and email server

新工作新氣象

Cannot resolve the collation conflict between "SQL_Latin1_General_CP1_CI_AS" and "Latin1_General_CI_AI" in the equal to operation.

Internet Explorer全螢幕模式

LINQ Where in and Not in

LINQ Where Like 的And串接搜尋

Group By and Order By And Left Join

Dynamic LINQ Gridview Custom Paging

LINQ 初體驗

快譯通 MD8000 WiFi 電腦辭典

微軟佛心大發:Microsoft Chart Controls for .NET 3.5 (Dundas)

Exception has been thrown by the target of an invocation

ViewState 小解析

jQuery是個好東西

資料庫定序

TEA FOR YOUR BRAIN

DELL Insprion 530 Intel Q6600 @ 2.4G 電腦真是棒啊!

發現免費賺錢網站，只要動動滑鼠就可以喔^^

打個廣告，自己寫的免費刊登外包接案網站

SQL語法，保留字的處理方式

Ajax ModalPopup 設定寬度和長度

用VS2005和VS2008開發並且有在用RamDisk的朋友有福了Temporary ASP.NET Files

[OPB秘方]你有這種"該記憶體不能為read(or write)的毛病困擾你嗎?

web 2.0教學影片，看了就會！

web testing ieunit nant2report 網站測試工具和報表

GridView Page Ajax History 換頁時加入歷史記錄

ASP.NET Ajax History 上一頁功能失效

今天在ASP.NET WebApplication 使用Profile摔了一跤

A Must Have MSDN Reader !

amon.sys 導致系統當機

林宥嘉台北跨年演唱-背影

無法啟用條件約束。一或多個資料列的值違反非 Null、唯一或外部索引鍵條件約束。

雙螢幕之路達成

Error in table name or view name in UPDATE clause.

SQL Server Express 2005 無法還原資料庫

上傳檔案到db varbinary截段字串錯誤

楊宗緯-Super Woman (Microsoft Silverlight版)

楊宗緯-至少還有你(Microsoft Silverlight版)

別搶啦~

閃吧!七彩資料夾

免安裝 切割圖片網站

Windows 7 當機處理方式

大易三碼5.1版 win7 x64 windows 7 64位元完美解決方案

ToString Format　使用時的注意事項

Infragistics Win UltraWinGrid 水平捲軸移過太慢造成畫面錯誤

免安裝切割圖片網站

超級星光大道楊宗緯背叛

超級星光大道林宥嘉你快樂所以我快樂

超級星光大道林宥嘉 Can't take my eyes off you

超級星光大道林宥嘉走鋼索的人

超級星光大道楊宗緯 Goodbye my love