2011/01/15

世界末日到了! 快去搶劫!!

有人因為看電影看得太過『入戲』
奪門而出(逃難?)之後才發現 自己錢也沒帶 為了逃命連鞋都來不及穿(?)
然後去搶綏尾路人甲乙的鞋跟零錢 (比較得體?)

十幾年前,就一堆人在說 西元兩千年是世界末日。
那時候,學弟每天在喊"世界末日要到了,怎麼辦?"
我直接反問:
「就算明天真的是世界末日,你今天的報告就不打、明天的考試就不準備了?

2011/01/14

document.onstop

document 載入前 需要先 load 進一些東西
當然 是用 document.onload
相關文件 網路也很多

但是 有些動作 再等待載入中要show,
或是需要等到 document 其他物件都生成完全 才能動作怎辦?
*NOTE: IE-only !!
document.onstop = function() {
    try {
        if( document.readyState != "complete" ) {
                showLoadingDiv();
        } else {
                LoadComplete();
        }
    } catch( error ) {
        handleError( error );
    }
}
或用 <script language="javascript" defer> 去做推遲
document.write("<script id=__ie_onload defer src=javascript:void(0)><\/script>");
var script = document.getElementById("__ie_onload");
script.onreadystatechange = function() {
  if (this.readyState == "complete") {
    init(); // call the onload handler
  }
};



若有 jQuery 可用...

2011/01/03

VB6資料庫連接字串Access

使用 Microsoft.Jet.OLEDB.4.0 開啟 Access 97/2000 MDB檔
*** Microsoft.Jet.OLEDB.3.51 僅能開啟 Access 97 ***

Dim MyConn As New ADODB.Connection

MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
MyConn.Properties("Data Source") = "C:\...\JetPassword.MDB"
MyConn.Properties("Jet OLEDB:Database Password") = "MyPwd"
MyConn.Open

Dim MyConn As New ADODB.Connection
Dim strConn As String

strConn = "Data Source=C:\...\JetPassword.MDB;" & _
"Jet OLEDB:Database Password=MyPwd"
MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
MyConn.Open strConn

Dim MyConn As New ADODB.Connection
Dim strConn As String

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\...\JetPassword.MDB;" & _
"Jet OLEDB:Database Password=MyPwd"
MyConn.Open strConn


如果正在開啟使用 Jet 安全性的資料庫,您可以使用下列三種語法的其中任何一種語法:
Dim MyConn As New ADODB.Connection

MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
MyConn.Properties("Data Source") = "C:\...\JetSecurity.MDB"
MyConn.Properties("Jet OLEDB:System database") = "C:\...\System.MDW"
MyConn.Open UserID:="Admin", Password:="MyPwd"

Dim MyConn As New ADODB.Connection
Dim strConn As String

strConn = "Data Source=C:\...\JetSecurity.MDB;" & _
"Jet OLEDB:System database=C:\...\System.MDW"
MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
MyConn.Open ConnectionString:=strConn, _
UserID:="Admin", Password:="MyPwd"

Dim MyConn As New ADODB.Connection
Dim strConn As String

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
"Data Source=C:\...\JetSecurity.MDB;" & _
"Jet OLEDB:System database=C:\...\System.MDW"
MyConn.Open ConnectionString:=strConn, _
UserID:="Admin", Password:="MyPwd"