Mayo 21, 2018, 11:59:03 pm

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - cvfo_kaleb

Páginas: [1]
1
Hola,
tengo un pequeño problemilla con un programa q estoy elaborando en VB, y me preguntaba si me podrian ayudar.
Estoy creando un cajero automatica en visual 6.0, creando un modulo con el siguiente codigo:
Global base As Database
Global path As String
Sub MAIN()
Set base = Workspaces(0).OpenDatabase("C:\banco.mdb")
Form1.Show
End Sub
LA CODIFICACIÓN DEL FORMULARIO DE INGRESO AL SISTEMA ES:
Dim R As Recordset
Set R = base.OpenRecordset("CONTRASENA", dbOpenDynaset)
R.FindFirst " usuario = '" & USUARIO & "' and CLAVE = '" & CONTRASENA & "' "
If R.NoMatch Then
MsgBox "USUARIO O CONTRASEÑA INCORRECTA", vbCritical, "ERROR"
USUARIO = ""
CONTRASENA = ""
Else
Form1.Hide
Form2.Show
End If
R.Close
DB.Close
CONTRASENA = ""
USUARIO = ""
AL EJECUTARLO ME SALE ERROR 91 " VARIABLE DE TIPO OBJECT O LA VBARIABLE DE BLOQUE WITH NO ESTA ESTABLECIDA" ....... ALGUIEN PORFAVOR AYUDARME....

Páginas: [1]