VB vraag

[be062603]

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

[deathz0rz]

be062603 schreef op 31-08-2003 @ 12:41:
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 ?

DAO, ADO ofzoiets.. dat is de makkelijkste manier

[be062603]

deathz0rz schreef op 31-08-2003 @ 14:49:
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

[deathz0rz]

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