VB vraag
 

Hey ,

Ik heb een klein login systeem geschreven in Access . Nu zou ik graag dit systeem overzetten met Microsoft VB 6.0 , ondersteund met een Access Database .

Hoe kan ik dit best doen ? Moet ik werken met DAO , of bestaat er een veel eenvoudigere oplossing hiervoor ?

Hierbij de code die ik gebruikte in access :

Dim vw, sqlq As String
Dim X As Long
vw = "tblgebruikers.fldlogin = " & Chr(34) & Me.txtlogin & Chr(34)
vw = vw & " and tblgebruikers.fldpaswoord = " & Chr(34) & Me.txtpaswoord & Chr(34)
X = DCount("fldgebruikersid", "tblgebruikers", vw)
If X > 0 Then
MsgBox ("Correcte gegevens , u word nu ingelogt")
DoCmd.Close
DoCmd.OpenForm "frmhoofdmenu"
Else
MsgBox ("Foute loginnaam of paswoord , gelieve uw gegevens te controleren")
End If

Kan mij hier iemand mee helpen

Alvast Bedankt


Samuel

DAO, ADO ofzoiets.. dat is de makkelijkste manier

En hebt u toevallig een voorbeeld van een code in deze naart . Ik heb hier wel online een cursus van DAO gevonden , maar dit bespreekt alleen hoe met DAO tabellen aanmaken , etc , maar niet hoe een voorwaarde zoals deze op te stellen

Dim WithEvents adoPrimaryRS As Recordset

Private Sub Form_Load()
  Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=[pathfilename]"

  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "[query]", db, adOpenStatic, adLockOptimistic
End Sub