Imports DatabaseLibrary.DBLuokat
Public Class clskielet
    Inherits clsPerus
    Private _dtKielet As New DataTable
    Private _bUusi As Boolean = True
    Private _strKieli As String = String.Empty
    Public Sub New()
        Me.Taulu = "languages"
        Me.AvainKentta = "intlanguageid"
    End Sub
    Public Sub New(ByVal iKieli As Integer)
        Me.Taulu = "languages"
        Me.AvainKentta = "intlanguageid"
        Me.AvainID = iKieli

    End Sub
    Public Sub HaeKieli()
        Dim obDS As New clsDB_OleDb
        Dim dtHaku As New DataTable
        Try
            Me.strSQL = "select strlanguage from " & Me.Taulu & " where " & _
            Me.AvainKentta & "=" & Me.AvainID
            obDS.ConnectionString = Me.ConnectionString
            obDS.OpenDBConnection()
            dtHaku = obDS.GetDataSet(Me.strSQL).Tables(0)
            obDS.CloseDBConnection()
            obDS.Dispose()
            obDS = Nothing
            If dtHaku.Rows.Count > 0 Then
                Me.Kieli = dtHaku.Rows(0)(0)
            End If
        Catch ex As Exception
            If Not IsNothing(obDS) Then
                obDS.CloseDBConnection()
                obDS.Dispose()
                obDS = Nothing
            End If
            Throw New Exception("Seeking langueage failed")
        End Try
    End Sub
    Public Property Uusi() As Boolean
        Get
            Return _bUusi
        End Get
        Set(ByVal Value As Boolean)
            _bUusi = Value
        End Set
    End Property
    Public Property Kieli() As String
        Get
            Return _strKieli
        End Get
        Set(ByVal Value As String)
            _strKieli = Value
        End Set
    End Property

    Private Sub MuodostaKielet()
        Try
            _dtKielet.Columns.Add("intlanguageid", Type.GetType("System.Int32"))
            _dtKielet.Columns.Add("strlanguage", Type.GetType("System.String"))

        Catch ex As Exception

        End Try
    End Sub
    Public ReadOnly Property PalautaKielet() As DataTable
        Get
            If _dtKielet.Columns.Count = 0 Then
                Me.MuodostaKielet()
            End If
            Return _dtKielet
        End Get
    End Property
    Public Sub HaeKielet()
        Dim obDS As New clsDB_OleDb
        Dim dtHaku As New DataTable

        Dim rw As DataRow
        Try
            Me.strSQL = "select intlanguageid,strlanguage from languages order by strlanguage"
            'Me.strSQL = "select intkieliid,strkieli from kielet order by strkieli"
            ' Me.strSQL = "Select intDeptID,strDeptName From Depts Where intMasterDeptID>0"
            obDS.ConnectionString = Me.ConnectionString 'ConfigurationSettings.AppSettings("glossary") '
            obDS.OpenDBConnection()
            obDS.QueryString = Me.strSQL
            dtHaku = obDS.GetDataSet.Tables(0)
            ' dtHaku = obDS.GetDataSet(Me.strSQL).Tables(0)
            obDS.CloseDBConnection()
            obDS.Dispose()
            obDS = Nothing
            rw = Me.PalautaKielet.NewRow
            rw(0) = -1
            If Me.Uusi Then
                rw(1) = "Add new"
            Else
                rw(1) = "Choice"
            End If
            Me.PalautaKielet.Rows.Add(rw)
            For i As Integer = 0 To dtHaku.Rows.Count - 1
                rw = Me.PalautaKielet.NewRow
                rw(0) = dtHaku.Rows(i)(0)
                rw(1) = dtHaku.Rows(i)(1)
                Me.PalautaKielet.Rows.Add(rw)
            Next
        Catch ex As Exception
            If Not IsNothing(obDS) Then
                obDS.CloseDBConnection()
                obDS.Dispose()
                obDS = Nothing
            End If
            Throw New Exception("Seeking failed")
        End Try
    End Sub
    Public Sub Tallenna()
        Dim obDS As New clsDB_OleDb
        Try
            If Me.Kieli = String.Empty Then
                Err.Raise(1)
            End If
            If Me.AvainID = -1 Then
                'lisäys
                Me.strSQL = "insert into " & Me.Taulu & " (strlanguage)" & _
                " values ('" & Me.Kieli & "')"
            Else
                'muutos
                Me.strSQL = "update " & Me.Taulu & " set strlanguage='" & Me.Kieli & "'" & _
                " where " & Me.AvainKentta & "=" & Me.AvainID
            End If
            obDS.ConnectionString = Me.ConnectionString
            obDS.OpenDBConnection()
            obDS.ExecuteNonQuery(Me.strSQL)
            obDS.CloseDBConnection()
            obDS.Dispose()
            obDS = Nothing
        Catch ex As Exception When Err.Number = 1
            If Not IsNothing(obDS) Then
                obDS.CloseDBConnection()
                obDS.Dispose()
                obDS = Nothing
            End If
            Throw New Exception("Language -field is empty")
        Catch ex As Exception
            If Not IsNothing(obDS) Then
                obDS.CloseDBConnection()
                obDS.Dispose()
                obDS = Nothing
            End If
            Throw New Exception("Saving failed")
        End Try
    End Sub
End Class