TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

Private Sub cmdborrartabla_Click()Dim respuesta As Integerrespuesta = MsgBox("Esta seguro de realizar esta accion", vbYesNo, "Borrar")If respuesta = vbYes ThensSelect = "delete from DatosEmpleado"cn.Execute sSelectMsgBox "La informacion fue eliminada con éxito", vbInformation, "Borrado"ElseExit SubEnd IfEnd Sub'Rutina para conectar el sistema a la base de datos.Private Sub Conectar_Click()'Set cn = New ADODB.Connection'Dim sSelect As String'Dim rs As ADODB.Recordset'cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=EMPLEADOS;Data Source=TOSHIBA"' sSelect = "SELECT PC.IDEmpleado, PC.NombreEmpleado, PC.ApellidoEmpleado, PC.DireccionEmpleado, PC.Telefono, PC.DUIEmpleado,PC.NITEmpleado, PC.SeguroSocial, HR.CargoEmpleado, HR.FuncionEmpleado, HR.ProfesionEmpleado, EH.SueldoEmpleado, EH.HorasExtras,EH.FuncionEmpleado, EH.CuentaEmpleado, TY.TagEmpleado FROM DATOSEMPLEADO AS PC INNER JOIN CargoEmpleado AS HR ONPC.TagEmpleado = HR.TagEmpleado INNER JOIN SueldoEmpleado AS EH ON PC.TagEmpleado = EH.TagEmpleado INNER JOIN TagEmpleado ASTY ON PC.TagEmpleado = TY.TagEmpleado ORDER BY PC.IDEmpleado"sSelect = "SELECT TOP (100) PERCENT PC.TagEmpleado, PC.IDEmpleado, PC.NombreEmpleado, PC.ApellidoEmpleado,PC.DireccionEmpleado, PC.Telefono, PC.DUIEmpleado, " _& "PC.NITEmpleado, PC.SeguroSocial, HR.CargoEmpleado, HR.FuncionEmpleado, HR.ProfesionEmpleado, EH.SueldoEmpleado, " _& "EH.CuentaEmpleado " _& "FROM dbo.DatosEmpleado AS PC INNER JOIN " _& "dbo.CARGOEMPLEADO AS HR ON PC.TagEmpleado = HR.TagEmpleado INNER JOIN " _& "dbo.SueldoEmpleado AS EH ON PC.TagEmpleado = EH.TagEmpleado " _& "ORDER BY PC.TagEmpleado "'Set rs = New ADODB.RecordsetIf rs.State = 1 ThenSet rs = New ADODB.Recordset'rs.CloseEnd Ifrs.Open sSelect, cn, adOpenStatic, adLockOptimistic'seteando tabla 1Set nombre.DataSource = rsSet ID.DataSource = rsSet Apellido.DataSource = rsSet Direccion.DataSource = rsSet Telefono.DataSource = rsSet DUI.DataSource = rsSet nit.DataSource = rsSet Seguro.DataSource = rs'seteando tabla 2Set Cargo.DataSource = rsSet funcion.DataSource = rsSet profesion.DataSource = rs'seteando tabla 3Set sueldo.DataSource = rsSet HorasExtra.DataSource = rsSet numerocuenta.DataSource = rs'seteando tabla 4Set tag1.DataSource = rs'asignado todos los tetxboxnombre.DataField = "NombreEmpleado"ID.DataField = "IDEmpleado"Apellido.DataField = "ApellidoEmpleado"Direccion.DataField = "DireccionEmpleado"Telefono.DataField = "Telefono"DUI.DataField = "DUIEmpleado"nit.DataField = "NITEmpleado"- 178 -