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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Rutinas Administrativas en Vb 6.0 - Ayuda con proyecto
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Rutinas Administrativas en Vb 6.0 - Ayuda con proyecto  (Leído 1,371 veces)
El_Holandes_errante

Desconectado Desconectado

Mensajes: 3


Ver Perfil
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.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Rutinas Interesantes
Programación Visual Basic
soplo 4 15,730 Último mensaje 16 Diciembre 2006, 13:58 pm
por soplo
trucos y rutinas
Programación Visual Basic
Zeroql 0 773 Último mensaje 11 Septiembre 2006, 23:52 pm
por Zeroql
trucos y rutinas 2
Programación Visual Basic
Zeroql 4 1,384 Último mensaje 17 Septiembre 2006, 18:16 pm
por Zeroql
Llamar pag. con rutinas
PHP
Yekka 2 1,566 Último mensaje 29 Abril 2008, 04:20 am
por Yekka
Maniapular Plantillas Administrativas
Programación Visual Basic
Vampersy 5 1,668 Último mensaje 1 Mayo 2008, 00:51 am
por zero_shield
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines