四月三日

同样是看英语，看完英文文献感觉英语水平有进步，但程序的帮助文档为什么就没有？

看来，不管学什么，都是一个反复的过程。不懂的，看不明白的，只有反复弄明白了才会进步。

所以，以后查阅的文档，把链接保存下来，关键句子，回头再消化。

For conceptual information about using this namespace when programming with the .NET Framework

http://msdn.microsoft.com/en-us/library/system.data.oracleclient(v=vs.80).aspx

            strCon = "user id=" & INIDefine.valueINI.USER
            strCon = strCon & ";data source="
            strCon = strCon & INIDefine.valueINI.SID
            strCon = strCon & ";password="
            strCon = strCon & INIDefine.valueINI.PASSWORD

注意字符串的拼接

DBOracle.SQLWhere = "CD_WORKER='" & strWorkerCD & "'"

怎样把编程速度提高？不能光靠网上查。

    Public Function SearchWorker(ByVal strWorkerCD As String, _
                                        ByRef strWorkerName As String) As Integer

        Dim lRet As Integer  

        Try

            DBOracle.Clear()
            DBOracle.SQLTable = "M_WORKER"
            DBOracle.SQLSelect = "NA_WORKER"
            DBOracle.SQLWhere = "CD_WORKER='" & strWorkerCD & "'"
            DBOracle.MakeSqlStr(SELECT_SQL)

            lRet = DBOracle.DynasetSql2()

            If lRet = HAVE_DATA Then
                strWorkerName = CStr(DBOracle.SQLResult2.Item("NA_WORKER")).Trim()
            Else
                strWorkerName = ""
            End If
第十三行与第十六行区别？

Public Property SQLResult2() As OracleDataReader

属性过程定义as OracleDataReader？

site:msdn.microsoft.com oracledatareader

Public Shared Property DBOracle() As clsCmnDB

String.Trim Method ():Removes all occurrences of white space characters from the beginning and end of this instance 

OracleTransaction Class:Represents a transaction to be made in the database 

    Public Sub Main()
        Dim a() As String = {"P", "1P", "3N1"}
        Dim i As Integer
        Dim b As String = "PPARTS-0401-01"
        For i = 0 To a.Length - 1
            If b.StartsWith(a(i)) Then
                b = b.Trim(a(i).ToArray)
            End If
        Next
        Console.WriteLine(b)
        Console.Read()
    End Sub

注意Trim会把所有的p全部截掉，而不是只截一个。