MSSQL資料庫

使用GridView顯示Sql資料庫的Table Layout(Schema)

topcat — Wed, 28 May 2008 14:19:00 GMT

小喵在開發系統過程中，經常會去查詢資料庫Table的Layout，一般來說會把他做成額外的文件，例如用Excel把Table的Layout打在上面，不過這個會有個問題，當資料庫Layout變動的時候，如果忘記去修改Excel文件中的Layout，那麼久而久之就會造成困擾(看到的文件與實際資料庫的不符合)

因此小喵特別設計一個ASP.NET的畫面用來查詢資料庫各Table的Layout，基本上符合以下幾個需求

自動列出指定資料庫(DB)的所有Table
可以設定Table的中文名稱，描述Table的用途
點選Table名稱，可以列出該Table的Layout
將Table各欄位的說明直接寫在資料表設計時的【描述】裡面
可以對欄位的描述加上註解

以下先來看看執行的畫面：

首先看列出資料庫中所有資料表的部分

接著看點選單一資料表名稱，顯示該資料表的Layout

(在畫面上，會將主索引的欄位使用不同顏色顯示)

在資料庫中，會使用【描述】這個欄位來存放【欄位中文名】與【備註】，使用;區隔

接著就來看看程式方面如何處理

小喵先重點的描述一些關鍵的部分

如何取得某資料庫中所有的資料表
如何取得某資料表的Schema
描述的部分：在資料庫中存在於另外的地方--Extended Property

◎資料庫中所有資料表：透過內定的Stored Procedure sp_tables

◎取得資料表Schema

◎取得欄位說明、備註(Extended Property)：這個是透過Sql內定的Function來處理

透過以上這些關鍵的技術，就能夠達到

最後小喵把相關的程式附上，特別說明一下，由於小喵是透過ObjectDataSouce去存取Complus的方式進行的，因此各位實際應用的時候，請您再擷取適當的部分程式碼。

畫面的部分：

<asp:ScriptManager id="ScriptManager1" runat="server">
    </asp:ScriptManager>
    <asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" CellPadding="4"
        DataSourceID="ObjectDataSource1" ForeColor="#333333" DataKeyNames="Tbl" BorderColor="Black" Font-Size="Small" PageSize="15">
        <FooterStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
        <Columns>
            <asp:CommandField ShowSelectButton="True" SelectText="Layout" ShowEditButton="True" HeaderText="控制" />
            <asp:BoundField DataField="Tbl" HeaderText="資料表" ReadOnly="True" />
            <asp:BoundField DataField="TblName" HeaderText="資料表名稱" />
            <asp:BoundField DataField="MEMO" HeaderText="備註" />
        </Columns>
        <RowStyle BackColor="#EFF3FB" BorderColor="DimGray" BorderStyle="Solid" />
        <EditRowStyle BackColor="#2461BF" />
        <SelectedRowStyle BackColor="#D1DDF1" Font-Bold="True" ForeColor="#333333" />
        <PagerStyle BackColor="#2461BF" ForeColor="White" HorizontalAlign="Center" />
        <HeaderStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
        <AlternatingRowStyle BackColor="White" />
    </asp:GridView>

<asp:ObjectDataSource ID="ObjectDataSource1" runat="server" SelectMethod="GetTableList"
        TypeName="CCATTBLObj" UpdateMethod="ChgTblData">
        <UpdateParameters>
            <asp:Parameter Name="Tbl" Type="String" />
            <asp:Parameter Name="TblName" Type="String" />
            <asp:Parameter Name="MEMO" Type="String" />
            <asp:Parameter Name="User" Type="String" />
        </UpdateParameters>
    </asp:ObjectDataSource>
    <div id="divLayout" runat="server" visible="false">
        <asp:Button ID="btnSltTable" runat="server" Text="選取其他資料表" />
        <table border="1" class="tbl1">
            <tr class="dh">
                <th>
                    資料表</th>
                <th>
                    資料表名稱</th>
                <th style="width: 78px">
                    備註</th>
            </tr>
            <tr class="dl">
                <td>
                    <asp:Label ID="lblTbl" runat="server" Text=""></asp:Label>
                </td>
                <td>
                    <asp:Label ID="lblTblName" runat="server" Text=""></asp:Label>
                </td>
                <td style="width: 78px">
                    <asp:Label ID="lblMEMO" runat="server" Text=""></asp:Label>
                </td>
            </tr>
        </table>
        <asp:GridView ID="GridView2" runat="server" AutoGenerateColumns="False" BorderColor="Black"
            CellPadding="4" DataSourceID="ObjectDataSource2" Font-Size="Small" ForeColor="#333333">
            <FooterStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
            <Columns>
                <asp:BoundField DataField="SENC" HeaderText="順號" />
                <asp:BoundField DataField="PK" HeaderText="主索引" />
                <asp:BoundField DataField="Fld" HeaderText="欄位" />
                <asp:BoundField DataField="FldName" HeaderText="欄位中文名" />
                <asp:BoundField DataField="DataType" HeaderText="資料型態" />
                <asp:BoundField DataField="DataSize" HeaderText="資料大小" />
                <asp:BoundField DataField="DecimalSize" HeaderText="小數位數" />
                <asp:BoundField DataField="NULLAble" HeaderText="是否允許NULL" />
                <asp:BoundField DataField="DefaultValue" HeaderText="預設值" />
                <asp:BoundField DataField="MEMO" HeaderText="備註" />
            </Columns>
            <RowStyle BackColor="#EFF3FB" />
            <EditRowStyle BackColor="#2461BF" />
            <SelectedRowStyle BackColor="#D1DDF1" Font-Bold="True" ForeColor="#333333" />
            <PagerStyle BackColor="#2461BF" ForeColor="White" HorizontalAlign="Center" />
            <HeaderStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
            <AlternatingRowStyle BackColor="White" />
        </asp:GridView>
        <asp:ObjectDataSource ID="ObjectDataSource2" runat="server" SelectMethod="GetTableLayout"
            TypeName="CCATTBLObj">
            <SelectParameters>
                <asp:ControlParameter ControlID="GridView1" Name="TableName" PropertyName="SelectedValue"
                    Type="String" />
            </SelectParameters>
        </asp:ObjectDataSource>
    </div>
    <asp:Label ID="lblErrMsg" runat="server" ForeColor="Red"></asp:Label>

CodeFile

Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged Dim Tbl As String = Me.GridView1.SelectedValue.ToString Me.lblTbl.Text = Tbl If Tbl <> "" Then Dim obj As Object = CreateObject("PCATTBL.CCATTBL1") Try Dim P As String = "" Dim R As String = "" Dim Ds As New DataSet Dim tmpTblName As String Dim tmpMEMO As String Dim rc As String = obj.SelectTBL(Tbl, Ds, P, R) If Ds.Tables(0).Rows.Count > 0 Then Me.divLayout.Visible = True Me.GridView1.Visible = False tmpTblName = Ds.Tables(0).Rows(0).Item("TblName") tmpMEMO = Ds.Tables(0).Rows(0).Item("MEMO") 'Me.lblTbl.Text = Tbl Me.lblTblName.Text = tmpTblName Me.lblMEMO.Text = tmpMEMO End If Catch ex As Exception Me.lblErrMsg.Text = ex.Message.ToString Finally obj.Dispose() obj = Nothing End Try End If End Sub Protected Sub GridView2_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView2.RowDataBound If e.Row.Cells(1).Text = "PK" Then e.Row.BackColor = Drawing.Color.Pink End If End Sub Protected Sub btnSltTable_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSltTable.Click Me.divLayout.Visible = False Me.GridView1.Visible = True End Sub Protected Sub Page_Load1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.lblErrMsg.Text = "" End Sub

Class的部分

Imports Microsoft.VisualBasic Imports System.Data Public Class CCATTBLObj Dim m_Tbl As String Dim m_TblName As String Dim m_MEMO As String Public Property Tbl() As String Get Return m_Tbl End Get Set(ByVal value As String) m_Tbl = value End Set End Property Public Property TblName() As String Get Return m_TblName End Get Set(ByVal value As String) m_TblName = value End Set End Property Public Property MEMO() As String Get Return m_MEMO End Get Set(ByVal value As String) m_MEMO = value End Set End Property Public Function GetTableLayout(ByVal TableName As String) As DataTable Dim Dt As DataTable Using obj As Object = CreateObject("PCATTBL.CCATTBL1") Dim P As String = "" Dim R As String = "" Try Dt = obj.GetTableLayout(TableName, P, R) Catch ex As Exception Throw Finally End Try End Using Return Dt End Function Public Function GetTableList() As DataTable Dim Dt As DataTable Using obj As Object = CreateObject("PCATTBL.CCATTBL1") Dim P As String = "" Dim R As String = "" Try Dt = obj.GetTblList("", P, R) Catch ex As Exception Throw Finally End Try End Using Return Dt End Function Public Function ChgTblData(ByVal Tbl As String, ByVal TblName As String, ByVal MEMO As String, ByVal User As String) As String Using obj As Object = CreateObject("PCATTBL.CCATTBL2") Dim P As String = "" Dim R As String = "" If MEMO Is Nothing Then MEMO = "" End If Try Dim rc = obj.ChgTbl(Tbl, TblName, MEMO, P, R, User) Return rc Catch ex As Exception Throw Finally End Try End Using End Function End Class

最後是COM+中的Class，以這個範例，

PCATTBL.CCATTBL1

Imports System.EnterpriseServices Imports System.Runtime.InteropServices Imports System.Data.SqlClient Imports System.Data Imports System.IO <Guid("EF8D9AA8-11E5-46FD-B7F2-6FD0DB37168C"), _ EventTrackingEnabled(True)> _ Public Class CCATTBL1 Inherits ServicedComponent Const DBName As String = "DCAT" Public Function GetConnStr(ByVal DBName As String) As String '************************************************************************* '** 撰寫者：小喵(topcat) 撰寫日期：20080507 '** 用途： 1.讀取Connection String的方式 '** 做法： '** 1.傳入參數DataBase Name DBName '** 2.透過Stream將文字檔讀出 '** 3.將取得的資料傳回 '** 4.關閉相關物件 '** 注意事項： '** 1. '** 2. '** 維護記錄： '** 維護者：姓名(員工代號) 維護日期：日期 '** 維護項目： '** 1. '** 2. '** 做法： 1. '** 2. '** 注意事項： '** 1. '************************************************************************* Dim StrmRd As New StreamReader("C:\DataLink\" + DBName + ".ini") Dim Line As String = "" Dim ConnStr As String = "" Try Do Line = StrmRd.ReadLine() If Line <> "" Then ConnStr += Line End If Loop Until Line Is Nothing GetConnStr = ConnStr Catch ex As Exception Throw New Exception(ex.Message.ToString) Finally StrmRd.Close() StrmRd.Dispose() StrmRd = Nothing End Try End Function Public Function GetTblList(ByVal In1 As String, ByRef P As String, ByRef R As String) As DataTable '************************************************************************* '** 撰寫者：小喵(topcat) 撰寫日期：20080507 '** 用途： 1.列出資料庫中所有資料表 '** 做法： '** 1.列出本系統資料庫中所有資料表 '** 2.比對TBL資料表，設定資料表名稱、備註 '** 3.傳回DataTable '** 4. '** 注意事項： '** 1. '** 2. '** 維護記錄： '** 維護者：姓名(員工代號) 維護日期：日期 '** 維護項目： '** 1. '** 2. '** 做法： 1. '** 2. '** 注意事項： '** 1. '************************************************************************* Dim ConnStr As String = GetConnStr(DBName) Dim Dt1 As New DataTable Dt1.Columns.Add("Tbl", Type.GetType("System.String")) Dt1.Columns.Add("TblName", Type.GetType("System.String")) Dt1.Columns.Add("MEMO", Type.GetType("System.String")) Using Conn As New SqlConnection(ConnStr) Conn.Open() Dim SqlTxt As String = "" Dim Cmmd As SqlCommand Dim Dr As SqlDataReader '** 1.列出本系統資料庫中所有資料表 SqlTxt += " EXEC sp_tables " SqlTxt += " @table_name = '%', " SqlTxt += " @table_owner = 'dbo', " SqlTxt += " @table_qualifier = @DBName; " SqlTxt += " " Cmmd = New SqlCommand(SqlTxt, Conn) Cmmd.Parameters.AddWithValue("@DBName", DBName) Dr = Cmmd.ExecuteReader Dim tmpTblName As String = "" Dim tmpRw As DataRow If Dr.HasRows Then While Dr.Read tmpTblName = Dr.Item("TABLE_NAME") tmpRw = Dt1.NewRow tmpRw.Item("Tbl") = tmpTblName Dt1.Rows.Add(tmpRw) End While End If Dr.Close() '** 2.比對TBL資料表，設定資料表名稱、備註 SqlTxt = "" SqlTxt += " SELECT * " SqlTxt += " FROM TCATTBL WITH (NOLOCK) " SqlTxt += " " Cmmd = New SqlCommand(SqlTxt, Conn) Dr = Cmmd.ExecuteReader Dim rws() As DataRow If Dr.HasRows Then While Dr.Read tmpTblName = Dr.Item("Tbl") rws = Dt1.Select("Tbl = '" + tmpTblName + "'") rws(0).Item("TblName") = Dr.Item("TblName") rws(0).Item("MEMO") = Dr.Item("MEMO") End While End If Dr.Close() '** 3.傳回DataTable Conn.Close() End Using Return Dt1 End Function Public Function GetTableLayout(ByVal TableName As String, ByRef P As String, ByRef R As String) As DataTable '************************************************************************* '** 撰寫者：小喵(topcat) 撰寫日期：20080507 '** 用途： 1.列出指定資料表的Layout '** 做法： '** 1. '** 2. '** 3. '** 4. '** 注意事項： '** 1. '** 2. '** 維護記錄： '** 維護者：姓名(員工代號) 維護日期：日期 '** 維護項目： '** 1. '** 2. '** 做法： 1. '** 2. '** 注意事項： '** 1. '************************************************************************* '建立回傳的DataTable Dim Dt As New DataTable Dim y As Integer = 0 '設定Dt欄位 Dt.Columns.Add("SENC", Type.GetType("System.Decimal")) Dt.Columns.Add("PK", Type.GetType("System.String")) Dt.Columns.Add("Fld", Type.GetType("System.String")) Dt.Columns.Add("FldName", Type.GetType("System.String")) Dt.Columns.Add("DataType", Type.GetType("System.String")) Dt.Columns.Add("DataSize", Type.GetType("System.String")) Dt.Columns.Add("DecimalSize", Type.GetType("System.String")) Dt.Columns.Add("NULLAble", Type.GetType("System.String")) Dt.Columns.Add("DefaultValue", Type.GetType("System.String")) Dt.Columns.Add("MEMO", Type.GetType("System.String")) Dim ConnStr As String = GetConnStr(DBName) Dim Cmmd As SqlCommand Dim Dt2 As DataTable Dim Da As SqlDataAdapter Dim rw As DataRow Using Conn As New SqlConnection(ConnStr) 'Conn.Open() '****處理欄位Layout資料 Dim SqlTxt1 As String = "" SqlTxt1 += " sp_columns '" + TableName + "' " SqlTxt1 += " " Cmmd = New SqlCommand(SqlTxt1, Conn) 'Cmmd.Parameters.AddWithValue("@TableName", TableName) Da = New SqlDataAdapter(Cmmd) Dt2 = New DataTable Da.Fill(Dt2) If Dt2.Rows.Count > 0 Then For y = 0 To Dt2.Rows.Count - 1 rw = Dt.NewRow rw.Item("SENC") = CInt(Dt2.Rows(y).Item("ORDINAL_POSITION")) rw.Item("Fld") = Dt2.Rows(y).Item("COLUMN_NAME") rw.Item("DataType") = Dt2.Rows(y).Item("TYPE_NAME") rw.Item("DataSize") = Dt2.Rows(y).Item("PRECISION") If IsDBNull(Dt2.Rows(y).Item("SCALE")) Then rw.Item("DecimalSize") = "" Else rw.Item("DecimalSize") = Dt2.Rows(y).Item("SCALE") End If rw.Item("NULLAble") = Dt2.Rows(y).Item("NULLABLE") rw.Item("DefaultValue") = Dt2.Rows(y).Item("COLUMN_DEF") 'rw.Item("MEMO") = Dt2.Rows(y).Item("") Dt.Rows.Add(rw) Next End If '***處理欄位說明 SqlTxt1 = "" SqlTxt1 += " SELECT * " SqlTxt1 += " FROM ::fn_listextendedproperty(NULL, 'user', 'dbo', 'table', @TableName, 'column', default) " SqlTxt1 += " " Cmmd = New SqlCommand(SqlTxt1, Conn) Cmmd.Parameters.AddWithValue("@TableName", TableName) Da = New SqlDataAdapter(Cmmd) Dt2 = New DataTable Da.Fill(Dt2) Dim tmpFld As String Dim tmpExt() As String Dim CurrentRw() As DataRow If Dt2.Rows.Count > 0 Then For y = 0 To Dt2.Rows.Count - 1 tmpFld = Dt2.Rows(y).Item("objname") tmpExt = Split(Dt2.Rows(y).Item("value"), ";") CurrentRw = Dt.Select("Fld = '" + tmpFld + "'") CurrentRw(0).Item("FldName") = tmpExt(0) If UBound(tmpExt) > 0 Then CurrentRw(0).Item("MEMO") = tmpExt(1) End If Next End If '取得Primery Key設定 SqlTxt1 = "" SqlTxt1 += " sp_pkeys '" + TableName + "' " SqlTxt1 += " " Cmmd = New SqlCommand(SqlTxt1, Conn) Da = New SqlDataAdapter(Cmmd) Dt2 = New DataTable Da.Fill(Dt2) If Dt2.Rows.Count > 0 Then For y = 0 To Dt2.Rows.Count - 1 tmpFld = Dt2.Rows(y).Item("COLUMN_NAME") CurrentRw = Dt.Select("Fld = '" + tmpFld + "'") CurrentRw(0).Item("PK") = "PK" Next End If Conn.Close() End Using Return Dt End Function End Class

另外一個是維護Table名稱與說明的PCATTBL.CCATTBL2

Imports System.EnterpriseServices Imports System.Runtime.InteropServices Imports System.Data.SqlClient Imports System.Data Imports System.IO <Guid("4F0698AD-7060-44A2-B4E7-21440F48E4F6") _ , Transaction(TransactionOption.Required) _ , Synchronization(SynchronizationOption.Required) _ , JustInTimeActivation(True) _ , EventTrackingEnabled(True)> _ Public Class CCATTBL2 Inherits ServicedComponent Const DBName As String = "DCAT" <AutoComplete()> _ Public Function GetConnStr(ByVal DBName As String) As String '************************************************************************* '** 撰寫者：小喵(topcat) 撰寫日期：20080507 '** 用途： 1.讀取Connection String的方式 '** 做法： '** 1.傳入參數DataBase Name DBName '** 2.透過Stream將文字檔讀出 '** 3.將取得的資料傳回 '** 4.關閉相關物件 '** 注意事項： '** 1. '** 2. '** 維護記錄： '** 維護者：姓名(員工代號) 維護日期：日期 '** 維護項目： '** 1. '** 2. '** 做法： 1. '** 2. '** 注意事項： '** 1. '************************************************************************* Dim StrmRd As New StreamReader("C:\DataLink\" + DBName + ".ini") Dim Line As String = "" Dim ConnStr As String = "" Try Do Line = StrmRd.ReadLine() If Line <> "" Then ConnStr += Line End If Loop Until Line Is Nothing GetConnStr = ConnStr Catch ex As Exception Throw New Exception(ex.Message.ToString) Finally StrmRd.Close() StrmRd.Dispose() StrmRd = Nothing End Try End Function <AutoComplete()> _ Public Function ChgTbl(ByVal Tbl As String, ByVal TblName As String, ByVal MEMO As String, ByRef P As String, ByRef R As String, ByVal User As String) As String '************************************************************************* '** 撰寫者：小喵(topcat) 撰寫日期：20080507 '** 用途： 1.維護Table設定 '** 做法： '** 1.取得傳入的參數 '** 2.判斷是否有該筆設定 '** 2a.有→設定更新SQL '** 2b.沒有→設定新增SQL '** 3.執行更新 '** 4.回報結果 '** 5. '** 注意事項： '** 1. '** 2. '** 維護記錄： '** 維護者：姓名(員工代號) 維護日期：日期 '** 維護項目： '** 1. '** 2. '** 做法： 1. '** 2. '** 注意事項： '** 1. '************************************************************************* Dim ConnStr As String = GetConnStr(DBName) Using Conn As New SqlConnection(ConnStr) Dim Cmmd As SqlCommand Dim SqlTxt As String = "" Dim SqlTxt2 As String = "" Try '** 1.取得傳入的參數 '** 2.判斷是否有該筆設定 '** 2a.有→設定更新SQL '** 2b.沒有→設定新增SQL '** 3.執行更新 '** 4.回報結果 Conn.Open() SqlTxt = "" SqlTxt += " SELECT * " SqlTxt += " FROM TCATTBL WITH (NOLOCK) " SqlTxt += " WHERE (Tbl = @Tbl) " SqlTxt += " " Cmmd = New SqlCommand(SqlTxt, Conn) Cmmd.Parameters.AddWithValue("@Tbl", Tbl) Dim Dr As SqlDataReader Dr = Cmmd.ExecuteReader SqlTxt2 = "" If Dr.HasRows Then SqlTxt2 += " UPDATE TCATTBL " SqlTxt2 += " SET TblName = @TblName, " SqlTxt2 += " MEMO = @MEMO " SqlTxt2 += " WHERE (Tbl = @Tbl) " SqlTxt2 += " " Else SqlTxt2 += " INSERT INTO TCATTBL " SqlTxt2 += " (Tbl,TblName,MEMO) " SqlTxt2 += " VALUES (@Tbl,@TblName,@MEMO) " SqlTxt2 += " " End If Dr.Close() Cmmd = New SqlCommand(SqlTxt2, Conn) Cmmd.Parameters.AddWithValue("@Tbl", Tbl) Cmmd.Parameters.AddWithValue("@TblName", TblName) Cmmd.Parameters.AddWithValue("@MEMO", MEMO) Cmmd.ExecuteNonQuery() Conn.Close() ChgTbl = "Success" Catch ex As Exception ChgTbl = "False" Throw New Exception(ex.Message) Finally Conn.Dispose() End Try End Using End Function End Class

以上方式，提供大家參考

跨網站單一登入(Single Sign On)的作法概念

topcat — Thu, 03 Apr 2008 08:13:00 GMT

當我們開發了許多的Web應用系統後，如果使用者同時擁有多個Web應用程式的使用權限，而每個Web應用程式都有自己的登入帳號密碼，那麼對於使用者來說，有點麻煩，尤其是剛好設定的密碼又不同。

為了方便使用者的使用，因此會有【單一登入】的需求出現，只要登入一個應用程式後，要跳到別的Web應用程式，不需要再次輸入帳號密碼，可以直接就進行登入。但是為了考量安全性，還是要考量一下怎麼設計才能夠兼顧安全與便利。

小喵的方式是透過SQL來當作媒介，假設小喵要從WebA跳到WebB。
首先要準備一個兩個應用程式都能夠存取的資料庫。然後設計一個資料表來處理。這個資料表有以下幾個欄位

GUID:由NewId()產生出來類似【504B1790-E93A-4445-B262-E73A113BF336】這樣格式的資料
UserId:WebB的帳號，當然WebA與WebB可以用相通的帳號，或者是透過員工代號取得WebB的帳號
TimeOut:過期時間，產生該筆資料的時間+2分種。也就是從WebA到WebB的過程，小喵估計不會超過2分鐘，時間過期後該筆資料就沒用了。

接著就是運作的方式

步驟如下

WebA點選轉入WebB
寫入1筆過程資料，例如：5ED095B8-350D-42C3-953B-9C53DED54AFD,topcat,20080402165823
WebA Submit GUID給 WebB
WebB承接到GUID取回資料，並判斷現在時間沒有大於20080402165823
如果4.找不到，顯示錯誤並拒絕登入
如果4找到，進行登入程序
刪除該GUID資料

這過程中的時間，過期時間拉得越長越不安全。太短又容易失敗，所以大家自己斟酌。

由於GUID發生碰撞的機會很低，並且在加上過期時間的保護，小喵覺得應該還算安全，大家覺得怎麼樣再請大家給小喵一些建議

^_^

(SQL)抽獎，亂數抽出10筆中獎資料並排名

topcat — Fri, 28 Mar 2008 16:59:00 GMT

剛好網路上有網友詢問到抽獎的問題，小喵將小喵的方式記錄在此

需求是這樣的，有個資料表記錄著消費者購買的資料，要從這些資料中，抽出幸運的10個，分別依序是頭獎1、二獎2、三獎3、四獎4總共10個人，因此我需要從資料庫中亂數的撈出10筆購買資料，並且給予1~10的編號依序獲得獎項

其實這樣的需求只需透過SQL的語法讀區資料即可，假設我存放購買資料的Table名稱是TCustBuy那麼我所需要下的SQL與法如下：

SELECT TOP 10 IDENTITY(int,1,1) as NID, *
INTO #TTT
FROM TCustBuy
ORDER BY NewId()

SELECT *
FROM #TTT

說明：

NewId()：是會產生類似GUID不會重複的並且每次產生都不同的資料，因此Order By NewId()就能夠產生亂數排序的功能

TOP 10：的話就是取出其中的前10筆資料，由於資料已經亂數排序了，所以這樣就能夠每次執行都取出不同的10筆資料

IDENTITY(int,1,1)：是產生不重複並依序的數字，但是他必須配合SELECT....INTO的方式使用，因此配合這個特性使用暫存Table的方式就能夠編出1~10的編號

最後使用完Temp Table要記得把Temp Table Drop掉

DROP Table #TT執行結果如下圖：多執行幾次，每次結果都不同

VB.NET中執行SSIS產生的DTSX

topcat — Tue, 11 Mar 2008 14:08:00 GMT

當需要匯入匯出大量的資料時，尤其是異質的資料(例如把Access的mdb資料匯入到MS-SQL)，使用SSIS的方式速度是最快的，而且可以在SQL Server Management Studio裡面，直接在操作匯入匯出的時候，把過程儲存成SSIS的格式(.DTSX)。下次有相同的匯入匯出動作，就可以直接透過儲存的dstx來使用。

如果想在程式中執行DTSX，可以透過以下的方式處理

在專案中，要加入參考【Microsoft.SQLServer.ManagedDTS】
Imports Microsoft.SqlServer.Dts.Runtime
相關程式碼如下：
```
Dim pkg As String = "D:\DTSX\MyImport.dtsx"    'DTSX檔案路徑
Dim app As Application = New Application()
Dim p As Package = app.LoadPackage(pkg, Nothing)

Dim vir As Variables = p.Variables

If Not p.Execute(Nothing, vir, Nothing, Nothing, Nothing) = DTSExecResult.Success Then
   Throw New Exception("NICE.mdb檔案匯入SQL失敗!!")
Else
    Return "Success"
End If
```

可以在程式中執行，那麼無論是透過畫面的按鈕，還是排程都可以處理這樣的動作了!!

另外要注意的是，如果是使用Web Service或者是ASP.NET的話，可能要注意一下權限的問題

北風資料庫(NorthWind DataBase)下載

topcat — Mon, 10 Mar 2008 22:38:00 GMT

使用SQL 2005以後，範例的資料庫已經不再是北風了

不過有些人還是習慣用北風資料庫來當作範例

有需要的人可以透過以下這個網址下載SQL2000的範例資料庫Northwind與Pubs

Northwind and pubs Sample Databases for SQL Server 2000

如何在SQL中產生交叉式資料表(樞紐分析表)Part 2(PIVOT,UNPIVOT)

topcat — Fri, 25 Jan 2008 13:32:00 GMT

之前小喵使用SQL2000的時候，為了產生交叉資料表(Excel中稱為樞紐分析表)，小喵用了以下這篇的方式來處理

http://blog.blueshop.com.tw/topcat/archive/2005/08/09/11379.aspx

這樣的方式在SQL 2005裡面一樣可以用，不過2005又新增了一個更方便的東西，可以更簡潔的來處理。這個東西就是【PIVOT】，神奇的是，除了可以透過PIVOT產生交叉資料表，還可以透過UNPIVOT將交叉資料表轉回原來的方式(這對於有些資料表的正規化很有幫助唷)。

^_^

相關的說明SQL2005的Online Book已經說得很清楚了，小喵就直接鏈結TechNet的文章，請大家參考

http://technet.microsoft.com/zh-tw/library/ms177410.aspx

SQL語法：取得年月日時分秒yyyyMMddHHmmss的語法

topcat — Fri, 21 Dec 2007 15:04:00 GMT

SELECT CONVERT(char(8),GetDate(),112) + REPLACE(CONVERT(char(14),GetDate(),108),':','') as 'NowTime'

從小喵學習的經驗聊聊學習ASP.NET的建議

topcat — Thu, 06 Dec 2007 11:08:00 GMT

要走程式設計這條路，確實需要熱情...而且是持續不斷的熱情

小喵聊聊小喵學習的經過

小喵雖然是資訊工程畢業
不過在學校的時候沒有認真學寫程式
(那時候小喵的興趣在網管)
小喵是等作業版本的那群之一

不過在這個過程至少也建立了程式撰寫的基本概念
(變數定義、函數運用、資料型態、判斷式與程式流程、迴圈、遞迴等...)
這個部分您可以看您想學哪個程式語言(例如：C#,VB.NET)，買本那個語言介紹的書看看

後來工作後才真正接觸到程式撰寫
剛開始接觸的是ASP
完全沒有HTML,JavaScript的基礎
由於當時公司剛導入WebApp的方式
公司有請老師來上課
同事們的程度也都差不多
記得當時老師說過一句話
【
學ASP沒有精通HTML,JavaScript(備註1)沒關係
學習過程中多去檢視原始檔，再慢慢了解用到的HTML與JavaScript就好了
】
會這麼說小喵覺得是有原因的
小喵曾經去翻過專門介紹HTML Tag的書
裡面的東西有很多到目前為止還沒用過
因此小喵的建議是，HTML,CSS,JavaScript各找一本當作參考字典就好
有用到的時候來查看怎麼用

直到2005年底VS2005出來的時候，小喵才慢慢把焦點轉到ASP.NET上

備註1:
精通HTML,JavaScript
精通HTML是指所有的HTML的Tag用法都熟悉，還包括CSS的用法
精通JavaScript則是不但要精通JavaScript的語法(其實與C還蠻類似的)
還得對HTML內的各種物件屬性方法熟悉才稱得上精通
----------------

對於學習的建議，小喵的想法如下，提供參考

1.程式語言的學習
如果自己有熟悉的語言，熟C,Java,C++,Delphi的建議學C#，熟VB的學VB.NET
如果都沒有學過程式語言，那麼建議學C#
C#,JavaScript它們的基本語法都是從C衍生出來的
因此您學基本語法的時候，可以一並用在JavaScript裡面
(雖然小喵自己用的是VB.NET)
這個部份找本書來看

2.HTML部分
建議先看過FORM裡面的物件
<INPUT type=Text>
<INPUT Type=button>
<INPUT type=password>
<INPUT type=submit>
<INPUT type=reset>
<SELECT>
<TEXTArea></TEXTArea>
以及會用來排畫面的
<Table></table>
<div></div>
<span></span>
市面上有很多視覺化編輯HTML的工具(Dreamwave,FrontPage,Expression Web等)
建議可以視覺化編輯後他所產生的HTML大致上了解一下

這些部分看過定義，先有個基本印象

3.JavaScript的學習
小喵覺得這部份的重點
在於如何透過JavaScript去控制到畫面的各個物件(尤其是Form裡面的物件)
並且清楚這些物件樹
例如
<HTML> <BODY> <FORM action="" id="form1" name="form1" method="post"> <INPUT type="text" id="text1" name="text1" value="abc"> </FORM> </BODY> </HTML>
那麼您要透過JavaScript取得text1裡面的資料
就要知道這個HTML的架構
IE-->window
裡面有個BODY-->document
裡面有個Form-->form1
裡面有個Input-->text1
所以在JavaScript裡面取得物件的方式是
var t=window.document.form1.text1.value;
4.ASP.NET
找本ASP.NET的書來學習
建議學習程式碼與畫面分開的方式(CodeBeside)
也就是一個abc.aspx的畫面會搭配一個abc.aspx.cs

5.SQL學習
a.學會視覺化的操作(建立資料表、檢視(View)裡面拉資料表、設定關聯、勾選要的欄位、設定條件)
b.學習T-SQL:從視覺化操作產生的SQL語法..學習T-SQL(SELECT,INSERT,UPDATE, DELETE,INNER JOIN, LEFT JOIN, RIGHT JOIN)
c.學習資料庫規劃(需求分析、資料表欄位規劃設計、資料庫正規化)

以上五點的時間順序建議
1.建議先學程式語言，至少對基本程式有概念
2~5可以同時間交叉學習

最後，當基礎都OK了小喵建議，自己出一些題目給自己，可以參考在網路上看到的一些東西，給自己一些題目來撰寫，這樣可以在撰寫過程中，發現不足的地方並且尋求解決方法，讓自己更為精進。

以上提供想走ASP.NET開發的人提供參考

文字型態的資料要用什麼樣的格式儲存?char, varchar, nchar, nvarchar??

topcat — Thu, 06 Sep 2007 08:39:00 GMT

使用資料庫儲存文字的資料，在資料庫中會有以下這些的型態可以設定
char, varchar, nchar, nvarchar
那麼到底要用哪種型態比較適合，這些型態之間有何差異呢??

意義與差異

從這些字眼上來看，都是有char，差別在var與n這兩個字眼，那麼就先來簡單介紹一下這兩個字眼代表的意義：

var：不定長度→有多長存多長

n：Unicode→無論英文、數字、中文、日文、...每個字都占2Byte。

說明一下：

char與nchar宣告的是固定的長度，因此如果宣告char(5)，但是只放a這個字，那麼就會補另外4個空白，會補空白補滿是他的特性，而nchar(5)也是會放滿5個字，但是每個字無論中英數都會用2個Bytes來存放

varchar與nvarchar都是不定長度，因此如果宣告varchar(5)，但是只放a這個字，那麼就會放一個a，不會補空白。而如果宣告nvarhcar(5)那還是只放a這個字，但是會用2Bytes來存放。如果放了【中】這個中文字，在varchar會占用2個位子，但是nvarchar指占用1個位子。

舉個例子來看

假設有四個欄位，分別放入【a1中】這樣的字串，比較一下這些的差異如下：

資料類型	內容	占位數	Byte數
char(10)	a1中+6個空白	10	10
varchar(10)	a1中	4	1+1+2=4
nchar(10)	a1中+7個空白	10	20
nvarchar(10)	a1中	3	2*3=6

再來一個比較char(10)與nchar(10)

	1	2	3	4	5	6	7	8	9	10
char(10)	a	1	中
				2位

	1		2		3		4		5		6	7	8	9	10
nchar(10)	a		1		中

因此在規畫上，只要存放的資料有可能有中文，小喵就會加n。而除非確定資料固定會是幾位不變，不然資料長度不特定就會宣告加上var。

查詢DB中各TABLE佔了多少空間的語法

topcat — Fri, 26 Jan 2007 15:20:00 GMT