vb.net2015_slip21




 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.