end select

       End Property

       ''''************************************

       ''''函数

       ''''************************************

    ''''增加字段（字段名称，字段值）

       Public Sub AddField(sFieldName,sValue)

              select case iSQLType

              case 0

                     sSQL=replace(sSQL,"#1",sFieldName & ",#1")

                     sSQL=replace(sSQL,"#2","''''" & sFieldName & "'''',#2")

              case 1

                     sSQL=replace(sSQL,"#1",sFieldName)

                     sSQL=replace(sSQL,"#2","''''" & sFieldName & "'''',#1=#2")

              case 3

                     sSQL=replace(sSQL,"#1",sFieldName & ",#1")

              End Select

       End Sub

       ''''返回SQL语句

       Public Function ReturnSQL()

              sSQL=replace(sSQL,"#0",sTableName)

              select case iSQLType

              case 0

                     sSQL=replace(sSQL,",#1","")

                     sSQL=replace(sSQL,",#2","")

              case 1

                     sSQL=replace(sSQL,",#1=#2","")

              case 3

                     sSQL=replace(s

上一页  [1] [2] [3] [4]  下一页