The primary purpose of this code is to teach beginner programmer to familiarize the concept of database programming.
This is particularly for beginner but may also applicable for intermediate programmer.
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.
Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.
FOR YOUR OWN SAFETY, PLEASE:
1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
Dim sqlQRY As String = "SELECT * FROM JSM_LEDEN WHERE Kaartnummer = " & IntCardNr Dim JSM_DataAdapter As OleDbDataAdapter = New OleDbDataAdapter(sqlQRY, JSM_Conn) Dim JSM_DataSet As DataSet = New DataSet JSM_DataAdapter.Fill(JSM_DataSet, "JSM_Leden") Dim JSM_DataTable As DataTable = JSM_DataSet.Tables("JSM_Leden") Dim row As DataRow Dim NumLessons As Integer = 0 Dim LastLogDate As Date
For Each row In JSM_DataTable.Rows Txt_Name.Text = row("Naam") Txt_Forename.Text = row("Voornaam") Txt_Address.Text = row("Straat") Txt_City.Text = row("Gemeente") Txt_Zip.Text = row("Postcode") If IsDBNull(row("Tel")) Then Txt_Phone.Text = "" Else Txt_Phone.Text = row("Tel") End If If IsDBNull(row("GSM")) Then Txt_GSM.Text = "" Else Txt_GSM.Text = row("GSM") End If