網路教學

VB SQL 資料庫讀取資料

2014-11-11T00:11:00.000+08:00

一、抓到 datagridview
Dim sqlstr As New String("SELECT 年度薪資.姓名, 年度薪資.員工編號" & _
" FROM where year(年度薪資.發薪日期)=" & TextBox1.Text & " group by 年度薪資.姓名, 年度薪資.員工編號 ;")

Dim da As New SqlDataAdapter(sqlstr, MDIParent1.conn)
Dim cb As New SqlCommandBuilder(da)

da.Fill(Data)
DataGridView1.DataSource = Data

二、reader 一筆一筆讀取
Dim sqlquery As String
sqlquery = "select count(姓名) from 考核獎金 where 年度='" & TextBox1.Text & "' and 次數='" & TextBox2.Text & "';"
Dim cmnd As SqlCommand = New SqlCommand(sqlquery, MDIParent1.conn)
Dim reader As SqlDataReader
reader = cmnd.ExecuteReader()
While (reader.Read())
If reader.IsDBNull(0) = False Then
havedata = reader.GetValue(0)
End If
End While
reader.Close()

VB 計算每月的例假日天數

2014-05-15T12:10:00.000+08:00

Public Function GetholiDays(ByVal theYear As Integer, ByVal theMonth As Integer) As Integer
Dim theDays As Integer = 8
Dim x, y As Integer
Dim dt As New DateTime(theYear, theMonth, 1)
x = DateTime.DaysInMonth(theYear, theMonth) - 28

If dt.DayOfWeek.ToString() = "Monday" Then y = 1
If dt.DayOfWeek.ToString() = "Tuesday" Then y = 2
If dt.DayOfWeek.ToString() = "Wendnesday" Then y = 3
If dt.DayOfWeek.ToString() = "Thursday" Then y = 4
If dt.DayOfWeek.ToString() = "Friday" Then y = 5
If dt.DayOfWeek.ToString() = "Saturday" Then y = 6
If dt.DayOfWeek.ToString() = "Sunday" Then y = 7

If x + y = 7 Then
theDays = 9
ElseIf x + y >= 8 Then
theDays = 10
End If
If y = 7 Then theDays = theDays - 1

Return theDays
End Function

封鎖臉書應用程式(遊戲)的廣告訊息

2013-09-01T11:24:00.001+08:00

臉書上經常會接到一些好友邀請遊戲的廣告訊息，若很煩可以針對此遊戲(應用程式)將其關閉封鎖，如此以後就算好友邀請也不會出現在通知訊息上了。
作法很簡單，只要在訊息上右邊 X 上按下去即可，然後再按一次關閉就完成了。若要檢舉他就點檢舉垃圾訊息應用程式。

如果相同的人經常發這總訊息給你，就可以針對此人所發送的應用程式(遊戲)邀請作封鎖。在設定中點選封鎖/封鎖應用程式邀請/輸入好友名稱/點選進入即可

WORD錯誤訊息：文件已儲存，但因儲存空間不足，導致語音辨識資料遺失

2013-06-09T16:48:00.000+08:00

當使用者嘗試開啟或儲存含有先前舊版 Microsoft Office 中修改或儲存 OfficeArt 圖形的 Microsoft Office PowerPoint 2003、Word 2003、Excel 2003 的檔案時可能發生的問題。
解決方法：在WORD工具/選項/儲存/內嵌語言資料取消不選!

google 地圖製作

2013-04-06T11:16:00.002+08:00

在地圖頁中輸入地址，標示正確位置，若已建立商家資訊則可顯示出來商家位置
點選連結標籤，複製HTML 語法到網站或部落格，在HTML編輯模式中貼上，即可在您的網站或部落格顯示商家位置

顯示結果
檢視較大的地圖

word無法直接開啟檔案，只會開啟程式

2013-04-03T23:30:00.003+08:00

在word/說明，選擇偵測與修復功能，然後選擇還原成預設值，按開始即可解決問題

網頁、php、Mysql 中文問題

2013-03-06T23:22:00.000+08:00

1.欄位用中文，加上 mysql_query("SET NAMES ‘UTF8′");網頁編碼為big5
取出的欄位名稱會是亂碼;
栽種品：
產品品質：
備註：

�Ｗ�摨�	w_sn	gdate	product	qul	mess
12345	2421241	0000-00-00	qwdqwe	qwef	grggh
12433425	3235	2013-01-23
12233	1231111111	0000-00-00
1214321	3235	0000-00-00

同樣程式碼，網頁編碼為UTF8

2.欄位名稱用英文，select 使用中文別名，則出現錯誤訊息

mysql_query("SET NAMES ‘UTF8′");
$result=mysql_query("Select p_sn 產品序號 from cut ");

Warning: mysql_fetch_field(): supplied argument is not a valid MySQL result resource inC:\AppServ\www\manage\factor\cut.php on line 92

require("../factor/db.php"); //匯入資料庫設定檔
//require("../彥廷農場/checkform.php"); //匯入欄位檢查檔
//require("../彥廷農場/double.php"); //檢查帳號是否重覆
echo "";

/* 顯示會員資料 */
//mysql_query("SET NAMES ‘UTF8′");
$result=mysql_query("Select * from cut where 產品序號='12345' ");//,order by p_sn desc w_sn B, gdate 日期, product 收穫品, qul 品質, mess 備註

echo "<table border=1>\n";
echo "<tr>\n";
/*印出表頭*/
while ($field=mysql_fetch_field($result)) {
echo "<td>".$field->name."</td>\n";
}
echo "</tr>\n";
/*印出表身*/
while ($row=mysql_fetch_row($result)) {
echo "<tr>\n";
for ($i=0;$i<count($row);$i++ ){
echo "<td>".$row[$i]."</td>";
}
echo "<tr>\n";
}
?>
<form method="post" action="" accept-charset="big5">
*產品序號：<input type="text" name="p_sn"><br/>
*剪蒂人員編號：<input type="text" name="w_sn"><br/>
*日期：<input type="date" name="gdate" ><br/>
栽種品：<input type="text" name="product"><br/>
產品品質：<input type="text" name="qul"><br/>
備註：<input type="text" name="mess"><br/>
<input type="submit" value="新增">
</form>
<?php
require("../factor/db.php");
$p_sn=$_POST['p_sn'];
$w_sn=$_POST["w_sn"];
$gdate=$_POST["gdate"];
$product=$_POST["product"];
$qul=$_POST["qul"];
$mess=$_POST["mess"];

/* 檢查帳號與密碼欄位是否為空白 */
if (empty($p_sn) || empty($w_sn) || empty($gdate))
{
echo "＊號欄位一定要填喔！";
exit;
}
/* 將欄位資料插入資料庫 */
$sql="INSERT cut (p_sn,w_sn,gdate,product,qul,mess)
VALUES ('$p_sn','$w_sn','$gdate','$product','$qul','$mess')";
mysql_query($sql);
?>

PHP 開啟錯誤

2013-02-14T21:38:00.001+08:00

Warning: Unknown: failed to open stream: Invalid argument in Unknown on line 0

Fatal error: Unknown: Failed opening required 'C:/AppServ/www/manage/亂碼/google_qrcode.php' (include_path='.;C:\php5\pear') in Unknown on line 0

資料夾或檔案為中文所產生錯誤，

解除筆電鍵盤被Fn鎖住

2013-01-21T21:24:00.000+08:00

同時按下Fn和Nnm Lk
這兩個按鍵即可解除Fn鎖住問題

文章加入FB按讚功能

2012-11-19T16:48:00.000+08:00

在編輯時切換至HTML將此語法貼到文章的前面或後面

<iframe src="http://www.facebook.com/plugins/like.php?href=<此處填入文章的網址，包刮刮號>&layout=standard&show-faces=true&width=450&height=60&action=like&colorscheme=light" scrolling="no" frameborder="0" allowTransparency="true" style="border:none;overflow:hidden;width:450px;height:60px"></iframe>

影片自動播放

2012-11-14T17:31:00.002+08:00

<div align="center">
<embed height="360" src="http://www.youtube.com/embed/zDJfLjUTapA?&videoUrl=http%3A%2F%2Fvp.video.google.com%2Fvideodownload%3Fversion%3D0%26secureurl%3DpgAAACDFX7eWW_XUImJH3blqXSZY3BosL4uHk6acskywJc7MUPkU722J4S6dUMELuHucyeaRNPasN-zB6XUF3Mms0WQtxtV2d9zYio3vU4N3rNgMPhckBMbwORQIpjnZfE9DjztBW2kflFdYp4ebbsp53KStjQqUyYjVQ4eGouWA4fmo6b7LEd4jmz1AX0CyF0Ujq4FDn0Pfhz_VfjtZ5IEdCpXSWUKsFZTwN6f4ZBfqoaWb%26sigh%3DZackp6M39QxBv5em0Tcg7h0wrzA%26begin%3D0%26len%3D951866%26docid%3D-868097237758813769&messagesUrl=http%3A%2F%2Fvideo.google.tw%2FFlashUiStrings.xlb%3Fframe%3Dflashstrings%26hl%3Dzh-TW&thumbnailUrl=http%3A%2F%2Fvideo.google.com%2FThumbnailServer2%3Fapp%3Dvss%26contentid%3D3ca34f40e44e0522%26offsetms%3D370000%26itag%3Dw320%26lang%3Dzh%26sigh%3DYkk2VS5dfFGqKiWByE7b5vFSLNs&autoplay=1" width="480"></embed></div>

文章法表之語法
將語法複製，修改紅色的網址路徑即可

以下為新增欄位的自動播放語法
<p align="center"><embed src="http://video.google.com/googleplayer.swf?&videoUrl=http%3A%2F%2Fvp.video.google.com%2Fvideodownload%3Fversion%3D0%26secureurl%3DpgAAACDFX7eWW_XUImJH3blqXSZY3BosL4uHk6acskywJc7MUPkU722J4S6dUMELuHucyeaRNPasN-zB6XUF3Mms0WQtxtV2d9zYio3vU4N3rNgMPhckBMbwORQIpjnZfE9DjztBW2kflFdYp4ebbsp53KStjQqUyYjVQ4eGouWA4fmo6b7LEd4jmz1AX0CyF0Ujq4FDn0Pfhz_VfjtZ5IEdCpXSWUKsFZTwN6f4ZBfqoaWb%26sigh%3DZackp6M39QxBv5em0Tcg7h0wrzA%26begin%3D0%26len%3D951866%26docid%3D-868097237758813769&messagesUrl=http%3A%2F%2Fvideo.google.tw%2FFlashUiStrings.xlb%3Fframe%3Dflashstrings%26hl%3Dzh-TW&thumbnailUrl=http%3A%2F%2Fvideo.google.com%2FThumbnailServer2%3Fapp%3Dvss%26contentid%3D3ca34f40e44e0522%26offsetms%3D370000%26itag%3Dw320%26lang%3Dzh%26sigh%3DYkk2VS5dfFGqKiWByE7b5vFSLNs&autoplay=1" width="126" height="150"></embed></p>

將語法複製，修改紅色的網址路徑即可
引用自
http://tw.group.knowledge.yahoo.com/nkhs-9323005/article/view?aid=35

BLOG新增自訂欄位

2012-11-14T14:10:00.000+08:00

先複製好要嵌入的語法

由版面設定、新增小工具，找尋HTML/java Script ,點加入

將所複製之語法貼入內容，在於標題填入欄位名稱，按儲存即可

奇摩部落格樣式教學一

2012-11-12T17:32:00.001+08:00

.twocol #yhtw_mastfoot, .twocoldr #yhtw_mastfoot {width:90%;margin:0 auto;}
**.twocol 表示兩欄式三欄式則為.thrcol
** #yhtw_mastfoot 表奇摩置尾區
**width:90% 表示與螢幕顯示寬度的比例，可以直接以畫素如1020px表示，但建議以百分比設定，如此針對不同螢幕解析度都可顯示一樣結果
**margin:0 表示邊界留多少
.twocol .filtered99999 , .twocoldr .filtered99999 {min-width:90%;}

.twocol .ycnt3col, .twocoldr .ycnt3col {zoom:1;width:90%;text-align:left;margin:0 auto;}
**text-align:left 文字對齊左邊
.twocoldr .yc3pri {width:82%;position:absolute;top:100px;right:0px;}
文章欄位設定寬度(針對整體而言絕對大小及位置)
.twocoldr .yc3subbd {width:180px;} 左邊欄位設定

youtube 視訊下載-利用chrome 擴充功能

2012-11-06T22:39:00.000+08:00

要下載YOUTUBE視訊，可以利用chrome瀏覽器擴充功能，新增"視頻下載"的功能，並且啟用他，打開YOUTUBE之後便可以下載視頻了。

本擴充功能幾乎所有視訊都可下載

一、由瀏覽器由上角功能表選取擴充功能

二、取得更多擴充功能

三、左上角搜尋列輸入youtube下載，然後選視頻下載，點加到CHROME

四、選新增

五、完成後，右上角會有訊息顯示，該功能也會變綠色(已啟用之功能)

六、到要下載的視訊畫面下面會出現下載選項，點入

七、開啟新的瀏覽頁面，選擇要下載的格式及畫質，點選即可!若要轉成其他格式或MP3，點選兌換

八、此功能需安裝JAVA，若未安裝或是被阻擋，上方會出現警告訊息，點選更新外掛程式或允許使用

九、下載安裝JAVA

十、執行程式

十一、選擇解析度及格式，按descarger(西班牙文，下載的意思)，然後選擇位置，即可完成下載並轉成你要的格式!

ExecuteReader 必須有開啟與可用的連接。連接目前的狀態已關閉

2012-03-25T09:42:00.000+08:00

conn 太早執行 conn.close()，所以後續要在執行reader 的動作就無法連線，通常出現在迴圈上或一開始就沒有open

並未將物件參考設定為物件的執行個體

2012-03-21T15:01:00.000+08:00

發覺select 出來的第一個欄位都會出現此問題，不知為何？

別人都沒事，只有他搞怪？？

竟然連欄位都找不到？

我知到了,因為在datatable 加入column(0)知指令，改變了select出來所設定的原來的名稱（若無先加入TABLE欄位，SQL出來會由0行開始

耶！完成

sql_str = "select 新製令編號 'Column1',作業名稱 'Column2',sum(報工量) 'Column4',sum(使用時間)/60 'Column5' from workorders where 日期 = '" & DateTimePicker1.Value.Date & "'" & _

" group by 作業名稱 order by 新製令編號"

da = New MySqlDataAdapter(sql_str, MDIParent1.conn)

cb = New MySqlCommandBuilder(da)

data.Columns.Add("Column3") 先加進去就先排

da.Fill(data) SQL出來的在排

後面再加

data.Columns.Add("Column8")

data.Columns.Add("Column9")

data.Columns.Add("Column10")

data.Columns.Add("Column11")

DataGridView1.DataSource = data

DataGridView1.Columns("Column3").HeaderText = " 品名"

DataGridView1.Columns("Column8").HeaderText = " 單件工時"

DataGridView1.Columns("Column9").HeaderText = " 標準工時"

DataGridView1.Columns("Column10").HeaderText = " 效率％"

DataGridView1.Columns("Column11").HeaderText = " 低於80%之異常處理"

DataGridView1.Columns("Column2").HeaderText = " 工程名稱"

DataGridView1.Columns("Column4").HeaderText = " 本日完工數量"

DataGridView1.Columns("Column1").HeaderText = " 製令"

DataGridView1.Columns("Column5").HeaderText = " 總工時"

無法在資料繫結 DataGridView 控制項上設定 ColumnCount 屬性

2012-03-21T11:26:00.000+08:00

DataGridView1.ColumnCount = 5
sql_str = "select 新製令編號 'Column1',作業名稱 'Column2',sum(報工量) 'Column4',sum(使用時間)/60 'Column5' from workorders where 日期 = '" & DateTimePicker1.Value.Date & "'" & _
" group by 作業名稱 order by 新製令編號"
Dim data As DataTable
data = Nothing
DataGridView1.DataSource = data
data = New DataTable
da = New MySqlDataAdapter(sql_str, MDIParent1.conn)
cb = New MySqlCommandBuilder(da)

da.Fill(data)
DataGridView1.DataSource = data

DataGridView1.Columns(0).Name = "Column3"
DataGridView1.Columns(1).Name = "Column8"
DataGridView1.Columns(2).Name = "Column9"
DataGridView1.Columns(3).Name = "Column10"
DataGridView1.Columns(4).Name = "Column11"
DataGridView1.Columns("Column3").HeaderText = " 品名"
.....
.......
.......
DataGridView1.Columns("Column9").HeaderText = " 標準工時"
DataGridView1.Columns("Column10").HeaderText = " 效率％"
DataGridView1.Columns("Column11").HeaderText = " 低於80%之異常處理"
當取消'DataGridView1.ColumnCount = 5 時出現此錯誤：

索引超出範圍。必須為非負數且小於集合的大小。
參數名稱: index

DataGridView1.Columns(0).Name = "Column3"
DataGridView1.Columns(1).Name = "Column8"
DataGridView1.Columns(2).Name = "Column9"
DataGridView1.Columns(3).Name = "Column10"
DataGridView1.Columns(4).Name = "Column11"
DataGridView1.Columns("Column3").HeaderText = " 品名"

結果應該是這樣就OK了
Dim data As DataTable
data = Nothing
DataGridView1.DataSource = data
data = New DataTable '
DataGridView1.ColumnCount = 5 注意此程式位置
sql_str = "select 新製令編號 'Column1',作業名稱 'Column2',sum(報工量) 'Column4',sum(使用時間)/60 'Column5' from workorders where 日期 = '" & DateTimePicker1.Value.Date & "'" & _
" group by 作業名稱 order by 新製令編號"

國旗飄揚

2011-04-06T12:36:00.000+08:00

中興新村民國一百年升旗

BLOGGER文章摘要建立

2011-04-06T12:25:00.001+08:00

Blogger內之文章顯示皆預設為全文，除非你在文章編輯時

建立「繼續閱讀」摘要

繼續閱讀功能可讓您在網誌文章中建立可展開的文章摘要，讓篇幅較長的文章以摘要的形式呈現，並且提供可讓讀者選擇 [閱讀更多] 的連結。
您可以輕易透過「文章編輯器」為網誌文章建立「繼續閱讀標示」，完全無需變更任何 HTML 程式碼。首先，您必須先決定要在文章中建立繼續閱讀標示的位置，然後將游標移至該處：

當您將滑鼠游標移至要插入標示的位置時，按一下工具列上的「繼續閱讀標示」圖示：

此時系統會在游標處插入長條狀的灰色圖示，代表文章中繼續閱讀標示的位置。您可以使用拖曳的方式調整這個圖示的位置。

決定文章中繼續閱讀標示的位置後，即可發佈文章。文章發佈後，您設定繼續閱讀標示的位置會顯示 [閱讀更多] 連結：