See Video of this Slip
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
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.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")
End Sub
Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsert.Click
Dim x As Integer
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")
End If
Catch ex As Exception
MsgBox(ex)
End Try
ds.Tables.Clear()
query = "Select * from pat"
da = New OleDb.OleDbDataAdapter(query, con)
da.Fill(ds, "pat")
DataGridView1.DataSource = ds.Tables("pat")
End Sub
End Class
No comments:
Post a Comment
Note: only a member of this blog may post a comment.