Source Code : -
Imports System.Data.OleDb
Public Class UserControl1
Dim pro As String
Dim connstring As String
Dim command As String
Dim myconnection As OleDbConnection = New OleDbConnection
Private Sub UserControl1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
pro = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = C:\Users\91846\OneDrive\Documents\demo_project.accdb"
connstring = pro
myconnection.ConnectionString = connstring
myconnection.Open()
command = "insert into STUDENT([Stu_Name],[Stu_Marks],[Stu_Age]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
Dim cmd As OleDbCommand = New OleDbCommand(command, myconnection)
cmd.Parameters.Add(New OleDbParameter("Stu_Name", CType(TextBox1.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Stu_Marks", CType(TextBox2.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Stu_Age", CType(TextBox3.Text, String)))
MsgBox("Record Save successfully!!")
Try
cmd.ExecuteNonQuery()
cmd.Dispose()
myconnection.Close()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Comments
Post a Comment