2012年6月28日 星期四

Print an Excel file in VB 方法


1) Add a reference to Excel Object Library in .NET
2) Include (with Imports statments)
Imports Excel = Microsoft.Office.Interop.Excel 'Reference: Excel Object
Library" 3) Add (with Class member variable statements)
Friend WithEvents exWB As Excel.Workbook
Friend WithEvents exAPP As Excel.Application
Friend WithEvents exWS As Excel.Worksheet
4) Open the excel file (using OpenFileDialog)
exAPP.Workbooks.Open(ofd.FileName)
5) Use the PrintOut method for object you want to print.
exApp.ActiveSheet.PrintOut

2012年6月25日 星期一

vbnet 列印( dos 模式列印)

在網路看到這方法,倒也覺不錯;收錄!

2012年6月22日 星期五

用HTML5開發遊戲

請參考原站

VBNET 和 C# 比較

以前一直沒時間玩 C# , 經一些 console 小試比較後 ; 真的差很大
底下用一個簡單的例子來表示:
C#:
VBNET:

do break

2012年6月21日 星期四

foreach break

for 印出 a-y char

真是強,一直用 vbnet 都不知道 C# 竟也有此魅力!

switch 相同的 case 處理

switch goto case

switch 真是好用,搭配 goto case ; 進而可以分流處理一些程序和事件! 底下用簡單的範例來看運作方式!

利用 for switch

switch

在PC安裝Android系統+軟體

請參考來源

2012年6月20日 星期三

開錢箱指令

參考1
參考2
--


錢箱類型比較多,它的接口也有較大區別,有的類似電話線接頭的,有的只有兩根電線,有的是COM口的,也有的是LPT口的,安裝與連接方法也有所不同,軟件驅動方式也不一樣。
常見的錢箱是與票據打印機一起使用的,一般票據打印機的背面都有錢箱的驅動接口,將錢箱的RJ11接頭(類似電話線接頭)連接到票據打印機背面的驅動接口,一般票據打印機是連接在COM口或LPT口上的,然後通過軟件向COM或LPT口發送信號,這樣就可以打開錢箱了;
一般票據打印機的錢箱的驅動指令是通過票據打印機來發送的,跟錢箱沒有關係,票據打印機的供應商會提供給您該型號打印機的驅動錢箱指令說明,您再將該指令加入您的POS前台軟件裡即可。
驅動指令有使用十六進制的,也有十進制的,也有ASCII代碼的,在下面的例子中將把這三種數據表達形式對應關係列示出。
如:STAR票據打印機接在LPT1口中,驅動指令是:
開錢箱指令

十六進制 1B 70 7

CHR(0x1B)+ CHR(0x70)+ CHR(0x7)

十進制 27 112 7

CHR(27)+ CHR(112)+ CHR(7)

ASCII代碼

ESC p

CHR(27)+'p'+ CHR(7)

2012年6月19日 星期二

Sending Email through Gmail using VB 6.0

引用來源
--

使用 Gmail SMTP 送信

參考引用
--

2012年6月18日 星期一

do while 累加

do while 練習

for if 判斷是否整除(% 餘數)

if and

2012年6月17日 星期日

vbnet keybd_event

2012年6月15日 星期五

if bool #4

if 和 for #3

if #2

2012年6月14日 星期四

blogger code highlight

真是找好久
總算找到一個滿意的用法 了
請參考此篇:awesome-syntax-highlighting-made-easy

在html範本修改找到 </head> 上面加入:
 

















2.儲存後,在文章內就可使用2種方法:
A.





B.




if #1

全家超商斥資上億打造第3代POS

請參考來源
--
全家便利商店第三代POS系統五大開發方向
M(Maintain)
加強系統的易維護性,讓全臺店鋪都可輕易布建。
A(Active)
管理人員不必至後臺資訊系統查貨,前臺可走動管理架上商品。
G(Graphic)
增加POS的圖形化介面,操作人員直接點選商品圖片來結帳。
I(Immediate)
銷售訊息即時回傳總部。總部依照銷售訊息立即修正訂單狀況,加速銷售流程。
C(Correct)
以每日銷售資訊精準向上游供應商訂貨,來滿足下游店鋪銷量。

--
看這消息,真是讓我有更多思考方向
因本身開發POS,ERP 這些目標確實是每個開發POS的理想化和目標!
相同是POS開發者;那您的想法呢?

2012年6月12日 星期二

google 雲端硬碟 免費5GB

官網:google 雲端硬碟 免費5GB 
--
真棒,一推出就是5GB ; 那些1-2gb 的還一大推限制,實在...
跟著google 就對了~ 哈







Add caption

sql sysprocesses

select * from master..sysprocesses

如何讓 sql 自動檢查Lock狀態並解鎖

參考引用
--
 身為ERP管理人員 最討厭的就是 SQL的 Lock 問題
當Lock問題一發生時 如果你運氣好是在上班時間的話就可以直接處理

但是如果你夠倒楣的話 在下班或假日的時候發生你就 OX了
我有ㄧ次印象最深刻的就是凌晨1點的時候被告知發生 Lock狀況發生……….

為了解決這個問題 我自己寫了一個自動偵測Lock 問題並自動解鎖的功能
從此就不用那麼命苦了……..

現有設備:
MS-SQL2000 的伺服器 主要MS-SQL主機為 ERPDB

第一步 新增預存程序
在ERPDB SQL Server 下的 資料庫 à master à 預存程序 頁面下 按右鍵 選新增預存程序
並將 下列SQL貼上 檢查語法沒有問題後按確定

create PROCEDURE auto_checkblocks AS

if exists ( select * from master..sysprocesses where blocked <> 0 )
begin
     --Select '有Black現象'
    Create Table #TestTale (spid varchar(5),cmd varchar(20))
     -- '以下是引起阻塞的语句' --
    Insert #TestTale
    select distinct spid = convert( varchar(5), a.spid, 4 ), cmd = convert( varchar(16), a.cmd )
    from master..sysprocesses a
    where spid in ( select blocked from master..sysprocesses ) and blocked = 0
    order by spid

     -- '以下是被阻塞的等待执行的语句' --
    Insert #TestTale
    select distinct spid = convert( varchar(5),a.spid, 4 ), cmd = convert( varchar(16), a.cmd )
    from master..sysprocesses a
    where blocked <> 0
    order by spid

   DECLARE MY_CURSOR Cursor FOR
       Select spid from #TestTale Where (cmd = 'AWAITING COMMAND' or cmd = 'SELECT' )
   Open MY_CURSOR
   DECLARE @spid varchar(5)
   Fetch NEXT FROM MY_CURSOR INTO @spid
       While (@@FETCH_STATUS <> -1)
       BEGIN
          Select  ( 'kill ' + @spid )
           exec ( 'kill ' + @spid )
           FETCH NEXT FROM MY_CURSOR INTO @spid
       END
   CLOSE MY_CURSOR
   DEALLOCATE MY_CURSOR

   Drop Table #TestTale
end
GO

預存程序 : 該程序會自動找出目前 MS-SQL 有沒有 Lock的狀況發生 如果發生了以後 自動判斷刪除 造成 Lock狀況的使用者

使用方式 : Exec auto_checkblocks
說明        : 該程序會自動找出目前 MS-SQL 有沒有 Lock的狀況發生
         如果有的話 會將使用狀態為 'AWAITING COMMAND' or 'SELECT' 的使用者踢走 解除 Lock狀態

MS SQL Server查詢優化方法

引用來源
--

●查詢速度慢的原因很多,常見如下幾種:
1、沒有索引或者沒有用到索引(這是查詢慢最常見的問題,是程序設計的缺陷)
2、I/O吞吐量小,形成了瓶頸效應。
3、沒有創建計算列導致查詢不優化。
4、記憶體不足
5、網絡速度慢
6、查詢出的資料量過大(可以採用多次查詢,其他的方法降低資料量)
7、鎖或者死鎖(這也是查詢慢最常見的問題,是程序設計的缺陷)sp_lock,sp_who,活動的使用者查看,原因是讀寫競爭資源。
9、返回了不必要的行和列
10、查詢語句不好,沒有優化


●可以通過如下方法來優化查詢 :
1、把資料、日志、索引放到不同的I/O設備上,增加讀取速度,以前可以將Tempdb應放在RAID0上,SQL2000不在支持。資料量(尺寸)越大,提高I/O越重要.
2、縱向、橫向分割表,減少表的尺寸(sp_spaceuse)
3、昇級硬體
4、根據查詢條件,建立索引,優化索引、優化訪問方式,限制結果集的資料量。注意填充因子要適當(最好是使用預設值0)。索引應該盡量小,使用位元組數小的列建索引好(參照索引的創建),不要對有限的幾個值的字段建單一索引如性別字段
5、提高網速;
6、擴大服務器的記憶體,Windows 2000和SQL server 2000能支持4-8G的記憶體。
配置虛擬記憶體:
虛擬記憶體大小應基於電腦上並發運行的服務進行配置。運行 Microsoft SQL Server™ 2000 時,可考慮將虛擬記憶體大小設置為電腦中安裝的物理記憶體的 1.5 倍。如果另外安裝了全文檢索功能,並打算運行 Microsoft 搜索服務以便執行全文索引和查詢,可考慮:
將虛擬記憶體大小配置為至少是電腦中安裝的物理記憶體的 3 倍。
將 SQL Server max server memory 服務器配置選項配置為物理記憶體的 1.5 倍(虛擬記憶體大小設置的一半)。
7、增加服務器CPU個數;但是必須明白並行處理串行處理更需要資源例如記憶體。使用並行還是串行程是MsSQL自動評估選擇的。單個任務分解成多個任務,就可以在處理器上運行。例如耽擱查詢的排序、連接、掃瞄和GROUP BY字句同時執行,SQL SERVER根據系統的負載情況決定最優的並行等級,復雜的需要消耗大量的CPU的查詢最適合並行處理。但是更新操作UPDATE,INSERT,DELETE還不能並行處理。
8、如果是使用like進行查詢的話,簡單的使用index是不行的,但是全文索引,耗空間。
like 'a%' 使用索引
like '%a' 不使用索引
用 like '%a%' 查詢時,查詢耗時和字段值總長度成正比,所以不能用CHAR類型,而是VARCHAR。對於字段的值很長的建全文索引。
9、DB Server 和APPLication Server 分離;OLTP和OLAP分離
10、分布式分區視圖可用於實現資料庫服務器聯合體。聯合體是一組分開管理的服務器,但它們相互協作分擔系統的處理負荷。這種通過分區資料形成資料庫服務器聯合體的機制能夠擴大一組服務器,以支持大型的多層 Web 站台的處理需要。有關更多資訊,參見設計聯合資料庫服務器。(參照SQL幫助文件'分區視圖')
a、在實現分區視圖之前,必須先水平分區表

b、在創建成員表后,在每個成員服務器上定義一個分布式分區視圖,並且每個視圖具有相同的
名稱。這樣,引用分布式分區視圖名的查詢可以在任何一個成員服務器上運行。系統操作如同每個成員服務器上都有一個原始表的復本一樣,但其實每個服務器上只有一個成員表和一個分布式分區視圖。資料的位置對應用程序是透明的。
11、重建索引 DBCC REINDEX ,DBCC INDEXDEFRAG,收縮資料和日志 DBCC SHRINKDB,DBCC SHRINKFILE.
設置自動收縮日志.對於大的資料庫不要設置資料庫自動增長,它會降低服務器的性能。

在T-sql的寫法上有很大的講究,下面列出常見的要點:
首先,DBMS處理查詢計划的過程是這樣的:
1、 查詢語句的詞法、語法檢查
2、 將語句提交給DBMS的查詢優化器
3、 優化器做代數優化和存取路徑的優化
4、 由預編譯模塊生成查詢規划
5、 然后在合適的時間提交給系統處理執行
6、 最后將執行結果返回給使用者
其次,看一下SQL SERVER的資料存放的結構:
一個頁面的大小為8K(8060)位元組,8個頁面為一個盤區,按照B樹存放。
Commit和rollback的區別
Rollback:回滾所有的事物。
Commit:提交當前的事物.
沒有必要在動態SQL里寫事物,如果要寫請寫在外面如:
begin tran
exec(@s)
commit trans
或者將動態SQL 寫成函數或者存儲過程。

13、在查詢Select語句中用Where字句限制返回的行數,避免表掃瞄,如果返回不必要的資料,浪費了服務器的I/O資源,加重了網絡的負擔降低性能。如果表很大,在表掃瞄的期間將表鎖住,禁止其他的聯接訪問表,后果嚴重。
14、SQL的注釋申明對執行沒有任何影響
15、盡可能不使用游標,它占用大量的資源。如果需要row-by-row地執行,盡量採用非游標技術,如:在客戶端循環,用臨時表,Table變量,用子查詢,用Case語句等等。游標可以按照它所支持的提取選項進行分類:
只進
必須按照從第一行到最后一行的順序提取行。FETCH NEXT 是唯一允許的提取操作,也是預設方式。
可捲動性
可以在游標中任何地方隨機提取任意行。
游標的技術在SQL2000下變得功能很強大,他的目的是支持循環。
有四個並發選項
READ_ONLY:不允許通過游標定位更新(Update),且在組成結果集的行中沒有鎖。
OPTIMISTIC WITH valueS:樂觀並發控制是事務控制理論的一個標準部分。樂觀並發控制用於這樣的情形,即在打開游標及更新行的間隔中,只有很小的機會讓第二個使用者更新某一行。當某個游標以此選項打開時,沒有鎖控制其中的行,這將有助於最大化其處理能力。如果使用者試圖修改某一行,則此行的當前值會與最后一次提取此行時獲取的值進行比較。如果任何值發生改變,則服務器就會知道其他人已更新了此行,並會返回一個錯誤。如果值是一樣的,服務器就執行修改。
選擇這個並發選項仁褂沒Щ虺絛蛟背械T鶉危砟切┍硎酒淥沒б丫雲浣辛誦薷牡拇砦蟆Sτ貿絛蚴盞秸庵執砦笫輩扇〉牡湫痛朧┚褪撬⑿掠偽輳竦悶湫輪擔緩筧糜沒Ь齠ㄊ欠穸孕輪到行薷摹?BR>OPTIMISTIC WITH ROW VERSIONING:此樂觀並發控制選項基於行版本控制。使用行版本控制,其中的表必須具有某種版本標識符,服務器可用它來確定該行在讀入游標后是否有所更改。在 SQL Server 中,這個性能由 timestamp 資料類型提供,它是一個二進制數字,表示資料庫中更改的相對順序。每個資料庫都有一個全局當前時間戳值:@@DBTS。每次以任何方式更改帶有 timestamp 列的行時,SQL Server 先在時間戳列中存儲當前的 @@DBTS 值,然后增加 @@DBTS 的值。如果某

個表具有 timestamp 列,則時間戳會被記到行級。服務器就可以比較某行的當前時間戳值和上次提取時所存儲的時間戳值,從而確定該行是否已更新。服務器不必比較所有列的值,只需比較 timestamp 列即可。如果應用程序對沒有 timestamp 列的表要求基於行版本控制的樂觀並發,則游標預設為基於數值的樂觀並發控制。
SCROLL LOCKS
這個選項實現悲觀並發控制。在悲觀並發控制中,在把資料庫的行讀入游標結果集時,應用程序將試圖鎖定資料庫行。在使用服務器游標時,將行讀入游標時會在其上放置一個更新鎖。如果在事務內打開游標,則該事務更新鎖將一直保持到事務被提交或回滾;當提取下一行時,將除去游標鎖。如果在事務外打開游標,則提取下一行時,鎖就被丟棄。因此,每當使用者需要完全的悲觀並發控制時,游標都應在事務內打開。更新鎖將阻止任何其它任務獲取更新鎖或排它鎖,從而阻止其它任務更新該行。然而,更新鎖並不阻止共享鎖,所以它不會阻止其它任務讀取行,除非第二個任務也在要求帶更新鎖的讀取。
捲動鎖
根據在游標定義的 SELECT 語句中指定的鎖提示,這些游標並發選項可以生成捲動鎖。捲動鎖在提取時在每行上獲取,並保持到下次提取或者游標關閉,以先發生者為準。下次提取時,服務器為新提取中的行獲取捲動鎖,並釋放上次提取中行的捲動鎖。捲動鎖獨立於事務鎖,並可以保持到一個提交或回滾操作之后。如果提交時關閉游標的選項為關,則 COMMIT 語句並不關閉任何打開的游標,而且捲動鎖被保留到提交之后,以維護對所提取資料的隔離。
所獲取捲動鎖的類型取決於游標並發選項和游標 SELECT 語句中的鎖提示。
鎖提示 只讀 樂觀數值 樂觀行版本控制 鎖定
無提示 未鎖定 未鎖定 未鎖定 更新
NOLOCK 未鎖定 未鎖定 未鎖定 未鎖定
HOLDLOCK 共享 共享 共享 更新
UPDLOCK 錯誤 更新 更新 更新
TABLOCKX 錯誤 未鎖定 未鎖定 更新
其它 未鎖定 未鎖定 未鎖定 更新
*指定 NOLOCK 提示將使指定了該提示的表在游標內是只讀的。
16、用Profiler來跟蹤查詢,得到查詢所需的時間,找出SQL的問題所在;用索引優化器優化索引
17、注意UNion和UNion all 的區別。UNION all好
18、注意使用DISTINCT,在沒有必要時不要用,它同UNION一樣會使查詢變慢。重復的記錄在查詢里是沒有問題的
19、查詢時不要返回不需要的行、列

20、用sp_configure 'query governor cost limit'或者SET QUERY_GOVERNOR_COST_LIMIT來限制查詢消耗的資源。當評估查詢消耗的資源超出限制時,服務器自動取消查詢,在查詢之前就扼殺掉。SET LOCKTIME設置鎖的時間

21、用select top 100 / 10 Percent 來限制使用者返回的行數或者SET ROWCOUNT來限制操作的行
22、在SQL2000以前,一般不要用如下的字句: "IS NULL", "<>", "!=", "!>", "!<", "NOT", "NOT EXISTS", "NOT IN", "NOT LIKE", and "LIKE '%500'",因為他們不走索引全是表掃瞄。也不要在WHere字句中的列名加函數,如Convert,substring等,如果必須用函數的時候,創建計算列再創建索引來替代.還可以變通寫法:WHERE SUBSTRING(firstname,1,1) = 'm'改為WHERE firstname like 'm%'(索引掃瞄),一定要將函數和列名分開。並且索引不能建得太多和太大。NOT IN會多次掃瞄表,使用EXISTS、NOT EXISTS ,IN , LEFT OUTER JOIN 來替代,特別是左連接,而Exists比IN更快,最慢的是NOT操作.如果列的值含有空,以前它的索引不起作用,現在2000的優化器能夠處理了。相同的是IS NULL,“NOT", "NOT EXISTS", "NOT IN"能優化她,而”<>”等還是不能優化,用不到索引。
23、使用Query Analyzer,查看SQL語句的查詢計划和評估分析是否是優化的SQL。一般的20%的代碼占據了80%的資源,我們優化的重點是這些慢的地方。
24、如果使用了IN或者OR等時發現查詢沒有走索引,使用顯示申明指定索引:
SELECT * FROM PersonMember (INDEX = IX_Title) WHERE processid IN (‘男’,‘女’)
25、將需要查詢的結果預先計算好放在表中,查詢的時候再SELECT。這在SQL7.0以前是最重要的手段。例如醫院的住院費計算。
26、MIN() 和 MAX()能使用到合適的索引。
27、資料庫有一個原則是代碼離資料越近越好,所以優先選擇Default,依次為Rules,Triggers, Constraint(約束如外健\主健\Check\UNIQUE……,資料類型的最大長度等等都是約束),Procedure.這樣不僅維護工作小,編寫程序質量高,並且執行的速度快。


28、如果要插入大的二進制值到Image列,使用存儲過程,千萬不要用內嵌INsert來插入(不知JAVA是否)。因為這樣應用程序首先將二進制值轉換成字符串(尺寸是它的兩倍),服務器受到字符后又將他轉換成二進制值.存儲過程就沒有這些動作:
方法:Create procedure p_insert as insert into table(Fimage) values (@image),
在前台調用這個存儲過程傳入二進制參數,這樣處理速度明顯改善。

29、Between在某些時候比IN速度更快,Between能夠更快地根據索引找到範圍。用查詢優化器可見到差別。
select * from chineseresume where title in ('男','女')
Select * from chineseresume where between '男' and '女'
是一樣的。由於in會在比較多次,所以有時會慢些。

30、在必要是對全局或者局部臨時表創建索引,有時能夠提高速度,但不是一定會這樣,因為索引也耗費大量的資源。他的創建同是實際表一樣。


31、不要建沒有作用的事物例如產生報表時,浪費資源。只有在必要使用事物時使用它。
32、用OR的字句可以分解成多個查詢,並且通過UNION 連接多個查詢。他們的速度只同是否使用索
引有關,如果查詢需要用到聯合索引,用UNION all執行的效率更高.多個OR的字句沒有用到索引,改寫成UNION的形式再試圖與索引匹配。一個關鍵的問題是否用到索引。
33、盡量少用視圖,它的效率低。對視圖操作比直接對表操作慢,可以用stored procedure來代替她。特別的是不要用視圖嵌套,嵌套視圖增加了尋找原始資料的難度。我們看視圖的本質:它是存放在服務器上的被優化好了的已經產生了查詢規划的SQL。對單個表檢索資料時,不要使用指向多個表的視圖,直接從表檢索或者僅僅包含這個表的視圖上讀,否則增加了不必要的開銷,查詢受到干擾.為了加快視圖的查詢,MsSQL增加了視圖索引的功能。
34、沒有必要時不要用DISTINCT和ORDER BY,這些動作可以改在客戶端執行。它們增加了額外的開銷。這同UNION 和UNION ALL一樣的道理。
SELECT top 20 ad.companyname,comid,position,ad.referenceid,worklocation,
convert(varchar(10),ad.postDate,120)
as postDate1,workyear,degreedescription
FROM jobcn_query.dbo.COMPANYAD_query ad
where referenceID
in('JCNAD00329667','JCNAD132168','JCNAD00337748','JCNAD00338345','JCNAD00333138','JCNAD00303570',
'JCNAD00303569','JCNAD00303568','JCNAD00306698','JCNAD00231935','JCNAD00231933','JCNAD00254567',
'JCNAD00254585','JCNAD00254608','JCNAD00254607','JCNAD00258524','JCNAD00332133','JCNAD00268618',
'JCNAD00279196','JCNAD00268613')
order by postdate desc

35、在IN后面值的列表中,將出現最頻繁的值放在最前面,出現得最少的放在最后面,減少判斷的次數。

36、當用SELECT INTO時,它會鎖住系統表(sysobjects,sysindexes等等),阻塞其他的連接的存取。創建臨時表時用顯示申明語句,而不是select INTO.
drop table t_lxh
begin tran
select * into t_lxh from chineseresume where name = 'XYZ'
--commit
在另一個連接中SELECT * from sysobjects可以看到
SELECT INTO 會鎖住系統表,Create table 也會鎖系統表(不管是臨時表還是系統表)。所以千萬不要在事物內使用它!!!這樣的話如果是經常要用的臨時表請使用實表,或者臨時表變量。
37、一般在GROUP BY 個HAVING字句之前就能剔除多余的行,所以盡量不要用它們來做剔除行的工作。他們的執行順序應該如下最優:select 的Where字句選擇所有合適的行,Group By用來分組個統計行,Having字句用來剔除多余的分組。這樣Group By 個Having的開銷小,查詢快.對於大的資料行進行分組和Having十分消耗資源。如果Group BY的目的不包括計算,只是分組,那麼用Distinct更快
41、一次更新多條記錄比分多次更新每次一條快,就是說批處理好
42、少用臨時表,盡量用結果集和Table類性的變量來代替它,Table 類型的變量比臨時表好
43、在SQL2000下,計算字段是可以索引的,需要滿足的條件如下:
a、計算字段的表達是確定的
b、不能用在TEXT,Ntext,Image資料類型
c、必須配制如下選項
ANSI_NULLS = ON, ANSI_PADDINGS = ON, …….
44、盡量將資料的處理工作放在服務器上,減少網絡的開銷,如使用存儲過程。存儲過程是編譯好、優化過、並且被組織到一個執行規划里、且存儲在資料庫中的SQL語句,是控制流語言的集合,速度當然快。反復執行的動態SQL,可以使用臨時存儲過程,該過程(臨時表)被放在Tempdb中。
以前由於SQL SERVER對復雜的數學計算不支持,所以不得不將這個工作放在其他的層上而增加網絡的開銷。SQL2000支持UDFs,現在支持復雜的數學計算,函數的返回值不要太大,這樣的開銷很大。使用者自定義函數象游標一樣執行的消耗大量的資源,如果返回大的結果採用存儲過程
45、不要在一句話里再三的使用相同的函數,浪費資源,將結果放在變量里再調用更快
46、SELECT COUNT(*)的效率教低,盡量變通他的寫法,而EXISTS快.同時請注意區別:
select count(Field of null) from Table 和 select count(Field of NOT null) from Table
的返回值是不同的!!!
47、當服務器的記憶體夠多時,配制線程數量 = 最大連接數+5,這樣能發揮最大的效率;
否則使用 配制線程數量<最大連接數啟用SQL SERVER的線程池來解決,如果還是數量 = 最大連接數+5,嚴重的損害服務器的性能。
48、按照一定的次序來訪問你的表。如果你先鎖住表A,再鎖住表B,那麼在所有的存儲過程中都要按照這個順序來鎖定它們。如果你(不經意的)某個存儲過程中先鎖定表B,再鎖定表A,這可能就
會導致一個死鎖。如果鎖定順序沒有被預先詳細的設計好,死鎖很難被發現


49、通過SQL Server Performance Monitor監視相應硬體的負載
Memory: Page Faults / sec計數器
如果該值偶爾走高,表明當時有線程競爭記憶體。如果持續很高,則記憶體可能是瓶頸。
Process:
1、% DPC Time 指在範例間隔期間處理器用在緩延程序調用(DPC)接收和提供服務的百分比。(DPC 正在運行的為比標準間隔優先權低的間隔)。 由於 DPC 是以特權模式執行的,DPC 時間的百分比為特權時間 百分比的一部分。這些時間單獨計算並且不屬於間隔計算總數的一部 分。這個總數顯示了作為實例時間百分比的平均忙時。
2、%Processor Time計數器
 如果該參數值持續超過95%,表明瓶頸是CPU。可以考慮增加一個處理器或換一個更快的處理器。
3、% Privileged Time 指非閑置處理器時間用於特權模式的百分比。(特權模式是為操作系統組件和操縱硬體驅動程序而設計的一種處理模式。它允許直接訪問硬體和所有記憶體。另一種模式為使用者模式,它是一種為應用程序、環境分系統和整數分系統設計的一種有限處理模式。操作系統將應用程序線程轉換成特權模式以訪問操作系統服務)。 特權時間的 % 包括為間斷和 DPC 提供服務的時間。特權時間比率高可能是由於失敗設備產生的大數量的間隔而引起的。這個計數器將平均忙時作為樣本時間的一部分顯示。
  4、% User Time表示耗費CPU的資料庫操作,如排序,執行aggregate functions等。如果該值很高,可考慮增
加索引,盡量使用簡單的表聯接,水平分割大表格等方法來降低該值。

Physical Disk: Curretn Disk Queue Length計數器
該值應不超過磁盤數的1.5~2倍。要提高性能,可增加磁盤。
SQLServer:Cache Hit Ratio計數器
該值越高越好。如果持續低於80%,應考慮增加記憶體。 注意該參數值是從SQL Server啟動后,就一直累加記數,所以運行經過一段時間后,該值將不能反映系統當前值。
40、分析select emp_name form employee where salary > 3000 在此語句中若salary是Float類型的,則優化器對其進行優化為Convert(float,3000),因為3000是個整數,我們應在程式化時使用3000.0而不要等運行時讓DBMS進行轉化。同樣字符和整型資料的轉換。
41、查詢的關聯同寫的順序
select a.personMemberID, * from chineseresume a,personmember b where
personMemberID = b.referenceid and a.personMemberID = 'JCNPRH39681'
(A = B ,B = ‘號碼’)
select a.personMemberID, * from chineseresume a,personmember b where
a.personMemberID = b.referenceid and a.personMemberID = 'JCNPRH39681'
and b.referenceid = 'JCNPRH39681'
(A = B ,B = ‘號碼’, A = ‘號碼’)
select a.personMemberID, * from chineseresume a,personmember b where
b.referenceid = 'JCNPRH39681' and a.personMemberID = 'JCNPRH39681'
(B = ‘號碼’, A = ‘號碼’)

42、(1) IF 沒有輸入負責人代碼 THEN
code1=0
code2=9999
ELSE
code1=code2=負責人代碼
END IF
執行SQL語句為:
SELECT 負責人名 FROM P2000 WHERE 負責人代碼>=:code1 AND負責人代碼 <=:code2
(2) IF 沒有輸入負責人代碼 THEN
 SELECT 負責人名 FROM P2000
ELSE
code= 負責人代碼
SELECT 負責人代碼 FROM P2000 WHERE 負責人代碼=:code
END IF
第一種方法只用了一條SQL語句,第二種方法用了兩條SQL語句。在沒有輸入負責人代碼時,第二種方法顯然比第一種方法執行效率高,因為它沒有限制條件;在輸入了負責人代碼時,第二種方法仍然比第一種方法效率高,不僅是少了一個限制條件,還因相等運算是最快的查詢運算。我們寫程序不要怕麻煩

43、關於JOBCN現在查詢分頁的新方法(如下),用性能優化器分析性能的瓶頸,如果在I/O或者網
絡的速度上,如下的方法優化切實有效,如果在CPU或者記憶體上,用現在的方法更好。請區分如下的方法,說明索引越小越好。
begin
DECLARE @local_variable table (FID int identity(1,1),ReferenceID varchar(20))
insert into @local_variable (ReferenceID)
select top 100000 ReferenceID from chineseresume order by ReferenceID
select * from @local_variable where Fid > 40 and fid <= 60
end

begin
DECLARE @local_variable table (FID int identity(1,1),ReferenceID varchar(20))
insert into @local_variable (ReferenceID)
select top 100000 ReferenceID from chineseresume order by updatedate
select * from @local_variable where Fid > 40 and fid <= 60
end
的不同

begin
create table #temp (FID int identity(1,1),ReferenceID varchar(20))
insert into #temp (ReferenceID)
select top 100000 ReferenceID from chineseresume order by updatedate
select * from #temp where Fid > 40 and fid <= 60
drop table #temp
end

2012年6月11日 星期一

sql case when like

逛網看到一則:

Select COL1,COL2, case
when COL3 like '%(%' THEN substr(COL3, INSTR(COL3, '(' )+1, INSTR(COL3,')')-INSTR(COL3,'(')-1)
end as COL3 from MY_TABLE


讓我覺得好奇,不曾這樣用過;小試了一下,哈~真好用:
 declare @a varchar(30)
set @a='一二三四五六654321'
select @a,case when @a like '%5%' then '有' else '無' end as chk

vb6 猜猜樂

在yahoo 知識+ 看到人問:猜猜樂怎寫;於是寫了一下,和大家分享:

 Private Sub Command1_Click(Index As Integer)
Dim ichk As Integer
Dim ibut As Integer
ichk = Int(4 * Rnd) + 1

ibut = Index + 1

If ichk = ibut Then
   MsgBox "恭喜妳,猜對了"
Else
   MsgBox "很抱歉,猜錯了"
End If

End Sub

2012年6月6日 星期三

vbnet 開啟文字檔


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Multiline = True
        TextBox1.ScrollBars = ScrollBars.Both
        '
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "text file(*.txt)|*.txt|all file(*.*)|*.*"
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            'TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)  '若沒定義編碼,預設會採用UTF8
            TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName, System.Text.ASCIIEncoding.Default)
        End If
    End Sub
End Class


windows 8 登場了

Windows 8 Release Preview ISO 映像檔 

系統需求

Windows 8 Release Preview 可以在能驅動 Windows 7 的同等級硬體上順暢運作:

•處理器:1 GHz 或更快

•RAM:1 GB (32 位元) 或 2 GB (64 位元)

•硬碟空間:16 GB (32 位元) 或 20 GB (64 位元)

•圖形卡:使用 WDDM 驅動程式的 Microsoft DirectX 9 繪圖裝置

4399 小遊戲,超級多

4399 小遊戲,超級多

2012年6月4日 星期一

Basic Encryption with the XOR command

參考引用
--
Dim strResult As String
Dim strChar1 As String * 1
Dim strChar2 As String * 1
 
   strChar1 = "E"
   strChar2 = "z"
   strResult = Chr(Asc(strChar1) Xor Asc(strChar2))

C# Examples 大本營,超級多

C# Examples , Development , Programming , Free source code
--
真是好呀,想學C# 的可來這兒學喔;超級多的
範例都不長喔,很容易上手

2012年6月2日 星期六

ListBox1 拖放


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ListBox1.AllowDrop = True
        Me.ListBox2.AllowDrop = True
        Me.ListBox1.Items.Add("1")
        Me.ListBox1.Items.Add("2")
    End Sub

    Private Sub ListBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
        If Me.ListBox1.SelectedIndex >= 0 Then
            Me.ListBox1.DoDragDrop(Me.ListBox1.SelectedItem.ToString, DragDropEffects.Copy)
        End If
    End Sub

    Private Sub ListBox2_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragEnter
        e.Effect = DragDropEffects.Copy
    End Sub

    Private Sub ListBox2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragDrop
        If e.Data.GetDataPresent(DataFormats.Text) Then
            Me.ListBox2.Items.Add(e.Data.GetData(DataFormats.Text))
        End If
    End Sub

OleDb.OleDbCommand.Update

好久沒看到這樣寫法了,收藏!
引用來源
----
 


Imports System.Data
Imports System.Data.OleDb

Public Class ItemDM
    Public ItemNo As String
    Public ItemName As String
    Public DescriptionCN As String
    Public ItemSize As String
    Public DanWei As String
    Public TypeS As String
    Public ColorS As String
    Public Price As Single
    Public BatchPrice As Single
    Public QTY As Integer
    Public SumMoney As Single
    Public MainProvider As String
    Public MainBuyer As String
    Public InCKDate As Date
    Public InCKAddress As String
    Public InPutDate As Date
    Public Remarks As String
End Class

Public Class ItemInfoClass
    Dim Conn As OleDbConnection
    Dim Cmd As OleDbCommand
    Dim DaAdapter As OleDbDataAdapter

    Public Function GetItemDMByItemNo(ByVal ItemNo As Integer) As ItemDM
        Dim DBCls As New DBOP
        Dim DT As New DataTable("StoreSys")
        Dim ReDM As New ItemDM
        SqlStr = "Select * From StoreSys Where ItmeNo='" & ItemNo & "'"
        DT = DBCls.GetDataTable(SqlStr)
        If DT.Rows.Count > 0 Then
            ReDM.ItemName = DT.Rows(0)(0).ToString
            ReDM.DescriptionCN = DT.Rows(0)(1).ToString
            ReDM.ItemSize = DT.Rows(0)(2).ToString
            ReDM.DanWei = DT.Rows(0)(3).ToString
            ReDM.TypeS = DT.Rows(0)(4).ToString
            ReDM.ColorS = DT.Rows(0)(5).ToString
            ReDM.Price = DT.Rows(0)(6).ToString
            ReDM.BatchPrice = DT.Rows(0)(7).ToString
            ReDM.QTY = DT.Rows(0)(8).ToString
            ReDM.SumMoney = DT.Rows(0)(9).ToString
            ReDM.MainProvider = DT.Rows(0)(10).ToString
            ReDM.MainBuyer = DT.Rows(0)(11).ToString
            ReDM.InCKDate = DT.Rows(0)(12).ToString
            ReDM.InCKAddress = DT.Rows(0)(13).ToString
            ReDM.InPutDate = DT.Rows(0)(14).ToString
            ReDM.Remarks = DT.Rows(0)(15).ToString
        End If
        Return ReDM
        DT = Nothing
        DBCls = Nothing
    End Function

    Public Function Add(ByVal DM As ItemDM) As Boolean
        SqlStr = "Insert Into StoreSys (ItemNo,ItemName,DescriptionCN,ItemSize,DanWei,TypeS,ColorS,Price,BatchPrice,QTY,SumMoney,MainProvider,MainBuyer,InCKDate,InCKAddress,InPutDate,Remarks)"
        SqlStr = SqlStr & " Values (@ItemNo,@ItemName,@DescriptionCN,@ItemSize,@DanWei,@TypeS,@ColorS,@Price,@BatchPrice,@QTY,@SumMoney,@MainProvider,@MainBuyer,@InCKDate,@InCKAddress,@InPutDate,@Remarks) "
        If ExeCmd(DM, SqlStr, "Insert") Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function Update(ByVal DM As ItemDM) As Boolean
        SqlStr = "Update StoreSys Set ItemName=@ItemName,DescriptionCN=@DescriptionCN,ItemSize=@ItemSize,DanWei=@DanWei,ColorS=@ColorS,Price=@Price,BatchPrice=@BatchPrice,QTY=@QTY,SumMoney=@SumMoney,MainProvider=@MainProvider,MainBuyer=@MainBuyer,InCKDate=@InCKDate,InCKAddress=@InCKAddress,InPutDate=@InPutDate,Remarks=@Remarks Where (ItemNo=@ItemNo and TypeS=@TypeS)"
        If ExeCmd(DM, SqlStr, "Update") Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function Delete(ByVal ItemNo As String) As Boolean
        SqlStr = "Delete From StoreSys Where ItemNo='" & ItemNo & "'"
        Conn = New OleDbConnection(DBOP.ConnStr)
        Conn.Open()
        Cmd = New OleDbCommand(SqlStr, Conn)
        Try
            Cmd.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Return False
        End Try
        Cmd = Nothing
        Conn.Close()
        Conn = Nothing
    End Function

    Public Function CheckItemNoIsExist(ByVal ItemNo As String) As Boolean
        SqlStr = "Select Count(*) From StoreSys Where ItemNo='" & ItemNo & "'"
        Dim DBCls As New DBOP
        If DBCls.CheckRSExistByKeyItem(SqlStr) Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Function ExeCmd(ByVal DM As ItemDM, ByVal SqlCmdStr As String, ByVal OpType As String) As Boolean
        Dim ItemNo As New OleDbParameter("@ItemNo", OleDbType.VarChar, 30)
        Dim ItemName As New OleDbParameter("@ItemName", OleDbType.VarChar, 50)
        Dim DescriptionCN As New OleDbParameter("@DescriptionCN", OleDbType.VarChar, 255)
        Dim ItemSize As New OleDbParameter("@ItemSize", OleDbType.VarChar, 50)
        Dim DanWei As New OleDbParameter("@DanWei", OleDbType.VarChar, 10)
        Dim TypeS As New OleDbParameter("@TypeS", OleDbType.VarChar, 50)
        Dim ColorS As New OleDbParameter("@ColorS", OleDbType.VarChar, 50)
        Dim Price As New OleDbParameter("@Price", OleDbType.Decimal)
        Dim BatchPrice As New OleDbParameter("@BatchPrice", OleDbType.Decimal)
        Dim QTY As New OleDbParameter("@QTY", OleDbType.Decimal)
        Dim SumMoney As New OleDbParameter("@SumMoney", OleDbType.Decimal)
        Dim MainProvider As New OleDbParameter("@MainProvider", OleDbType.VarChar, 255)
        Dim MainBuyer As New OleDbParameter("@MainBuyer", OleDbType.VarChar, 30)
        Dim InCKDate As New OleDbParameter("@InCKDate", OleDbType.DBDate)
        Dim InCKAddress As New OleDbParameter("@InCKAddress", OleDbType.VarChar, 255)
        Dim InPutDate As New OleDbParameter("@InPutDate", OleDbType.DBDate)
        Dim Remarks As New OleDbParameter("@Remarks", OleDbType.VarChar, 255)
        Conn = New OleDbConnection(DBOP.ConnStr)
        Conn.Open()
        Cmd = New OleDbCommand(SqlCmdStr, Conn)
        If OpType = "Insert" Then
            Cmd.Parameters.Add(ItemNo)
            Cmd.Parameters.Add(ItemName)
            Cmd.Parameters.Add(DescriptionCN)
            Cmd.Parameters.Add(ItemSize)
            Cmd.Parameters.Add(DanWei)
            Cmd.Parameters.Add(TypeS)
            Cmd.Parameters.Add(ColorS)
            Cmd.Parameters.Add(Price)
            Cmd.Parameters.Add(BatchPrice)
            Cmd.Parameters.Add(QTY)
            Cmd.Parameters.Add(SumMoney)
            Cmd.Parameters.Add(MainProvider)
            Cmd.Parameters.Add(MainBuyer)
            Cmd.Parameters.Add(InCKDate)
            Cmd.Parameters.Add(InCKAddress)
            Cmd.Parameters.Add(InPutDate)
            Cmd.Parameters.Add(Remarks)
        ElseIf OpType = "Update" Then
            Cmd.Parameters.Add(ItemName)
            Cmd.Parameters.Add(DescriptionCN)
            Cmd.Parameters.Add(ItemSize)
            Cmd.Parameters.Add(DanWei)
            Cmd.Parameters.Add(ColorS)
            Cmd.Parameters.Add(Price)
            Cmd.Parameters.Add(BatchPrice)
            Cmd.Parameters.Add(QTY)
            Cmd.Parameters.Add(SumMoney)
            Cmd.Parameters.Add(MainProvider)
            Cmd.Parameters.Add(MainBuyer)
            Cmd.Parameters.Add(InCKDate)
            Cmd.Parameters.Add(InCKAddress)
            Cmd.Parameters.Add(InPutDate)
            Cmd.Parameters.Add(Remarks)
            Cmd.Parameters.Add(ItemNo)
            Cmd.Parameters.Add(TypeS)
        End If
        ItemNo.Value = DM.ItemNo
        ItemName.Value = DM.ItemName
        DescriptionCN.Value = DM.DescriptionCN
        ItemSize.Value = DM.ItemSize
        DanWei.Value = DM.DanWei
        TypeS.Value = DM.TypeS
        ColorS.Value = DM.ColorS
        Price.Value = DM.Price
        BatchPrice.Value = DM.BatchPrice
        QTY.Value = DM.QTY
        SumMoney.Value = DM.SumMoney
        MainProvider.Value = DM.MainProvider
        MainBuyer.Value = DM.MainBuyer
        InCKDate.Value = DM.InCKDate
        InCKAddress.Value = DM.InCKAddress
        InPutDate.Value = DM.InPutDate
        Remarks.Value = DM.Remarks
        Try
            Cmd.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Return False
        End Try
        Cmd = Nothing
        Conn.Close()
        Conn = Nothing
    End Function

End Class

如何拖放自定义的数据类型

參考來源

BackgroundWorker

參考引用
--
 Imports System.Net
Imports System.Threading

Public Class FrmBgWorker

    Private LanHost As String(,)
    Private thread As Thread()
    Private LocalIPStr As String

    '初始化数组
    Private Sub InitLanHost()
        LanHost = New String(254, 1) {}
        For i As Integer = 0 To 254
            LanHost(i, 0) = ""
            LanHost(i, 1) = ""
        Next
    End Sub

    '查询主机
    Private Sub LanSearch()
        thread = New Thread(254) {}
        Dim localhost As String = (Dns.GetHostEntry(Dns.GetHostName())).AddressList(0).ToString()
        '本地主机IP地址
        LocalIPStr = localhost.Substring(0, localhost.LastIndexOf("."))
        Dim threadMethod As ThreadStart
        For i As Integer = 0 To 254
            '建立255个线程扫描IP
            threadMethod = New ThreadStart(AddressOf LanSearchThreadMethod)
            thread(i) = New Thread(threadMethod)
            thread(i).Name = i.ToString()
            thread(i).Start()
            If Not thread(i).Join(100) Then
                'Thread.Join(100)不知道这处这么用对不对,感觉没什么效果一样
                thread(i).Abort()
            End If
            Me.BgWorker.ReportProgress(0, i.ToString)
        Next
        'using event or thread to access the serach result
        'RaiseEvent FList()  
        '注意注册事件or用线程
        'Dim th As Thread = New Thread(AddressOf ListLanHost)
        'th.Start()
    End Sub

    ''' 多线程搜索方法
    Private Sub LanSearchThreadMethod()
        Dim Currently_i As Integer = Convert.ToInt32(Threading.Thread.CurrentThread.Name.ToString)
        '当前进程名称
        Dim ScanIP As IPAddress = IPAddress.Parse((LocalIPStr & ".") + Convert.ToString(Currently_i + 1))
        '获得扫描IP地址
        Dim ScanHost As IPHostEntry = Nothing
        ScanHost = Net.Dns.GetHostEntry(ScanIP)
        '获得扫描IP地址主机信息
        If ScanHost IsNot Nothing Then
            LanHost(Currently_i, 0) = ScanIP.ToString()
            LanHost(Currently_i, 1) = ScanHost.HostName
        End If
    End Sub

    '搜索后,显示到listview里面,因为是用BackGroundWorker组件。所以在
    Private Sub ListLanHost()
        'Dim AddLvInst As New SetListViewDelegate(AddressOf AddLvFunc)
        Dim lv As ListViewItem
        For i As Integer = 0 To 254
            If LanHost(i, 0) <> "" Then
                lv = New ListViewItem()
                lv.Text = LanHost(i, 1)
                lv.SubItems.Add(LanHost(i, 0))
                ' ListView1.Invoke(AddLvInst, lv)
                Me.ListView1.Items.Add(lv)
            End If
        Next
        Me.TextBox1.Text = String.Format("搜索完毕:{0},共找到主机:{1}台。", LanHost.GetLength(0).ToString, Me.ListView1.Items.Count.ToString)
    End Sub

    Private Sub FrmBgWorker_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        InitLanHost()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.BgWorker.RunWorkerAsync()
    End Sub

    Private Sub BgWorker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BgWorker.DoWork

        LanSearch()
    End Sub

    Private Sub BgWorker_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BgWorker.ProgressChanged
        Me.TextBox1.Text = String.Format("搜索IP:{0}.{1}", LocalIPStr, e.UserState.ToString)
        Me.PrgsBar.Value = CInt(e.UserState.ToString)
    End Sub

    Private Sub BgWorker_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BgWorker.RunWorkerCompleted
        ListLanHost()
    End Sub

End Class

DataGridView 拖曳至 ListBox 中

參考引用
---
 Private Sub FrmDvDrag_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.DataGridView1.Columns.Add("code", "code")
        Me.DataGridView1.Columns.Add("name", "name")
        Me.DataGridView1.AllowDrop = True
        Me.ListBox1.AllowDrop = True
        Me.DataGridView1.Rows.Add("1", "23423")
        Me.DataGridView1.Rows.Add("2", "asaer")
    End Sub

Private Sub DataGridView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left And Me.DataGridView1.SelectedRows.Count > 0 Then
            Dim SelRow As DataGridViewSelectedRowCollection
            SelRow = Me.DataGridView1.SelectedRows
            Me.DataGridView1.DoDragDrop(SelRow, DragDropEffects.Copy)
        End If
    End Sub

    Private Sub ListBox1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
        If e.Data.GetDataPresent(GetType(DataGridViewSelectedRowCollection)) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub

    Private Sub ListBox1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
        If e.Data.GetDataPresent(GetType(DataGridViewSelectedRowCollection)) Then
            Dim dr As DataGridViewSelectedRowCollection
            dr = e.Data.GetData(GetType(DataGridViewSelectedRowCollection))
            For i As Integer = 0 To dr.Count - 1
                Me.ListBox1.Items.Add(dr.Item(i).Cells(0).Value)
            Next
        End If
    End Sub

Drag and drop a filename into a DataGridView

參考引用
--
     Private Sub TblSheepGroupPhotosDataGridView_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TblSheepGroupPhotosDataGridView.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All
        End If
    End Sub

    Private Sub TblSheepGroupPhotosDataGridView_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TblSheepGroupPhotosDataGridView.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim PhotoFiles() As String
            Dim i As Integer

            ' Assign the files to an array.
            PhotoFiles = e.Data.GetData(DataFormats.FileDrop)
            ' Loop through the array and add the files to the list.
            For i = 0 To PhotoFiles.Length - 1
                Dim CurrentFile As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo(PhotoFiles(i).ToString)
                MsgBox("INSERT INTO tblSheepGroupPhotos(Filename) VALUES('" & CurrentFile.Name & "';")
            Next
        End If
    End Sub

Drag and drop DataGrid

參考引用
---
底下有點不大一致,但大致方法是如此

Public Class frmDataGrid
    ' Some Properties that I have set for the Grid
    ' SelectionMode = FullRowSelect [For both the Grids]
    ' AllowDrop = True [For Grid DataGridView2]
    '
    '
    Dim DT1 As DataTable
    Dim DT2 As DataTable

    Private Sub frmDataGrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillDataInGrids()
    End Sub

    Private Sub FillDataInGrids()
        DT1 = New DataTable
        DT2 = New DataTable

        'The First Table has four columns
        DT1.Columns.Add("Name", Type.GetType("System.String"))
        DT1.Columns.Add("Designation", Type.GetType("System.String"))
        DT1.Columns.Add("Department", Type.GetType("System.String"))
        DT1.Columns.Add("Salary", Type.GetType("System.String"))

        'Second has only two
        DT2.Columns.Add("Name", Type.GetType("System.String"))
        DT2.Columns.Add("Designation", Type.GetType("System.String"))

        'Now Add some Rows in the first DataTable
        Dim Dr As DataRow

        Dr = DT1.NewRow
        Dr("Name") = "Tom"
        Dr("Designation") = "Developer"
        Dr("Department") = "Engg"
        Dr("Salary") = "1000"
        DT1.Rows.Add(Dr)

        Dr = DT1.NewRow
        Dr("Name") = "Jerry"
        Dr("Designation") = "Developer"
        Dr("Department") = "Engg"
        Dr("Salary") = "1000"
        DT1.Rows.Add(Dr)

        Dr = DT1.NewRow
        Dr("Name") = "Micky"
        Dr("Designation") = "Analyst"
        Dr("Department") = "Engg"
        Dr("Salary") = "2000"
        DT1.Rows.Add(Dr)

        Dr = DT1.NewRow
        Dr("Name") = "Mini"
        Dr("Designation") = "Analyst"
        Dr("Department") = "Engg"
        Dr("Salary") = "2000"
        DT1.Rows.Add(Dr)

        Dr = DT1.NewRow
        Dr("Name") = "Donald"
        Dr("Designation") = "Manager"
        Dr("Department") = "Engg"
        Dr("Salary") = "3000"
        DT1.Rows.Add(Dr)

        'Now Bind the DataGrids to these table
        DGV1.DataSource = DT1
        DGV2.DataSource = DT2

    End Sub

    Private Sub DataGridView1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseDown
        'Get the Index of Row which is being Dragged
        'We would use this Index on Drop to identify which Row was dragged and get the values from that row
        Dim Index As Integer
        Index = DataGridView1.HitTest(e.X, e.Y).RowIndex
        If Index > -1 Then
            'Pass the Index as "Data" argument of the DoDragDrop Function
            DataGridView1.DoDragDrop(Index, DragDropEffects.Move)
        End If
      End Sub

    Private Sub DataGridView2_DragOver(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DataGridView2.DragOver
        'Just to Show a mouse icon to denote drop is allowed here
        e.Effect = DragDropEffects.Move
    End Sub

    Private Sub DataGridView2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DataGridView2.DragDrop
        Try
            'Get the Index value that we stored in the Data in the MouseDown event
            'In case we stored a PrimaryKey value here in place of Index, we would get that by Type casting it to its type
            Dim index As Integer = Convert.ToInt32(e.Data.GetData(Type.GetType("System.Int32")))

            'Now based on the Index get the data in the Cells
            'Again if we had Primary Key value here we would have used the underlying DataTable DT1 to get the data for that key
            Dim Name As String
            Dim Desig As String
            Name = DataGridView1.Rows(index).Cells("Name").Value.ToString
            Desig = DataGridView1.Rows(index).Cells("Designation").Value.ToString
            Dim Dr As DataRow
            Dr = DT2.NewRow
            Dr("Name") = Name
            Dr("Designation") = Desig
            DT2.Rows.Add(Dr)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

End Class

Jet 4.0 Service Pack 8

Jet 4.0 Service Pack 8 (SP8) for Windows XP 
--
其他 OS windows 2003 , windows 2000
關於 Microsoft Jet 4.0 SP8