MDK

[Dragana Stojanovska]

Project Name: MEDICAL CENTER
Department: Team project
Focus Area: useful software for medicals
Product/Process: softwere

[139037]

Imports System.Data.OleDb
'Imports all the functions, variables, declarations from system.data.oledb

Public Class Form1

Dim con As New OleDbConnection

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

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 'Medical_systemDataSet4.tblPatient_Lab' table. You can move, or remove it, as needed.

Me.TblPatient_LabTableAdapter2.Fill(Me.Medical_systemDataSet4.tblPatient_Lab)
'TODO: This line of code loads data into the

'Medical_systemDataSet4.tblPatient_Appointment' table. You can move, or remove it, as needed.

Me.TblPatient_AppointmentTableAdapter1.Fill(Me.Medical_systemDataSet4.tblPatient_Appointment)

'TODO: This line of code loads data into the

'Medical_systemDataSet4.tblPatient_Examination' table. You can move, or remove it, as needed.

Me.TblPatient_ExaminationTableAdapter1.Fill(Me.Medical_systemDataSet4.tblPatient_Examination)

'TODO: This line of code loads data into the 'Medical_systemDataSet3.tblPatient_Lab' table. You can move, or remove it, as needed.

Me.TblPatient_LabTableAdapter1.Fill(Me.Medical_systemDataSet3.tblPatient_Lab)

TODO: This line of code loads data into the 'Medical_systemDataSet2.tblPatient_Lab' table. You can move, or remove it, as needed.

Me.TblPatient_LabTableAdapter.Fill(Me.Medical_systemDataSet2.tblPatient_Lab)

'TODO: This line of code loads data into the 'Medical_systemDataSet2.tblPatient_Examination' table. You can move, or remove it, as needed.

Me.TblPatient_ExaminationTableAdapter.Fill(Me.Medical_systemDataSet2.tblPatient_Examination)

'TODO: This line of code loads data into the 'Medical_systemDataSet.tblPatient_Appointment' table. You can move, or remove it, as needed.

Me.TblPatient_AppointmentTableAdapter.Fill(Me.Medical_systemDataSet.tblPatient_Appointment)

'TODO: This line of code loads data into the 'Medical_systemDataSet.tblPatient' table. You can move, or remove it, as needed.

Me.TblPatientTableAdapter.Fill(Me.Medical_systemDataSet.tblPatient)

con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source = ..\medical_system.mdb"

con.Open()
DataGridShow()

control can display a collection of data in multiple columns and rows. It includes functionality to sort by columns.