I-Cloud程式攻略

透過MX Component將DWord值取回後，要將它轉成數值顯示在畫面上，或是設定到PLC裏。
    Public Function SetDWord(ByVal data As String, ByVal str As String, Optional ByVal plus As Double = 1, Optional ByVal shift As Double = 1) As String
        Dim value As String = "0"
        Dim s As String = CDbl(data) * plus / shift
        Dim byarrBufferByte() As Byte

1.當資料庫使用簡體字時，須將資料型別設定為N開頭的型別
2.
3.寫入資料庫時語法中也要加入N如：NSERT into Alarm (CODE,InTime,Description,Solution,OutTime) Values ('GM1230','2010/7/20 18:00:00',N'发生问题',N'解決方式','2010/7/20 19:00:00')

backup log 資料庫名稱 with truncate_only;
dbcc shrinkdatabase(資料庫名稱);

將二個相同欄位格式的方式合併成同一筆資料。
如：
select * from P1 where id='xxx'
UNION
select * from P2 where id='xxx'

日前遇到MSSQL欄位資料會多出好幾個空白字元，利用Update語法及RTrim字串函數將空字元清除。語法如下：UPDATE TableNameSET 欄位名1 = RTrim(欄位名1)Where 欄位名2='xxx'
字串函數:RTRIM() 傳回截斷所有尾端空白的字元字串。LTRIM() 傳回移除開頭空白的字元運算式。

1、說明：複製表(只複製結構,源表名：a 新表名：b) (Access可用)
法一：select * into b from a where 1<>1
法二：select top 0 * into b from a
2、說明：拷貝表(拷貝資料,源表名：a 目標表名：b) (Access可用)
insert into b(a, b, c) select d,e,f from b;

1.INSERT INTO SELECT語法
  語法為：Insert into Table2(field1,field2,...) select value1,value2,... from Table1
  要求目標表Table2必須存在，由於目標表Table2已經存在，所以我們除了插入源表Table1的字段外，才可   以插入常量。
2.SELECT INTO FROM語法
  語法為：SELECT vale1, value2 into Table2 from Table1
   要求目標表Table2不存在，因為在插入時會自動創建表Table2，並將Table1中指定字段數據復制到            Table2中。

使用VB.NET撰寫介面，讓使用者輸入基本的參數後，就產生一些基本的程式碼。產生的程式碼使用【記事本】看起來內容都是正常的，可是從VS2008開啟相關檔案後卻發現，所有中文的部分都變成了亂碼!!發現原來產生的文字檔都是用UTF-8的格式。試著用記事本把檔案另存成ANSI格式後使用VS2008開啟，中文字的部分終於正常了。使用StreamWriter的方式產生文字檔，程式如下：sw As New StreamWriter("D:\TEMP\Test.vb")
修改為 sw As New StreamWriter("D:\TEMP\Test.vb", False, System.Text.Encoding.GetEncoding(950))即可正常

判斷奇數偶數是一個很簡單的問題，很直覺地能想到除以2檢查餘數，餘數若為1則是奇數，餘數為0則是偶數，若將整數轉成二進位，檢查最後一個bit 是否為1，若為1則是奇數，為0則是偶數。不過此方法僅適用於目前常見的電腦，仍有部分系統無法使用此方法檢查負數是否為奇數或偶數。
IIf((n And 1) = 1, n & "為奇數", n & "為偶數")

請在SerialPort的HandShake屬性設定為 Handshake.RequestToSend如： RS232.Handshake = Handshake.RequestToSend