Tengo un problema con la conexion a una BBDD
Dim dbMydb2 As Database
Dim rec As Recordset
Dim strSQL As String
Public aux1 As String
Public aux2 As String
Public aux3 As String
Private Sub Form_Load()
Set dbMydb2 = OpenDatabase("G:AlfonsoBBDD97.mdb")
End Sub
Private Sub Command1_Click()
strSQL = "Select Usuario,Clave,Rol From ROLES"
Set rec = dbMydb2.OpenRecordset(strSQL) //Aqui me da error
If reg.NoMatch Then
MsgBox "Usuario y Password no coinciden"
Else
aux1 = reg.Fields(0)
aux2 = reg.Fields(1)
aux3 = reg.Fields(2)
FormValidacion.Visible = False
FormPrincipal.Visible = True
End If
End Sub
//////////
Soy nuevo en esto del VB y tengo una pequeño manual donde mas o menos dice esto para realizar una Select en vissual basic pero ami me falla me podeis ayudar
Gracias
Dim rec As Recordset
Dim strSQL As String
Public aux1 As String
Public aux2 As String
Public aux3 As String
Private Sub Form_Load()
Set dbMydb2 = OpenDatabase("G:AlfonsoBBDD97.mdb")
End Sub
Private Sub Command1_Click()
strSQL = "Select Usuario,Clave,Rol From ROLES"
Set rec = dbMydb2.OpenRecordset(strSQL) //Aqui me da error
If reg.NoMatch Then
MsgBox "Usuario y Password no coinciden"
Else
aux1 = reg.Fields(0)
aux2 = reg.Fields(1)
aux3 = reg.Fields(2)
FormValidacion.Visible = False
FormPrincipal.Visible = True
End If
End Sub
//////////
Soy nuevo en esto del VB y tengo una pequeño manual donde mas o menos dice esto para realizar una Select en vissual basic pero ami me falla me podeis ayudar
Gracias