insert …………… ; select scope_identity() 取回剛新增的自動編號值
[SQL]取得剛新增資料的自動編號
程式中,你欲於「新增」後取得當前記錄之id
font-family:細明體;color:#A31515;”>"select max(news_id) news_id from
mns_news"
color:#A31515;”>此方式在多人同時線上維護時,有少數機率可能會出錯,不建議這麼樣來規劃
請參考網頁修改程式:
[MSSQL]取得剛新增資料的自動編號
http://www.dotblogs.com.tw/ajun/archive/2008/04/01/2504.aspx
IDENT_CURRENT、SCOPE_IDENTITY、@@IDENTITY 差異對照表
http://www.dotblogs.com.tw/hunterpo/archive/2009/09/04/10421.aspx
SqlDataSource Insert()成功後取得自動編號
[轉貼]Google雲端儲存
http://googledevelopers.blogspot.ca/2013/05/an-easier-way-to-save-files-to-google.html
<script src="https://apis.google.com/js/plusone.js"></script>
<div class="g-savetodrive"
data-filename="My Statement.pdf"
data-sitename="My Company Name"
data-src="/path/to/myfile.pdf">
</div>
[轉貼]Recordset函數
http://skyfoxmis.pixnet.net/blog/post/25618805-recordset-%E5%87%BD%E6%95%B8
RecordSet.Fields.Count 傳回Recordset中的欄位數。
RecordSet(i).Name 傳回Recordset中第i個欄位的名稱。
RecordSet.RcordCount 傳回Recordset中資料錄的筆數。
RecordSet(i) 傳回RecordSet目前紀錄中的第i個欄位資料。
RecordSet.BookMark 傳回設定的書籍資料以儲存現在紀錄的位置。
RecordSet.AbsolutePostition 將指標移致RecordSet中的某一筆資料上。
RecordSet.PageSize 設定每頁顯示的資料筆數。
RecordSet.PageCount 傳回分頁後的總頁數。
RecordSet.AbsolutePage 傳回目前所在的頁數。
RecordSet("欄位名稱") 傳回指定欄位名稱的資料內容。
RecordSet.BOF 判斷指標是否超過最前面。
RecordSet.EOF 判斷指標是否超過最後面。
RecordSet.MoveFirst 將資料錄指標移至第一筆。
RecordSet.MoveLast 將資料錄指標移至最後一筆。
RecordSet.MoveNext 將資料指標往後移一筆。
RecordSet.MovePrevious 將資料指標往前移一筆。
RecordSet.GetRows 可將Recordset中的資料儲存至陣列中。
RecordSet.AddNew 新增資料至資料表中。
RecordSet.Update更新目前這筆資料。
RecordSet.Delete 刪除目前這筆資料。
RecordSet.Find 尋找資料值。
[轉貼]好用的資料夾同步工具 Allway Sync
天下烏鴉一般黑 台灣的電信產業(慘業)
相信 行動網路速度慢 已不在話下…
使用至今 對於行動數據的方案 更是令人氣憤萬分
以個人我使用量來說 極限使用量不會大於 2.5GB 卻被迫一定要去玩他的吃到飽…
因為吃到飽的下面一個資費方案 盡然只是1G…這很靠腰耶… 1G 跟 吃到飽差多少… 百來元…
這根本是貢潘阿…算到這種程度的精 就是逼人半吃到飽… 品質呢?… 請看第一句話!
從有3G行動網路後 簡訊 語音 等等 使用量直線下降阿(汗)
不過我一點也沒感受到不賺…看那精美的電信公司便地開花…
台灣的網路費用 真的是夭壽貴 夭壽慢 …
說好的吃到飽 我車從台北到林口了 我網頁還在開不太起來… 爛透了-_- 室內收訊還近乎於0…
話說也奇怪 阿我電話講起來也沒感覺會lag … 掯
[轉貼] PHP 使用 ODBC 讀取 Access
[轉貼] 不錯的 解决SQL injection 方法
[轉貼]Win7秘密指令,複製大量檔案超快速
[轉貼]vmware擴充硬碟大小
http://life.iiietc.ncu.edu.tw/xms/content/show.php?id=23707
在vmware,如果當初給的虛擬硬碟太小,之後想再擴充硬碟,可以執行以下指令。
cd C:\Program Files\VMware\VMware Workstation\
vmware-vdiskmanager.exe -x 12GB "E:\MyVMW\Windows XP Professional.vmdk"
註:
C:\Program Files\VMware\VMware Workstation\ 是安裝vmware的資料夾,如果是使用預設的安裝路徑應該就是這個,如果不是用預設安裝路徑,就請各位同學改成你安裝的路徑。
12GB就是最後硬碟空間大小,而不是希望增加的空間。
E:\MyVMW\Windows XP Professional.vmdk 是存放虛擬硬碟的路徑。
[轉貼]Cloud Save 免上傳下載,線上圖片,檔案直接另存新檔到雲端硬碟
Cloud Save 免上傳下載,線上圖片,檔案直接另存新檔到雲端硬碟
http://playpcesor.blogspot.com/2011/03/cloud-save.html
[製作]OpenCart 網路購物車網站
一般的OpenCart + 免費網路空間(含PHP.MySQL)
http://exshop.000space.com/
帶有風格的 OpenCart + 免費網路空間(含PHP.MySQL)
http://exampleshop.000space.com/
OpenCart 真的是不錯用的購物車 因為Open原始碼 可自行修改部份需求 整體來說相當的亮眼
[轉貼]網路設定切換工具-NetSetMan 3.5.2 免安裝中文版
NetSetMan 3.5.2 免安裝中文版 – 網路設定切換工具
http://www.azofreeware.com/2011/06/netsetman-325.html
[轉貼]新注音輸入法為何常用的字會跑到最後面?
http://tw.knowledge.yahoo.com/question/question?qid=1106082715550
首先在輸入法語言列上按右鍵>設定值>新注音"屬性">詞典>自動學習"設定">勾選常用新詞即可解決
[轉貼] 讓工作列上的按鈕不顯示最近開啟的項目(Windows 7)
「最近開啟的文件」這個功能在 XP 就有許多網友反應想把它關掉,當時我也發表了XP關閉這個功能的方法。最近升級到 Windows 7後,這個問題又出現了… 只不過名稱變成「最近開啟的項目」
[轉貼]PPS限速工具 – 免費的頻寬限速軟體:Negies
net limiter 1.3
https://sites.google.com/site/ppsliuliangxianzhi/home
http://toget.pchome.com.tw/category/network/12624.html#download_area
[資料庫] MS SQL DD製作
Declare @bastable Varchar(50)
Set @bastable = '[TableName]'
select
dt.name [Table_name] , C.name [Column_name] ,
case
when T.name in ('datetime', 'smalldatetime', 'int', 'smallint') then T.name
when T.name In ( 'numeric' ) then T.name + '(' + CAST(ISNULL(C.prec, C.length) AS varchar(50)) + ',' + CAST(C.scale as varchar(50) ) + ')'
when T.name In ( 'nvarchar' ) then T.name + '(' + CAST(C.length/2 AS varchar(50)) + ')'
else T.name + '(' + CAST(C.length AS varchar(50)) + ')'
end [Type] ,
T.name [ColType],
case
when T.name in ( 'int', 'smallint' , 'tinyint' ) then 'Int32'
when T.name in ( 'smalldatetime', 'datetime' , 'datet' ) then 'DateTime?'
when T.name in ( 'bit' ) then 'Boolean'
when T.name in ( 'real' ) then 'float'
else 'String'
end [C#Type],
case
when T.name in ( 'int', 'smallint' , 'tinyint' ) then 'Convert.ToInt32'
when T.name in ( 'real' ) then 'Convert.ToSingle'
when T.name in ( 'smalldatetime', 'datetime' , 'datet' ) then 'MyConvert.ToDateTime'
when T.name in ( 'bit' ) then 'Convert.ToBoolean'
else 'Convert.ToString'
end [C#Type],
case
when T.name in ( 'int', 'smallint' , 'tinyint' ) then 'GenSqlStr.DataType.Int'
when T.name in ( 'real' ) then 'GenSqlStr.DataType.Float'
when T.name in ( 'smalldatetime', 'datetime' , 'date' ) then 'GenSqlStr.DataType.Datetime'
when T.name in ( 'bit' ) then 'GenSqlStr.DataType.Int'
when T.name in ( 'nvarchar' ) then 'GenSqlStr.DataType.NVarchar'
else 'GenSqlStr.DataType.Varchar'
end [C#SQLType],
case
when T.name in ( 'nvarchar' , 'varchar' , 'char' ) then '=String.Empty;'
when T.name in ( 'int', 'smallint' ) then '=-1;'
when T.name in ( 'tinyint' ) then '=0;'
when T.name in ( 'real' ) then '=0;'
else ';'
end [C#SQLType2],
convert(varchar(100) ,P.value) [Desc1]
From (
select id
, name
from
sys.SysObjects
where
xtype = 'U' ) dt
Left Join sys.SysColumns C On C.id=dt.id
Left Join sys.extended_properties P On C.ID=P.Major_Id And C.ColId=P.Minor_id
Left JOIN sys.SysTypes T ON C.xtype = T.xusertype
Where dt.name = @bastable
order by C.colorder
[轉貼]FENCES桌面整理
軟體一:FENCES
桌面常常很雜亂
手上專案有很多不知道怎麼整理
WINDWOS又沒有內建桌面整理的功能
如果桌面能像下面這樣整理
找東西就會變很快啦
下載連結https://docs.google.com/file/d/0B1ajtwZNzn3zRFJ6c29ta21lT3M/edit?usp=sharinghttps://&pli=1
[轉貼]VB自動更新-下載
[轉貼]VB自動更新-下載
http://ithelp.ithome.com.tw/question/10054525?tab=opinion
Private Declare Function DoFileDownload Lib "shdocvw.dll" _
(ByVal lpszFile As String) As Long
Private Sub Command1_Click()
Dim sFileUrl As String
sFileUrl = StrConv("http://123.194.15.246/ezs/ip.php", vbUnicode)
DoFileDownload sFileUrl
End Sub
'=======================================================
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim lReturn As Long
lReturn = URLDownloadToFile(0, "http://www.hosp.ncku.edu.tw/~cww/index.htm", "C:\index.html", 0, 0)
If lReturn = 0 Then
MsgBox "Download Complete.", vbInformation + vbOKOnly
End If
End Sub
[轉貼]VB取電腦IP
VB取電腦IP
http://tw.knowledge.yahoo.com/question/question?qid=1510072610468
Dim x : x = "http://www.whatismyip.com/automation/n09230945.asp"
WebBrowser1.Navigate2 (x)
Do: DoEvents: Loop Until WebBrowser1.Busy = False
MsgBox WebBrowser1.Document.Body.InnerText


