Code:
Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class Form2
Public connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\REORBETA\Desktop\COPRO VB NET PROGRAM FINALS\VB NET Database\Database\Database\Database.accdb"
Public conn As New OleDbConnection
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DatabaseDataSet.Status' table. You can move, or remove it, as needed.
Me.StatusTableAdapter.Fill(Me.DatabaseDataSet.Status)
'TODO: This line of code loads data into the 'DatabaseDataSet.View_Instructors' table. You can move, or remove it, as needed.
Me.View_InstructorsTableAdapter.Fill(Me.DatabaseDataSet.View_Instructors)
'TODO: This line of code loads data into the 'DatabaseDataSet.View_Courses' table. You can move, or remove it, as needed.
Me.View_CoursesTableAdapter.Fill(Me.DatabaseDataSet.View_Courses)
'TODO: This line of code loads data into the 'DatabaseDataSet.Status_Year_Level_and_Program' table. You can move, or remove it, as needed.
Me.Status_Year_Level_and_ProgramTableAdapter.Fill(Me.DatabaseDataSet.Status_Year_Level_and_Program)
'TODO: This line of code loads data into the 'DatabaseDataSet.Student_Registration' table. You can move, or remove it, as needed.
Me.Student_RegistrationTableAdapter.Fill(Me.DatabaseDataSet.Student_Registration)
conn.ConnectionString = connstring
'to test if the connection to the database is open
If conn.State = ConnectionState.Closed Then
conn.Open()
MsgBox("Database connection is now open")
Else
MsgBox("Database Connection has been Closed")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim clsValidate As New ValidateTextBox
'validating empty txtID
If clsValidate.IsTextBoxEmpty(txtID) = True Then
MessageBox.Show("Please enter ID")
Exit Sub
End If
'validating a numeric input for ID
If clsValidate.IsTextBoxNumeric(txtID) = False Then
MessageBox.Show("Please enter a valid ID")
Exit Sub
End If
'validating the an empty textLName
If clsValidate.IsTextBoxEmpty(txtLName) Then
MessageBox.Show("Please enter First Name")
Exit Sub
End If
'validating a character input for LastName
If clsValidate.IsTextBoxNumeric(txtLName) = True Then
MessageBox.Show("Please enter a valid First Name")
Exit Sub
End If
'validating the an empty textFName
If clsValidate.IsTextBoxEmpty(txtFName) Then
MessageBox.Show("Please enter First Name")
Exit Sub
End If
'validating a character input for FirstName
If clsValidate.IsTextBoxNumeric(txtFName) = True Then
MessageBox.Show("Please enter a valid First Name")
Exit Sub
End If
'validating the an empty textMName
If clsValidate.IsTextBoxEmpty(txtMName) Then
MessageBox.Show("Please enter Middle Name")
Exit Sub
End If
'validating a character input for MiddleName
If clsValidate.IsTextBoxNumeric(txtMName) = True Then
MessageBox.Show("Please enter a valid Middle Name")
Exit Sub
End If
'validating empty txtContact1
If clsValidate.IsTextBoxEmpty(txtContact1) = True Then
MessageBox.Show("Please enter Contact Number")
Exit Sub
End If
'validating a numeric input for txtContact1
If clsValidate.IsTextBoxNumeric(txtContact1) = False Then
MessageBox.Show("Please enter a valid Contact Number")
Exit Sub
End If
'validating the an empty txtAddress
If clsValidate.IsTextBoxEmpty(txtAddress) Then
MessageBox.Show("Please enter Address")
Exit Sub
End If
'validating a character input for txtAddress
If clsValidate.IsTextBoxNumeric(txtAddress) = True Then
MessageBox.Show("Please enter a valid Address")
Exit Sub
End If
'validating the an empty txtGuardian
If clsValidate.IsTextBoxEmpty(txtGuardian) Then
MessageBox.Show("Please enter Guardian Name")
Exit Sub
End If
'validating a character input for Guardian
If clsValidate.IsTextBoxNumeric(txtGuardian) = True Then
MessageBox.Show("Please enter a valid Guardian Name")
Exit Sub
End If
'validating empty txtContact2
If clsValidate.IsTextBoxEmpty(txtContact2) = True Then
MessageBox.Show("Please enter Contact Number")
Exit Sub
End If
'validating a numeric input for txtContact2
If clsValidate.IsTextBoxNumeric(txtContact2) = False Then
MessageBox.Show("Please enter a valid Contact Number")
Exit Sub
End If
'inserting the new record to database
Try
Dim SqlQuery As String = "INSERT INTO Friends (ID, Last Name, First Name, Middle Name, Contact Number, Address, Guardian, Contact Number) VALUES ('" & txtID.Text & "','" & txtLName.Text & "','" & txtFName.Text & "','" & txtMName.Text & "','" & txtContact1.Text & "','" & txtAddress.Text & "','" & txtGuardian.Text & "','" & txtContact2.Text & "')"
Dim SqlCommand As New OleDbCommand
With SqlCommand
.CommandText = SqlQuery
.Connection = conn
.ExecuteNonQuery()
End With
MsgBox("Record Succesfully Added")
'refreshing the textbox for new record
txtID.Text = ""
txtLName.Text = ""
txtFName.Text = ""
txtMName.Text = ""
txtContact1.Text = ""
txtAddress.Text = ""
txtGuardian.Text = ""
txtContact2.Text = ""
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Comment