' Prerequisite:
' download SAP HANA Client Software Packages -> 32Bit (!) version

'  of HANA client, from SAP 

Imports Sap.Data.Hana


Public Class connection

    Private conn As HanaConnection = Nothing
    Private guixt As New guinet.guixt


    ' open connection
    Public Function open(server As String, port As String, _

            userid As String, password As String) As String

        Dim connectionstring As String = "Server=" & server & ":" _ 

               & port & ";UserID=" & userid & ";Password=" & password

        Try

            If conn Is Nothing Then
                conn = New HanaConnection(connectionstring)
            End If

            conn.Open()

        Catch ex As Exception
            Return ex.Message + vbCrLf + ex.InnerException.Message
        End Try

        Return ""
    End Function


    ' read data
    Public Function read(varname As String, command As String) As Integer

        Dim n As Integer = 0

        If conn Is Nothing Then
            Return 0
        End If

        Try

            Dim cmd As HanaCommand = New HanaCommand(command, conn)
            Dim r As HanaDataReader = cmd.ExecuteReader()
            While r.Read()

                n += 1

                For k As Integer = 0 To r.FieldCount - 1
                    guixt.SetVariable(varname & "." & _

          r.GetName(k).ToLower & "." & n.ToString, r.Item(k).ToString)
                Next


            End While
            r.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
            Return 0
        End Try


        Return n
    End Function

    ' close connection
    Public Sub close()

        If conn IsNot Nothing Then
            conn.Close()
        End If

    End Sub


End Class