How to Save Usernames Onto a Database on a Student Sign In App

Published Sep 18, 2017
How to Save Usernames Onto a Database on a Student Sign In App

How to save usernames onto a database using arrays in VB.net.

Imports System.Data.OleDb

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Students1DataSet.Details_1' table. You can move, or remove it, as needed.
        Me.Details_1TableAdapter.Fill(Me.Students1DataSet.Details_1)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        IDTextBox.Enabled = True
        NameTextBox.Enabled = True
        SurnameTextBox.Enabled = True
        LevelTextBox.Enabled = True
        CourseTextBox.Enabled = True
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Details_1BindingSource.RemoveCurrent()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        IDTextBox.Enabled = True
        NameTextBox.Enabled = True
        SurnameTextBox.Enabled = True
        LevelTextBox.Enabled = True
        CourseTextBox.Enabled = True
        Me.Details_1BindingSource.AddNew()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Validate()
        Me.Details_1BindingSource.EndEdit()
        Me.Details_1TableAdapter.Update(Me.Students1DataSet.Details_1)
        TableAdapterManager.UpdateAll(Me.Students1DataSet)
        IDTextBox.Enabled = False
        NameTextBox.Enabled = False
        SurnameTextBox.Enabled = False
        LevelTextBox.Enabled = False
        CourseTextBox.Enabled = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Details_1TableAdapter.SearchName(Me.Students1DataSet.Details_1, TextBox1.Text)
    End Sub
End Class

Discover and read more posts from Mac Chang
get started