Imports System
Imports System.Data
Imports System.Data.Odbc
Imports System.IO
Imports MySql.Data.MySqlClient

Namespace DataAccessLayer
    Public Class OleDB
        Private x As OdbcDataReader
        Private mvarCommandObject As MySqlCommand
        Private mvarConnectionObject As MySqlConnection
        Private mvarSQLString As String
        Private mvarConnectionString As String
        Private mvarRecordsAffected As Integer
        Private mvarCommandTimeOut As Integer = 15

        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 MySqlConnection
            Get
                ConnectionObject = mvarConnectionObject
            End Get
            Set(ByVal Value As MySqlConnection)
                mvarConnectionObject = Value
            End Set
        End Property

        Public Property CommandObject() As MySqlCommand
            Get
                CommandObject = mvarCommandObject
            End Get
            Set(ByVal Value As MySqlCommand)
                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 = "Data Source=localhost;Database=scms;User ID=root;Password=6237066;"
            mvarConnectionObject = New MySqlConnection(mvarConnectionString)
            mvarConnectionObject.Open()
            mvarCommandObject = New MySqlCommand()
            mvarCommandObject.CommandType = CommandType.Text
            mvarCommandObject.CommandTimeout = CommandTimeOut
            mvarCommandObject.CommandText = mvarSQLString
            mvarCommandObject.Connection = mvarConnectionObject
            Try
                mvarRecordsAffected = mvarCommandObject.ExecuteNonQuery
                Return "OK"
            Catch Ex As Exception
                Return Ex.ToString
            End Try
            mvarConnectionObject.Close()
            mvarCommandObject = Nothing
            mvarConnectionObject = Nothing
            mvarSQLString = Nothing
        End Function
        Public Sub close()
            mvarConnectionObject.Close()
            mvarCommandObject = Nothing
            mvarConnectionObject = Nothing
            mvarSQLString = Nothing
        End Sub
    End Class
End Namespace

Public Function GetCon(ByVal ID As Integer) As String
            'On Error GoTo err
            Dim StrTemp As String = ""
            STRSQL = "SELECT Content.Con, Content.ID FROM(Content) WHERE (Content.ID)=" & ID & ";"
            If Database.Execute(STRSQL) = "OK" Then
                rs = Database.CommandObject.ExecuteReader()
                If rs.HasRows = False Then
                    rs.Close()
                    Database.close()
                    Return "שגיאה! , או שאין ערך לדף זה."
                    Exit Function
                Else
                    rs.Read()
                    StrTemp += rs("Con")
                    rs.Close()
                    Database.close()
                    Return StrTemp.Replace("||||", "'")
                End If
                Database.close()
            End If
err:
            Database.close()
            Return False
        End Function

STRSQL = "SELECT Content.Con, Content.ID FROM(Content) WHERE (Content.ID)=" & ID & ";"

            mvarCommandObject.CommandTimeout = 10
            mvarCommandObject.CommandText = mvarSQLString
            mvarCommandObject.Connection = mvarConnectionObject
            Try 
////// פה הבעייה...
                mvarRecordsAffected = mvarCommandObject.ExecuteNonQuery()
//////
                Return "OK"
            Catch Ex As Exception
                Return Ex.ToString

	<appSettings>
    <connectionStrings>
      <add name="LocalMySqlServer" connectionString="Data Source=myServerAddress;Database=myDataBase;User ID=myUsername;Password=myPassword;Command Logging=false;" providerName="MySql.Data.MySqlClient" />
    </connectionStrings>
 </appSettings>