VB .NET

VB .NET

Slip21

Q.1) Write a VB.NET program to create a table Patient (Pid, PName, Contact_No, Disease). Insert records into table and display appropriate message in message box. (Use MS Access to create db) [Marks 20] 

Solution

Public Class Form1

Dim con As New OleDb.OleDbConnection

Dim da As New OleDb.OleDbDataAdapter

Dim ds As New DataSet

Dim DbProvider As String

Dim DbSource As String

Dim query As String

Dim cmd As New OleDb.OleDbCommand

PrivateSub Form1_Load(By Val sender As System.Object, ByVal e As System.EventArgs)HandlesMyBase.Load

DbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"

DbSource = "Data Source = D:\Documents_backup\patient.mdb"

con.ConnectionString = DbProvider & DbSource

con.Open()

query = "Select * from pat"

da = New OleDb.OleDbDataAdapter(query, con)

da.Fill(ds, "pat")

DataGridView1.DataSource = ds.Tables("pat")

EndSub

PrivateSub btnInsert_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnInsert.Click

Dim x AsInteger

Try

query = "insert into pat values("&CInt(TextBox4.Text) &",'"&

TextBox1.Text &" ',' "& TextBox2.Text &" ', ' "& TextBox3.Text &" ')"

cmd = New OleDb.OleDbCommand(query, con)

x = cmd.ExecuteNonQuery()

If (x) Then

MsgBox("Data Inserted")

Else

MsgBox("data Not inserted")

EndIf

Catch ex As Exception

MsgBox(ex)

EndTry

ds.Tables.Clear()

query = "Select * from pat"

da = New OleDb.OleDbDataAdapter(query, con)

da.Fill(ds, "pat")

DataGridView1.DataSource = ds.Tables("pat")

EndSub

EndClass