Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: El_Holandes_errante en 28 Junio 2012, 16:10 pm



Título: Rutinas Administrativas en Vb 6.0 - Ayuda con proyecto
Publicado por: El_Holandes_errante 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.