Click here to Skip to main content
11,573,408 members (59,472 online)
Click here to Skip to main content
Articles » Database » Database » Databases » Downloads
Add your own
alternative version

Object-Oriented database design with the DatabaseObjects library

, 31 Jan 2007 83K 3.3K 62
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
Option Strict Off
Option Explicit On

Imports DatabaseObjects

Public Class NorthwindDB

    Private Shared pobjProducts As Products
    Private Shared pobjOrders As Orders = New Orders
    Private Shared pobjSuppliers As Suppliers = New Suppliers
    Private Shared pobjCategories As Categories = New Categories
    Private Shared pobjRegions As Regions
    Private Shared pobjTerritories As Territories

    Private Shared pstrConnectionString As String
    Private Shared peConnectionType As Database.ConnectionType

    Friend Shared Database As DatabaseObjects.Database

    Private Sub New()

    End Sub

    Friend Shared Function CreateConnection() As IDbConnection

        Select Case peConnectionType
            Case Database.ConnectionType.MicrosoftAccess, Database.ConnectionType.SQLServer
                Return New OleDb.OleDbConnection(pstrConnectionString)
            Case Database.ConnectionType.MySQL
                Return New Odbc.OdbcConnection(pstrConnectionString)
        End Select

    End Function

    Public Shared Sub Connect_SQLServer(ByVal strDataSource As String, ByVal strDatabaseName As String)

        If strDatabaseName.Trim = Nothing Then
            Throw New ApplicationException("Null database name.")
        End If

        peConnectionType = Database.ConnectionType.SQLServer
        pstrConnectionString = "Provider=SQLOLEDB;Data Source=" & strDataSource & ";" & "Database=" & strDatabaseName & ";UID=sa;pwd=;"

        Database = New DatabaseObjects.Database(pstrConnectionString, peConnectionType)

    End Sub

    Public Shared Sub Connect_MicrosoftAccess(ByVal strDatabaseFilePath As String)

        If strDatabaseFilePath.Trim = Nothing Then
            Throw New ApplicationException("Null database file path.")
        End If

        peConnectionType = Database.ConnectionType.MicrosoftAccess
        pstrConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDatabaseFilePath & ";Jet OLEDB:Database Password=;"

        'Maintaining an open connection at all times keeps the connection pool alive
        Static objDummyConnection As IDbConnection = New OleDb.OleDbConnection
        objDummyConnection.ConnectionString = pstrConnectionString
        objDummyConnection.Open()

        Database = New DatabaseObjects.Database(pstrConnectionString, peConnectionType)

    End Sub

    Public Shared Sub Connect_MySQL(ByVal strDataSource As String, ByVal strDatabaseName As String)

        If strDatabaseName.Trim = Nothing Then
            Throw New ApplicationException("Null database name.")
        End If

        peConnectionType = Database.ConnectionType.MySQL
        pstrConnectionString = "Driver={MySQL}; Server=" & strDataSource & "; Database=" & strDatabaseName & "; UID=root; PWD=;"

        Database = New DatabaseObjects.Database(pstrConnectionString, peConnectionType)

    End Sub

    Public Shared ReadOnly Property Products() As Products
        Get

            If pobjProducts Is Nothing Then
                pobjProducts = New Products(Database)
            End If

            Return pobjProducts

        End Get
    End Property

    Public Shared ReadOnly Property Suppliers() As Suppliers
        Get

            Return pobjSuppliers

        End Get
    End Property

    Public Shared ReadOnly Property Categories() As Categories
        Get

            Return pobjCategories

        End Get
    End Property

    Public Shared ReadOnly Property Orders() As Orders
        Get

            Return pobjOrders

        End Get
    End Property

    Public Shared ReadOnly Property Regions() As Regions
        Get

            If pobjRegions Is Nothing Then
                pobjRegions = New Regions(Database)
            End If

            Return pobjRegions

        End Get
    End Property

    Public Shared ReadOnly Property Territories() As Territories
        Get

            If pobjTerritories Is Nothing Then
                pobjTerritories = New Territories(Database)
            End If

            Return pobjTerritories

        End Get
    End Property

End Class

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

You may also be interested in...

| Advertise | Privacy | Terms of Use | Mobile
Web03 | 2.8.150624.2 | Last Updated 31 Jan 2007
Article Copyright 2005 by Toby Wicks
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid