捐血一袋救人一命

http://www.nationalgallery.org.uk/

英國國家美術館

英國倫敦市中心特拉法加廣場北側的美術館

千燈 十眼橋

水鄉千燈

千燈 夕照

水鄉千燈

千燈 河道

水鄉千燈

和歌山 紅葉溪庭園

日本和歌山城

2016年4月8日 星期五

Excel 連接 MS SQL 資料庫VBA巨集程式

Sub connectSQL()
    Dim Conn As ADODB.Connection
    Dim sConnect As String
    Dim strSqlInstance As String
    Dim strSqlDB As String
    Dim strSqlUser As String
    Dim strSqlPWD As String
    ' strSqlInstance = "SERVER_NAME\INSTANCE"
    ' 如果伺服器只有裝一次 SQL,就只要輸入伺服器名稱
    strSqlInstance = "Your SQL Server Name or IP Address"
    strSqlDB = "Your Database Name"
    strSqlUser = "sa"
    strSqlPWD = "password"
    sConnect = "Provider=SQLOLEDB"
    sConnect = sConnect & ";DATA SOURCE=" & strSqlInstance & ";Initial Catalog=" & strSqlDB
   ' 如果把 User ID=...;Password=... 改成 "Integrated Security=sspi;",認證方式就變成 AD 登入帳號
    sConnect = sConnect & ";User ID=" & strSqlUser & ";Password=" & strSqlPWD & ";"
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = sConnect
    Conn.Open
   ' 這裡輸入你處理 SQL 的命令
    Conn.Close
End Sub


實際範例:

Sub GetTableValues()
    Dim Conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim intColCounter As Integer
    Dim sConnect As String
    Dim strSqlInstance As String
    Dim strSqlDB As String
    Dim strSql As String
    Dim strWorkSheet As String
   
    strWorkSheet = "工作表1"
    strSqlInstance = "Your SQL Server Name or IP Address"
    strSqlDB = "Your Database Name"
    strSqlUser = "sa"
    strSqlPWD = "password"

 
    sConnect = "Provider=SQLOLEDB"
    sConnect = sConnect & ";Data Source=" & strSqlInstance & ";Initial Catalog=" & strSqlDB
    sConnect = sConnect & ";User ID=" & strSqlUser & ";Password=" & strSqlPWD & ";"

    Set Conn = New ADODB.Connection
  
' strSql 設定為查詢資料表的 SQL 命令字串 
    strSql = "SELECT * FROM dbo.Asset"

    ' 把資料都放進 rs 資料集合(Recoredset)
    With Conn
        .ConnectionString = sConnect
        .CursorLocation = adUseClient
        .Open
        .CommandTimeout = 0
        Set rs = .Execute(strSql) 
    End With

   
' 清除 Excel 工作表內容
    Worksheets(strWorkSheet).Cells.Clear
    ' 如果 rs 資料集的資料筆數屬性大於 0
    If rs.RecordCount > 0 Then
        ' 從 A1 格,開始輸出欄位名稱(橫向 Row)
        For intColCounter = 0 To rs.Fields.Count - 1
           Worksheets(strWorkSheet).Range("A1").Offset(0, intColCounter) = rs.Fields(intColCounter).Name
        Next
        ' 在 A2 格,一次輸出所有資料內容
       Worksheets(strWorkSheet).Range("A2").CopyFromRecordset rs
    Else
        MsgBox ("找不到數據")
    End If
    rs.Close
    Conn.Close
    Set rs = Nothing
    Set Conn = Nothing
End Sub

2016年3月25日 星期五

SharePoint Online 人員及群組欄位設定說明

這裡指的群組,是指網站的權限群組!不是指Office 365管理員裡的外部使用者、群組、連絡人,也不是SharePoint系統管理員中的「對象」

為了這個說明不清的問題,害我的Workflow 卡關兩天!

SharePoint Online 常用的函數

IF()

MID(字串)

DATEVALUE(日期形式的字串)

TODAY()

REPLACE()

SUM()

AND()

OR()

LEN()

YEAR()

MONTH()

DAY()

HOUR()

MINUTE()

SECOND()

DAYS360(迄止日期,起始日期,TRUE/FALSE)

NOW()

TRIM()

ROUONDUP()

MOD()

設計網站的好幫手

說實在的,如果不是熟悉 bootstrap ,我比較不建議使用 Dreamweaver 來設計網頁。

雖然它提示標籤、參數功能很棒,但是因為引入了 bootstrap 的 css 定義,很容易會造成越改越亂。

建議設計網頁還是從基礎學起,

先理解切版會用到的 Box Model,瞭解如何設定版塊大小、位置,以及對齊等方法,再來使用 Dreamweaver 這種進階的工具會比較好。

但是,新手要去記憶一大堆的 CSS Code,也很困難,所以,我建議新手可以利用以下的工具網站,來學習設計網頁。

即時可見的編輯器

  1. jsfiddle
  2. codepen
  3. jsbin
  4. liveweaver
  5. dabblet
  6. Plunker
  7. w3cschools
  8. RunJS
  9. CSSDesk

CSS 產生器

EnjoyCSS

CSS3 Generator

css3.me

CSS matic

Ultimate CSS Gradient Generator

CSS3 Maker

css3gen.com

css3 layout generator

CSS DIV Builder

Reponsive Web Design

RDW說穿了就是讓使用者能夠在各種媒體上都能很方便的看網頁,操作網頁,而不用時而放大,時而縮小。

內容編排的重要性我們不談,這裡只講技術的部份。

一種方式是用 Javascript 去抓螢幕寬度、長度,所有的大小,位置,全部由 Javscript 程式去控制 HTML Style Attributes

另一種就是使用 CSS 定義多組版面,至於何時該用哪個樣版 CSS 檔,則由 CSS Code @media 或是 HTML Code <link href media> 來設定。

另外,CSS 也提供了 calc()、expression() 等函式來動態計算變

css > border

border:寬度點數 顏色 樣式

樣式種類

  1. none:不顯示
  2. hidden:隱藏
  3. dotted:點狀
  4. dashed:虛線狀
  5. solid:實線
  6. double:雙線,寬度點數要在三點以上才看得出效果
  7. groove:立體樣式,寬度點數在三點以上才能呈現,但五點以上效果才明顯
  8. ridge:立體樣式,寬度點數在四點以上才能呈現,但五點以上效果才明顯
  9. inset:立體樣式,寬度點數在四點以上才能呈現,但五點以上效果才明顯
  10. outset:立體樣式,寬度點數在四點以上才能呈現,但五點以上效果才明顯
  11. initial:無線
  12. inherit:

2015年11月9日 星期一

管理Windows儲存的認證/密碼

如果 manage passwords 命令輸入在「搜尋程式及檔案」欄,選擇「管理網路密碼」、「管理Windows認證」均可。

manage passwords = 控制台→使用者帳護→認證管理員

在命令提示字元輸入以下命令

rundll32.exe keymgr.dll, KRShowKeyMgr

會執行「已儲存的使用者名稱和密碼」,這裡也可以管理認證