Public Sub ver()
Try
With datos.Tables(0).Rows(posicion)
Me.PictureBox1.Image = Nothing
Me.TextBox1.Text = .Item("ced_empleado")
Me.TextBox2.Text = .Item("apellidos_empleado")
Me.TextBox3.Text = .Item("nombres_empleado")
If .Item("foto_empleado") = "Ninguno" Then
Me.PictureBox1.Image = Nothing
Else
Me.PictureBox1.Image = System.Drawing.Image.FromFile(Ruta & "fotos" & .Item("foto_empleado"))
End If
End With
Catch
End Try
end sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Len(Trim(Me.TextBox1.Text)) = 0 Then
MsgBox("Debe seleccionar un empleado")
Exit Sub
End If
Me.PictureBox1.Image = Nothing
Dim k As New OpenFileDialog
k.Filter = "*.jpg|*.jpg|*.bmp|*.bmp|.*png|*.png"
k.InitialDirectory = "c:"
If k.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.PictureBox1.Image = Nothing
FileCopy(k.FileName, Ruta & "fotos" & Me.TextBox1.Text & ".jpg")
Me.PictureBox1.Image = System.Drawing.Image.FromFile(k.FileName)
foto = Me.TextBox1.Text & ".jpg"
End If
End Sub
public sub guardar()
Dim pi As String
pi = "insert into Empleado values(" & Me.TextBox1.Text & ",'" & Me.TextBox2.Text & "','" & foto & "')"
If Con.State = ConnectionState.Closed Then Con.Open()
Dim cma As New OleDb.OleDbCommand(pi, Con)
cma.ExecuteNonQuery()
Con.Close()
MsgBox("Empleado Guardado")
Habilitar(Me, False)
Limpiar(Me)
end sub