data uit access zoeken

[Snabugje]

Hallo beste VB programmeurs!!

Ik ben hier nieuwer dan nieuw
Voorheen deed ik alleen vba en access maar omdat VB VEEEEEEEL meer mogelijkheden heeft ben ik overgestapt. (MS VB 2008 Express)
Dus heb ik nog veel te leren

Het volgende zit mij dwars:

Graag wil ik een inlogsysteem maken, vb heeft daar al een mooie template voor. Dat scheelt al heel wat werk!!:thumb:

Nu wil ik alleen wanneer ik op 'OK' klik, dat VB in een MS Access tabel gaat kijken of de juiste inlog gegevens zijn ingevuld.
Ik heb al een connectie gemaakt met Access en een DataSet gemaakt.
Alleen weet ik niet hoe ik in een tabel moet gaan zoeken

Het desbetreffende tabel is; O_Wachtwoord
met daar in; WW_ID | Werknemer | Wachtwoord

Kan iemand mij verder helpen?
Alvast TY!!:thumb:

Snabugje

 

[Pizara]

Alles wat je nodig hebt is 2 textboxxen (TextBox1 & 2) en een Button (Button1)

Dan is dit één van de mogelijkheden om de data te vergelijken. Maar je begrijpt toch wel dat iedere jan-boeren*** de access database kan openen om de inlog gegevens te achterhalen.

Public Class Form1

    Dim strSQL As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        strSQL = "SELECT Werknemer,Wachtwoord FROM O_Wachtwoord WHERE Werknemer='" & TextBox1.Text & "' AND Wachtwoord ='" & TextBox2.Text & "';"
        Call MijnDatabase()

    End Sub

    Private Sub MijnDatabase()

        Dim Database As New OleDb.OleDbCommand(strSQL, New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Pizara\Documents\inlog.mdb;"))
        Database.Connection.Open()

        Dim DataReader As System.Data.OleDb.OleDbDataReader = Database.ExecuteReader

        DataReader.Read()

        Try
            If DataReader(0) = TextBox1.Text And DataReader(1) = TextBox2.Text Then
                MsgBox("Inlog OK!")
                'Doe iets vanaf hier
            End If
        Catch ex As InvalidOperationException
            MsgBox("Werknemer en/of Wachtwoord onbekend")
            Exit Sub
        Catch ex As Exception
            MsgBox("Er heeft zich een onbekende fout voor gedaan")
        Finally
            Database.Connection.Close()
            Database.Connection.Dispose()
        End Try

    End Sub

End Class

 

[Snabugje]

Dag Pizara!!

Bedankt voor je reactie :thumb:
Ik ga dit zo snel mogelijk uitproberen.

Het is duidelijk dat iedereen gewoon in access kan komen ja
maar uiteindelijk zal ik wel iets anders gevonden hebben als m'n VB programma gebruikt gaat worden.
Dit is meer om VB een beetje te ontdekken.

Bedankt voor je reactie in ieder geval!!
Maandag ga ik het uitproberen, eerst lekker genieten van een lekker lang weekend!!!

Alvast gefeliciteerd met onze prinses!!

Mvg,
Snabugje

 

[Snabugje]

Dag Pizara!

Ik ben vandaag weer begonnen met programmeren en zit je code uit te pluizen.

Om het goed te begrijpen, snap ik het goed als ik zeg dat met DataReader(#) het '#' overeen komt met fields in een record??
Dus met DataReader(1) wordt in rij1 kolom2 bedoelt
en met DataReader(5) wordt in rij2 kolom3 bedoelt??

(zie voorbeeld hier onder)

___________
| 0 | 1 | 2 |
| 3 | 4 | 5 |

MVG,
Snabugje:thumb:

 

[ErikBooy007]

Nee, niet helemaal. Het geeft alleen de kolom aan. Je krijgt hier maar één rij terug, dus hij hoeft niet ook nog door rijen te zoeken.

Als je dat wel zou willen, kun je er eenvoudigweg een while-loop inzetten.

 

[Snabugje]

Dag Erikbooy!

Bedankt voor je reactie.
De functie is mij een wat duidelijker geworden nu.
Wil je misschien uitleggen hoe ik de getallen dan moet gebruiken met DataRead()?? Wel snap ik dat het een Integer moet zijn die bij 0 begomt ipv 1... die telling ken ik wel.

Alvast bedankt!!

Mvg
Snabugje

 

[ErikBooy007]

Stel je hebt de volgende tabel:

id | username | password | email            |
---+----------+----------+------------------+
1  | henk     | piet     | henk@gmail.com   |
2  | jan      | geheim   | jantje@domein.nl |
---+----------+----------+------------------+

Stel dat je dan in je query aangeeft dat je alle velden wilt waar username = jan AND password = geheim, dan zitten in je datareader de volgende values:

datareader(0) = 2
datareader(1) = jan
datareader(2) = geheim
datareader(3) = jantje@domein.nl

 

[Snabugje]

ErikBooy, ontzettend bedankt!!:thumb:

Het is me helemaal duidelijk hoe DataReader "leest"
Ik ga het in mn login code gebruiken.

Bedankt,
Mvg,
Snabugje