(1)使用 ADO
Dim objRst As ADODB.Recordset
...
...
將資料表某一欄資料放置 combo Box
cmbCountry.Items.Add(objRst("國家簡稱英文").Value.ToString)
(2)使用 ADO.NET
Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Environment.CurrentDirectory & "\Country.mdb"
    ' SQL 字串。
    Dim strSQL As String = "SELECT 國家簡稱英文 FROM tblCountry ORDER BY 國家簡稱英文"
    
    ' 建立 ADOConnection 物件。
    Dim objCon As New ADO.ADOConnection(strCon)
    
    ' 建立 ADOCommand 物件。
    ' 參數一為 SQL 指令。
    ' 參數二為 ADOConnection 物件。
    Dim objCmd As New ADO.ADOCommand(strSQL, objCon)
    
    ' 宣告一個 ADODataReader 物件。
    Dim objDR As ADO.ADODataReader
...
cmbCountry.Items.Add(objDR("國家簡稱英文").ToString)
'
3)與上述差異一個.Value.
外國作者解釋為
Since everything is an object(objDR) and you do'nt have
any defaults, you have to use the ToString function for
the objDR Value.
4)請問OO高手,其解釋之意義為何?本人端詳半天看不出解釋為何?
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(5) 人氣()