Imports System
Imports System.Data
Imports System.Data.Odbc
Imports System.IO

Namespace DataAccessLayer
'נבנה על ידי ליאור כהן (בריינסטורם אינטראקטיב) 15/07/2007
'אין להוציא קוד זה מחוץ לקבצי המקור של מערכת הניהול
'קוד זה מוגן בזכויות יוצרים!

    Public Class Odbc_Scms2007
        Private mvarCommandObject As OdbcCommand
        Private mvarConnectionObject As OdbcConnection
        Private mvarSQLString As String
        Private mvarConnectionString As String
        Private mvarRecordsAffected As Integer
        Private mvarCommandTimeOut As Integer

        Public Property ConnectionString() As String
            Get
                ConnectionString = mvarConnectionString
            End Get
            Set(ByVal Value As String)
                mvarConnectionString = Value
            End Set
        End Property

        Public Property SQLString() As String
            Get
                SQLString = mvarSQLString
            End Get
            Set(ByVal Value As String)
                mvarSQLString = Value
            End Set
        End Property

        Public Property ConnectionObject() As OdbcConnection
            Get
                ConnectionObject = mvarConnectionObject
            End Get
            Set(ByVal Value As OdbcConnection)
                mvarConnectionObject = Value
            End Set
        End Property

        Public Property CommandObject() As OdbcCommand
            Get
                CommandObject = mvarCommandObject
            End Get
            Set(ByVal Value As OdbcCommand)
                mvarCommandObject = Value
            End Set
        End Property

        Public Property RecordsAffected() As Integer
            Get
                RecordsAffected = mvarRecordsAffected
            End Get
            Set(ByVal Value As Integer)
                mvarRecordsAffected = Value
            End Set
        End Property

        Public Property CommandTimeOut() As Integer
            Get
                CommandTimeOut = mvarCommandTimeOut
            End Get
            Set(ByVal Value As Integer)
                mvarCommandTimeOut = Value
            End Set
        End Property

        Public Function Execute(ByVal strs As String) As String
            mvarSQLString = strs
            '""
            mvarConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=127.0.0.1; DATABASE=Scms;USER=root;PASSWORD=xxxPassxxx; OPTION=3;charset = utf8;stmt=SET CHARACTER SET Hebrew;"
            mvarConnectionObject = New OdbcConnection(mvarConnectionString)
            mvarConnectionObject.Open()
            mvarCommandObject = New OdbcCommand()
            mvarCommandObject.CommandType = CommandType.Text
            'mvarCommandObject.CommandTimeout = 10
            mvarCommandObject.CommandText = mvarSQLString
            mvarCommandObject.Connection = mvarConnectionObject
            mvarCommandObject.Prepare()
            Try
                'mvarRecordsAffected = 3
                mvarRecordsAffected = mvarCommandObject.ExecuteNonQuery()
                Return "OK"
            Catch Ex As Exception
                mvarConnectionObject.Close()
                mvarCommandObject = Nothing
                mvarConnectionObject = Nothing
                mvarSQLString = Nothing
                Return Ex.ToString
            End Try
        End Function
        Public Sub close()
            mvarConnectionObject.Close()
            mvarCommandObject = Nothing
            mvarConnectionObject = Nothing
            mvarSQLString = Nothing
        End Sub
    End Class
End Namespace

        Private Database As New DataAccessLayer.OleDB
        Private STRSQL As String
        Private rs As System.Data.Odbc.OdbcDataReader
On Error GoTo err
            STRSQL = "SELECT * FROM USERS WHERE Uname ='" & UserName.ToLower & "';"
            If Database.Execute(STRSQL) = "OK" Then
                rs = Database.CommandObject.ExecuteReader()
                If rs.HasRows = False Then
                    rs.Close()
                    Database.close()
                    Return False
                    Exit Function
                Else
                    rs.Close()
                    Database.close()
                    Return True
                End If
            End If
err:
            rs.Close()
            Database.close()
            Return -1