追風箏的小孩 » VB.NET http://m955.com/wp Thu, 03 Nov 2011 14:47:32 +0000 http://wordpress.org/?v=2.8 en hourly 1 利用commandbuilder來節省設定屬性與參數步驟 http://m955.com/wp/archives/150 http://m955.com/wp/archives/150#comments Fri, 12 Sep 2008 08:12:40 +0000 blue955 http://m955.com/wp/?p=150 PLAIN TEXT
VB.NET:
  1. '建立 DataAdapter 物件
  2.     Dim objCmd As New OleDbDataAdapter("Select * From 成績單", objConn)
  3. '建立 CommandBuilder 物件
  4.     Dim objCB As OleDbCommandBuilder = New OleDbCommandBuilder(objCmd)
  5. '建立 DataSet 物件，並將 SelectCommand 的執行結果置入 DataSet 物件中
  6.    Dim DS As New DataSet()
  7.    objCmd.Fill(DS, "成績單")
  8. '建立 myTable 為 DataTable 物件，將 DataSet 物件的成績單資料表指定給 myTable   
  9.    Dim myTable As DataTable = DS.Tables("成績單")
  10. '修改資料列
  11.    myTable.Rows(6)("統計") = 80
  12. '刪除資料列
  13.    myTable.Rows(4).Delete()
  14. '新增資料列
  15.    Dim myRow As DataRow = myTable.NewRow()
  16.    myRow("學號") = "A8608011"
  17.    myRow("姓名") = "小丸子"
  18.    myRow("會計") = 95
  19.    myRow("統計") = 70
  20.    myTable.Rows.Add(myRow)
  21. '將 DataSet 物件的資料更新到來源資料
  22.    objCmd.Update(DS, "成績單")

]]> http://m955.com/wp/archives/150/feed 0 建立資料庫連接字串的方法 http://m955.com/wp/archives/123 http://m955.com/wp/archives/123#comments Tue, 20 May 2008 15:32:38 +0000 blue955 http://m955.com/wp/?p=123 一、使用 ConnectionStringBuilder
1.連接 Access

PLAIN TEXT
VB.NET:
  1. Dim builder As New OleDbConnectionStringBuilder
  2. builder.Provider = "Microsoft.Jet.OLEDB.4.0"
  3. builder.DataSource = "|DataDirectory|\test.mdb"
  4. builder.Add("Jet OLEDB:Database Password", "123456")
  5. Dim str As String = builder.ConnectionString
  6. Return str


2.連接 SQLServer

PLAIN TEXT
VB.NET:
  1. Dim builder As New SqlConnectionStringBuilder
  2. builder.DataSource = "(local)\SQLEXPRESS"
  3. builder.InitialCatalog = "北風貿易"
  4. builder.IntegratedSecurity = True
  5. Dim str As String = builder.ConnectionString
  6. Return str

3.連接 MySql (必須安裝 MySql.Data 外掛) 請參考...

PLAIN TEXT
VB.NET:
  1. Imports MySql.Data
  2. Imports MySql.Data.MySqlClient
  3.  
  4. Public Class Form1
  5.     Private Sub Form1_Load(ByVal sender As System.Object, _
  6.     ByVal e As System.EventArgs) Handles MyBase.Load
  7.  
  8.         Dim builder As New MySqlConnectionStringBuilder
  9.         builder.Server = "localhost"
  10.         builder.UserID = "root"
  11.         builder.Password = "123456"
  12.         builder.Database = "test"
  13.         Dim str As String = builder.ConnectionString
  14.  
  15.         Dim conn As New MySqlConnection(str)
  16.         Dim commCMD As String = "select * from product"
  17.         Dim da As New MySqlDataAdapter(commCMD, conn)
  18.         Dim ds As New DataSet
  19.         conn.Open()
  20.         da.Fill(ds, "pro")
  21.         DataGridView1.DataSource = ds.Tables("pro")
  22.         conn.Close()
  23.     End Sub
  24. End Class

二、使用自行撰寫連線字串，此方法容易因為人為疏失而產生錯誤
1.連接 SQLServer

PLAIN TEXT
VB.NET:
  1. Me.SqlConnection1.ConnectionString = _
  2. "Data Source=(local)\SQLEXPRESS; _
  3. Initial Catalog=北風貿易; _
  4. Integrated Security=True"

]]> http://m955.com/wp/archives/123/feed 2 ComboBox 的資料繫結合傳遞參數 http://m955.com/wp/archives/111 http://m955.com/wp/archives/111#comments Thu, 08 May 2008 10:11:42 +0000 blue955 http://m955.com/wp/archives/111         相信大家應該都在教科書上看過資料繫結分為：簡單繫結和複雜繫結，簡單繫結就是把元件的 Binding 屬性連結到資料來源，而複雜繫結運用在有支援 iList 介面的控制項，例如：DataGrid、ListBox、ComboBox 與 ErrorProvider控制項皆支援複雜的資料繫結。

        那 iList 介面是啥？就目前我還不知道，不過會用就好，微軟常常把一些名詞弄得很複雜，一看就感到很難似的！題外話！今天討論的是 ComboBox，這幾天弄得有一些小小的心得！

        今天如果要在 ComboBox 繫結資料的話，先瞭解一下下面 ComboBox 的一些屬性名詞，據我的經驗，懂了這一些屬性之後，管你要結上啥資料，都可以啦！

1：ComboBox.DataSource
     資料的來源，可能是 DataSet、DataTable 或者泛型集合，只要可以提供資料者皆可！

2：ComboBox.DisplayMember
     就字面上解釋，顯示的成員，就是你要放在下拉選單中讓使用者選擇的項目，當然！必須包含在 DataSource 中，不然就會找不到。

3：ComboBox .ValueMember
     英翻中，變數成員，今天有的下拉的選項之後，可能是帶變數的字串，這個就是用來指定各成員的代表變數，例：下拉選單有產品的類別：五金類、家庭類、油漆類...，不過寫入資料庫的值是各分類的代表數字，這個時候就可以來使用 ValueMember。

4：ComboBox .SelectedIndex
     當你使用了 ValueMember 之後，ValueMember 就會把選擇的值丟到 SelectedIndex 裡，我們再透過 SelectedIndex 來取出所選擇的值，例：lbl1.Text = ComboBox .SelectedIndex.ToString ，這時候控制項 lbl1 就會出現我們在 ComboBox 所選的代表變數。

]]> http://m955.com/wp/archives/111/feed 1 VB2005 會自動切換成全形 http://m955.com/wp/archives/108 http://m955.com/wp/archives/108#comments Fri, 02 May 2008 14:29:01 +0000 blue955 http://m955.com/wp/?p=108 我相信應該有些人會遇到跟我一樣的問題

從vb2005編譯出來的textbox，使用者在輸入時會自動切換成全型

甚至在開發視窗裡也會有這樣的問題，這的確是一件很煩人的事

輸入中文倒是沒影響，不過輸入英數就會變成全形

ABCD → ＡＢＣＤ
1234 → １２３４

問GOOGLE大神，他說要裝修補程式：KB925488

不過我裝了也沒啥差別，沒有放上來，有需要的人在寫信給我吧！

在藍色小舖上有看到一個解決的方法，有需要的人拿去用看看

我自己呢？跟著做了之後，有些有用有些無用

先宣告一各類別

PLAIN TEXT
Visual Basic:
  1. Public Class ImeForm
  2.  
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     Private Declare Function ImmGetContext Lib "imm32.dll" (ByVal hwnd As Integer) As Integer
  6.     Private Declare Function ImmGetConversionStatus Lib "imm32.dll" (ByVal himc As Integer, ByRef lpdw As Integer, ByRef lpdw2 As Integer) As Integer
  7.     Private Declare Function ImmSimulateHotKey Lib "imm32.dll" (ByVal hwnd As Integer, ByVal dw As Integer) As Integer
  8.  
  9.     Private Sub Form_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
  10.         For Each objCtl As Control In Me.Controls
  11.             AddHandler objCtl.GotFocus, AddressOf ControlIME
  12.         Next
  13.     End Sub
  14.  
  15.     Private Sub Form_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
  16.         ControlIME(Me, Nothing)
  17.     End Sub
  18.  
  19.     Private Shared Sub ControlIME(ByVal sender As Object, ByVal e As System.EventArgs)
  20.         Dim lngStatus As Long, lngSt As Long, h As IntPtr = sender.Handle
  21.         ImmGetConversionStatus(ImmGetContext(h), lngStatus, lngSt)
  22.         If lngStatus = 9 Then ImmSimulateHotKey(h, 113)
  23.     End Sub
  24.  
  25. End Class

之後再每一個 Form 中繼承這一個類別

PLAIN TEXT
Visual Basic:
  1. Inherits ImeForm

之後再將 Form 中的IME 模式開啟 ON

大家試試看吧！

我之後是將 XP 內建的新注音換成自然輸入，這問題才解決，不過這不是解決事情的辦法啊！

]]> http://m955.com/wp/archives/108/feed 0 VB2005 ImeMode 屬性 http://m955.com/wp/archives/106 http://m955.com/wp/archives/106#comments Thu, 01 May 2008 00:23:21 +0000 blue955 http://m955.com/wp/?p=106 Alpha
字母數字單字節字符 (SBC)。此設置僅對朝鮮語和日語 IME 有效。

AlphaFull
字母數字雙字節字符。此設置僅對朝鮮語和日語 IME 有效。

Close
關閉

Disable
IME 被禁用。如果使用此設置，則用戶無法從鍵盤打開 IME，而且 IME 浮動窗口處於隱藏狀態。

Hangul
朝鮮文 SBC。此設置僅對朝鮮語 IME 有效。

HangulFull
朝鮮文 DBC。此設置僅對朝鮮語 IME 有效。

Hiragana
平假名 DBC。此設置僅對日語 IME 有效。

Inherit
繼承父控件的 IME 模式。

Katakana
片假名 DBC。此設置僅對日語 IME 有效。

KatakanaHalf
片假名 SBC。此設置僅對日語 IME 有效。

NoControl
無（預設）。

Off
IME 已關閉。此模式指示 IME 已關閉，這意味著該對象的行為方式與英語輸入模式相同。此設置僅對日語、簡體中文和繁體中文 IME 有效。

On
IME 已打開。此值指示 IME 已打開，可以輸入中文或日語特定的字符。此設置僅對日語、簡體中文和繁體中文 IME 有效。

]]> http://m955.com/wp/archives/106/feed 0