Add Data in Oracle Database Table

 Add Data in Oracle Database Table:

Imports System.Data

Imports Oracle.DataAccess.Client 

Imports Oracle.DataAccess.Types

Example of VB Programming  for Add Data in Oracle Database Table:

Private Sub addbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addbtn.Click

 If (Name.Text = "") Then

            MsgBox("Please Type Name")

        ElseIf (Regno.Text = "") Then

            MsgBox("Please Type Register No")

        ElseIf (mark1.Text = "") Then

            MsgBox("Please Type Mark1")

        ElseIf (mark2.Text = "") Then

            MsgBox("Please Type Mark2")

        ElseIf (mark3.Text = "") Then

            MsgBox("Please Type Mark3")

        ElseIf (mark4.Text = "") Then

            MsgBox("Please Type Mark4")

        ElseIf (mark5.Text = "") Then

            MsgBox("Please Type Mark5")

        Else

            Dim oradb As String = "Data Source=XE;User Id=HR;Password=password;"

            Dim conn As New OracleConnection(oradb)

            conn.Open()

            Dim cmd As New OracleCommand

            cmd.Connection = conn

            cmd.CommandText = "insert into table_name values ('" & Name.Text & "','" & Regno.Text & "','" & mark1.Text & "','" & mark2.Text & "','" & mark3.Text & "','" & mark4.Text & "','" & mark5.Text & "')"

            cmd.CommandType = CommandType.Text

            cmd.ExecuteNonQuery()

            MsgBox("Record is successfully stored")

            conn.Dispose()

        End If
End Sub

Create Oracle Database Table Using VB Programming

Create Oracle Database Table Using VB Programming:

• First, Connect with Oracle Database in Visual Studio.
• The Data Source , User Id and Password are change by  using  your Database Connection string.
• Use Following Library Function Headers in General 

Imports System.Data

Imports Oracle.DataAccess.Client 

Imports Oracle.DataAccess.Types

Example of Visual Basic Programming For Create Oracle Database Table:

Private Sub Button3_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim oradb As String = "Data Source=XE;User Id=HR;Password=password;"

        Dim conn1 As New OracleConnection

        Dim cmd1 As OracleCommand

        conn1.ConnectionString = oradb

        conn1.Open()

        Dim sql = "create table table_name(column_name1 varchar2(10),column_name2 varchar2(12),column_name3 varchar2(20),column_name4 varchar2(20),column_name5 varchar2(25),column_name6 number(8))"

        cmd1 = New OracleCommand(sql, conn1)

        cmd1.CommandType = CommandType.Text

        cmd1.ExecuteNonQuery()

         MsgBox("Table is Created")
End Sub