elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / Rutinas Administrativas en Vb 6.0 - Ayuda con proyecto en: 28 Junio 2012, 16:10 pm
Buen dia, compañeros mios.
     Hoy les vengo a exponer un caso que se me presenta el cual ya le eh tratado de buscar solución y se me hace muy dificil, el inconveniente es el siguiente:
     Estoy haciendo una aplicación en Vb 6.0 con el motivo de presentarlo en el instituto y sea aprobado en la empresa en donde estoy efectuando mis pasantias, todo bien hasta ahora, pero cuando codeo los Command Buttons es cuando todo se vuelve un desastre.
Agregar:
Código:
DataEnvironment1.rscommand1.AddNew
ModoEditar True
Modificar:
Código:
ModoEditarComven True
Eliminar:
Código:
If msgbox ("¿Esta seguro que desea eliminar este registro?", vbQuestion + vbYesNo, "Aviso")_
= vbYes Then
DataEnvironment1.rscommand1.Delete
Msgbox ("Registro eliminado satisfactoriamente")
DataEnvironment1.rscommand1.MoveNext
Else
DataEnvironment1.rscommand1.Cancel
If DataEnvironment1.rscommand1.EOF Then
DataEnvironment1.rscommand1.MoveLast
End if
End if
Guardar:
Código:
If msgbox ("¿Desea guardar los cambios efectuados?", vbQuestion + vbYesNo, "Aviso"_
= vbYes Then
Msgbox ("Los cambios se guardaron correctamente")
DataEnvironment1.rscommand1.Update
ModoEditar True
End if
Buscar:
Código:
Dim Buscar As String
DataEnvironment1.rscommand1.MoveFirst
Buscar = InputBox ("Escriba el número de órden que desea consultar")
If Buscar <> " " Then
DataEnvironment1.rscommand1.Find " [Número de Órden] = " & Buscar
If DataEnvironment1.rscommand1.EOF Then
Msgbox ("Esta órden no se encuentra en la base de datos")
DataEnvironment1.rscommand1.MoveFirst
End if
End if

Ahora mi problema es que al yo darle al boton de buscar me dice que tengo un problema con esta linea de codigo:
Código:
DataEnvironment1.rscommand1.Find " [Número de Órden] = " & Buscar
     Tambien tengo una duda en los que usan el modo editar algunos de esos codigos eran de internet y los cambie un poquito, pero no se si hay que activar esa funcion o como se haria porque tambien me tira error en esos botones, como no estoy en mi computador les debo las imagenes pero en cuanto pueda se las subo asi tienen una mejor idea de lo que me esta pasando.
     Sin mas que decirles espero que puedan ayudarme, Gracias de antemano.
2  Programación / Programación Visual Basic / Problema con variable [Solucionado] en: 26 Noviembre 2011, 18:19 pm
Mi problema es el siguiente:
La aplicación debe tener estados civiles en una lista y mostrarlos en un TextBox (listo) y también debe mostrar en un Msgbox una variable que sea > = 10 al hacer click en un CommandButton introducida por un TextBox (He aquí el problema), hice esa parte pero cuando le doy click al CommadButton aparece el error y no se porque pasa esto.
Estaria muy agradecido si pudieran ayudarme.
Les dejo el code y unas imágenes:
Código:
Private Sub cmdSalir_Click()
    End
End Sub

Private Sub cmdVariable_Click()
    Dim Variable As Integer
        Variable = txtVariable.Text
        'Comprobar si la variable es mayor o igual a 10
        If Variable >= "10" And txtVariable.Text >= "10" Then
            MsgBox "El valor es mayor o igual a 10: " & Variable
            Else
                MsgBox "Debe ingresar un valor valido", vbQuestion + vbOKOnly, "Datos invalidos"
                txtVariable.SetFocus
                    Exit Sub
        End If
         
End Sub

Private Sub lvwEstadoCivil_Click()
    Dim Soltero As String
    Dim Casado As String
    Dim Divorciado As String
    Dim Viudo As String
    'Seleción de variables por lista
        Select Case lvwEstadoCivil.ListIndex
            Case 0
                Soltero = "Juan Peñaloza"
                txtNombres.Text = Soltero
            Case 1
                Casado = "Franklin Mendez"
                txtNombres.Text = Casado
            Case 2
                Divorciado = "Antonio Álvarez"
                txtNombres.Text = Divorciado
            Case 3
                Viudo = "Victor Speed"
                txtNombres.Text = Viudo
                End Select
End Sub
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines