Click here to Skip to main content
Click here to Skip to main content
Articles » Database » Database » Databases » Downloads
 
Add your own
alternative version
Go to top

Object-Oriented database design with the DatabaseObjects library

, 31 Jan 2007
Demonstrates creating object-oriented database systems with the DatabaseObjects library.
databaseobjects_demo_net.zip
VB.NET
demo
source
Northwind
NorthwindDB
bin
Northwind.vbproj.user
AxInterop.SHDocVw.dll
DatabaseObjects.dll
Interop.SHDocVw.dll
Northwind.exe
NorthwindDatabase.dll
NorthwindDatabase.vbproj.user
Attributes
bin
Database
DatabaseObjects.vbproj.user
Misc
SQL
DatabaseObjects.dll
Data
mysql_northwind.zip
Documentation
DatabaseObjects.chm
databaseobjects_demo_vb6.zip
VB6
demo
regsvr32.exe
source
Northwind
Northwind.vbg
NorthwindDB
ControlAnchor.cls
frmMain.frm
frmMain.frx
frmOrder.frm
frmOrder.frx
frmProducts.frm
frmProducts.frx
frmProductSearch.frm
frmProductSearch.frx
frmProductSearchExtended.frm
frmProductSearchExtended.frx
frmSuppliers.frm
frmSuppliers.frx
Northwind.exe
northwind.RES
Northwind.vbp
Categories.cls
Category.cls
Data.bas
LateBoundObject.cls
NorthwindDatabase.cls
NorthwindDatabase.OBJ
NorthwindDB.dll
NorthwindDB.vbp
Order.cls
OrderDetail.cls
OrderDetails.cls
Orders.cls
Product.cls
Products.cls
ProductSearch.cls
Supplier.cls
Suppliers.cls
bin
Database.cls
DBO.vbp
GlobalDatabase.cls
GlobalDatabaseObjects.cls
IDatabaseObject.cls
IDatabaseObjects.cls
IGlobalDatabaseObjects.cls
ISQLStatement.cls
modMisc.bas
SQLAlterTable.cls
SQLAutoIncrementValue.cls
SQLCondition.cls
SQLConditionFieldCompare.cls
SQLConditionInSelect.cls
SQLConditions.cls
SQLConditionSelect.cls
SQLCreateIndex.cls
SQLCreateTable.cls
SQLDelete.cls
SQLDropIndex.cls
SQLDropTable.cls
SQLFieldValue.cls
SQLFieldValues.cls
SQLIndexExists.cls
SQLIndexField.cls
SQLIndexFields.cls
SQLInsert.cls
SQLSelect.cls
SQLSelectField.cls
SQLSelectFields.cls
SQLSelectGroupByField.cls
SQLSelectGroupByFields.cls
SQLSelectOrderByField.cls
SQLSelectOrderByFields.cls
SQLSelectTable.cls
SQLSelectTableJoin.cls
SQLSelectTableJoinCondition.cls
SQLSelectTableJoinConditions.cls
SQLSelectTableJoins.cls
SQLSelectTables.cls
SQLTableExists.cls
SQLTableField.cls
SQLTableFields.cls
SQLUpdate.cls
SQLUpdateCopyField.cls
SQLUpdateCopyFields.cls
DatabaseObjects_vb6.dll
mysql_northwind.zip
images
templates
databaseobjects_classdiagram.jpg
logo.jpg
databaseobjects_src_net.zip
DatabaseObjects.vbproj.user
DatabaseObjects.dll
databaseobjects_src_vb6.zip
Database.cls
DBO.vbp
GlobalDatabase.cls
GlobalDatabaseObjects.cls
IDatabaseObject.cls
IDatabaseObjects.cls
IGlobalDatabaseObjects.cls
ISQLStatement.cls
modMisc.bas
SQLAlterTable.cls
SQLAutoIncrementValue.cls
SQLCondition.cls
SQLConditionFieldCompare.cls
SQLConditionInSelect.cls
SQLConditions.cls
SQLConditionSelect.cls
SQLCreateIndex.cls
SQLCreateTable.cls
SQLDelete.cls
SQLDropIndex.cls
SQLDropTable.cls
SQLFieldValue.cls
SQLFieldValues.cls
SQLIndexExists.cls
SQLIndexField.cls
SQLIndexFields.cls
SQLInsert.cls
SQLSelect.cls
SQLSelectField.cls
SQLSelectFields.cls
SQLSelectGroupByField.cls
SQLSelectGroupByFields.cls
SQLSelectOrderByField.cls
SQLSelectOrderByFields.cls
SQLSelectTable.cls
SQLSelectTableJoin.cls
SQLSelectTableJoinCondition.cls
SQLSelectTableJoinConditions.cls
SQLSelectTableJoins.cls
SQLSelectTables.cls
SQLTableExists.cls
SQLTableField.cls
SQLTableFields.cls
SQLUpdate.cls
SQLUpdateCopyField.cls
SQLUpdateCopyFields.cls
DatabaseObjects_vb6.dll
' ___________________________________________________
'
'  � Hi-Integrity Systems 2007. All rights reserved.
'  www.hisystems.com.au - Toby Wicks
' ___________________________________________________
'

Option Strict On
Option Explicit On 

Namespace SQL

    Public Class SQLConditions
        Implements IEnumerable

        Private pobjSQLConditions As ArrayList
        Private pobjLogicalOperators As ArrayList

        Public Sub New()

            MyBase.New()
            pobjSQLConditions = New ArrayList
            pobjLogicalOperators = New ArrayList

        End Sub

        Public Function Add( _
            ByVal strFieldName As String, _
            ByVal eCompare As ComparisonOperator, _
            ByVal objValue As Object) As SQLCondition

            Return Add(strFieldName, eCompare, objValue, Nothing)

        End Function

        Public Function Add( _
            ByVal strFieldName As String, _
            ByVal eCompare As ComparisonOperator, _
            ByVal objValue As Object, _
            ByVal objTable As SQLSelectTable) As SQLCondition

            EnsurePreviousLogicalOperatorExists()

            Add = New SQLCondition

            Add.Table = objTable
            Add.FieldName = strFieldName
            Add.Compare = eCompare
            Add.Value = objValue

            pobjSQLConditions.Add(Add)

        End Function

        Public Sub Add( _
            ByVal objCondition As SQLCondition)

            Me.Add(objCondition.FieldName, objCondition.Compare, objCondition.Value, objCondition.Table)

        End Sub

        Public Sub Add( _
            ByVal objConditions As SQLConditions)

            If objConditions.IsEmpty Then
                Throw New ArgumentException("SQLConditions does not contain any conditions.")
            End If

            EnsurePreviousLogicalOperatorExists()
            pobjSQLConditions.Add(objConditions)

        End Sub

        Public Function Add() As SQLCondition

            Return Add("", ComparisonOperator.EqualTo, Nothing, Nothing)

        End Function

        Public Function AddInSelect() As SQLConditionInSelect

            Return AddInSelect("", Nothing, Nothing)

        End Function

        Public Function AddInSelect( _
            ByVal strFieldName As String, _
            ByVal objSelect As SQLSelect) As SQLConditionInSelect

            Return AddInSelect(strFieldName, objSelect, Nothing)

        End Function

        Public Function AddInSelect( _
            ByVal strFieldName As String, _
            ByVal objSelect As SQLSelect, _
            ByVal objTable As SQLSelectTable) As SQLConditionInSelect

            EnsurePreviousLogicalOperatorExists()

            AddInSelect = New SQLConditionInSelect
            AddInSelect.Table = objTable
            AddInSelect.FieldName = strFieldName
            AddInSelect.Select = objSelect

            pobjSQLConditions.Add(AddInSelect)

        End Function

        Public Function AddSelect() As SQLConditionSelect

            Return AddSelect(Nothing, ComparisonOperator.EqualTo, Nothing)

        End Function

        Public Function AddSelect( _
            ByVal objSelect As SQLSelect, _
            ByVal eCompare As ComparisonOperator, _
            ByVal objValue As Object) As SQLConditionSelect

            EnsurePreviousLogicalOperatorExists()

            AddSelect = New SQLConditionSelect
            AddSelect.Select = objSelect
            AddSelect.Compare = eCompare
            AddSelect.Value = objValue

            pobjSQLConditions.Add(AddSelect)

        End Function

        Public Function AddFieldCompare() As SQLConditionFieldCompare

            Return AddFieldCompare(Nothing, "", ComparisonOperator.EqualTo, Nothing, "")

        End Function

        Public Function AddFieldCompare( _
            ByVal strFieldName1 As String, _
            ByVal eCompare As ComparisonOperator, _
            ByVal objTable2 As SQLSelectTable, _
            ByVal strFieldName2 As String) As SQLConditionFieldCompare

            Return AddFieldCompare(Nothing, strFieldName1, eCompare, objTable2, strFieldName2)

        End Function

        Public Function AddFieldCompare( _
            ByVal objTable1 As SQLSelectTable, _
            ByVal strFieldName1 As String, _
            ByVal eCompare As ComparisonOperator, _
            ByVal objTable2 As SQLSelectTable, _
            ByVal strFieldName2 As String) As SQLConditionFieldCompare

            EnsurePreviousLogicalOperatorExists()

            AddFieldCompare = New SQLConditionFieldCompare

            With AddFieldCompare
                .Table1 = objTable1
                .FieldName1 = strFieldName1
                .Compare = eCompare
                .Table2 = objTable2
                .FieldName2 = strFieldName2
            End With

            pobjSQLConditions.Add(AddFieldCompare)

        End Function

        Public ReadOnly Property IsEmpty() As Boolean
            Get

                Return pobjSQLConditions.Count = 0

            End Get
        End Property

        Private Sub EnsurePreviousLogicalOperatorExists()

            'Add the AND operator if an operator hasn't been called after the previous Add call
            If pobjLogicalOperators.Count() < pobjSQLConditions.Count() Then
                Me.AddLogicalOperator(LogicalOperator.And)
            End If

        End Sub

        Public Sub AddLogicalOperator( _
            ByVal eLogicalOperator As LogicalOperator)

            If pobjLogicalOperators.Count() + 1 > pobjSQLConditions.Count() Then
                Throw New DatabaseObjectsException("First call the Add function - this function has been called without a prior call to Add")
            End If

            pobjLogicalOperators.Add(eLogicalOperator)

        End Sub

        Public Sub Delete(ByRef objCondition As SQLCondition)

            Dim intConditionIndex As Integer = pobjSQLConditions.IndexOf(objCondition)

            If Not pobjSQLConditions.Contains(objCondition) Then
                Throw New ObjectDoesNotExistException
            End If

            If intConditionIndex > 0 Then
                pobjLogicalOperators.Remove(pobjLogicalOperators(intConditionIndex - 1))
            ElseIf intConditionIndex = 0 Then
                pobjLogicalOperators.Remove(pobjLogicalOperators(0))
            End If

            pobjSQLConditions.Remove(objCondition)
            objCondition = Nothing

        End Sub

        Friend ReadOnly Property SQL(ByVal eConnectionType As Database.ConnectionType) As String
            Get

                Dim strSQL As String

                For intIndex As Integer = 0 To pobjSQLConditions.Count() - 1
                    If intIndex > 0 Then
                        strSQL &= " " & SQLConvertLogicalOperator(DirectCast(pobjLogicalOperators.Item(intIndex - 1), LogicalOperator)) & " "
                    End If

                    If TypeOf pobjSQLConditions(intIndex) Is SQLCondition Then
                        strSQL &= DirectCast(pobjSQLConditions(intIndex), SQLCondition).SQL(eConnectionType)
                    ElseIf TypeOf pobjSQLConditions(intIndex) Is SQLConditions Then
                        strSQL &= "(" & DirectCast(pobjSQLConditions(intIndex), SQLConditions).SQL(eConnectionType) & ")"
                    ElseIf TypeOf pobjSQLConditions(intIndex) Is SQLConditionInSelect Then
                        strSQL &= DirectCast(pobjSQLConditions(intIndex), SQLConditionInSelect).SQL(eConnectionType)
                    ElseIf TypeOf pobjSQLConditions(intIndex) Is SQLConditionSelect Then
                        strSQL &= DirectCast(pobjSQLConditions(intIndex), SQLConditionSelect).SQL(eConnectionType)
                    ElseIf TypeOf pobjSQLConditions(intIndex) Is SQLConditionFieldCompare Then
                        strSQL &= DirectCast(pobjSQLConditions(intIndex), SQLConditionFieldCompare).SQL(eConnectionType)
                    End If
                Next

                Return strSQL

            End Get
        End Property

        Private Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator

            Return pobjSQLConditions.GetEnumerator

        End Function

    End Class

End Namespace

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Toby Wicks

United States United States
No Biography provided

| Advertise | Privacy | Mobile
Web02 | 2.8.140926.1 | Last Updated 31 Jan 2007
Article Copyright 2005 by Toby Wicks
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid