37 lines
1.2 KiB
VB.net
37 lines
1.2 KiB
VB.net
|
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
|