Public Class frmConfigHit

    Private Sub cmdGuradar_Click(sender As System.Object, e As System.EventArgs) Handles cmdGuradar.Click
        Dim ruta As String
        Dim cls As clsComplejo

        Try
            If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then
                txtRutaHit.Text = FolderBrowserDialog1.SelectedPath
            End If
            ruta = txtRutaHit.Text
            cls = New clsComplejo()
            cls.fnInserta("UPDATE condorparametros SET valor = '" & ruta & "'")
            cls = Nothing
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        
    End Sub

    Private Sub frmConfigHit_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        llenaruta()
    End Sub

    Private Function llenaruta() As Boolean
        Dim cls As clsComplejo
        Dim ds As DataSet
        Try
            cls = New clsComplejo()
            ds = cls.fdtDataSet("SELECT valor FROM condorparametros WHERE idcondorparametros = 1")
            txtRutaHit.Text = ds.Tables(0).Rows(0)(0)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Function

End Class