Connection String in Public Function

Connection String in Public Function:

Imports System.Data

Imports Oracle.DataAccess.Client 

Imports Oracle.DataAccess.Types

Public Function Opencon() As OracleConnection

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

        Dim conn As New OracleConnection(oradb)

        conn.Open()

        Return conn

        conn.Close()

 End Function

Using this function:

 Using conn = Opencon()

...............code......

 End Using

Check Existing Data and Add Data in Oracle Database

Check Existing Data and Add Data in Oracle Database:

Imports System.Data

Imports Oracle.DataAccess.Client 

Imports Oracle.DataAccess.Types

Example of VB Programming for check existing data and Add data:

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

If (TextBox1.Text = "") Then

            MsgBox("Please Type RegNo")

ElseIf (TextBox2.Text = "") Then

            MsgBox("Please Type Name")

   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 = "SELECT * FROM REG_DETAILS WHERE REGNO='" & TextBox1.Text & "' AND NAME='" & TextBox2.Text & "'"

            cmd.CommandType = CommandType.Text

            Dim drd As OracleDataReader

            drd = cmd.ExecuteReader()

            If drd.Read() Then

                TextBox1.Text = drd("REGNO")

                TextBox2.Text = drd("NAME")

                MsgBox("Data are Already exist")

            Else

                Dim cmd1 As New OracleCommand

                cmd1.Connection = conn

                cmd1.CommandText = "insert into reg_details values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"

                cmd1.CommandType = CommandType.Text

                cmd1.ExecuteNonQuery()

                MsgBox("Record is successfully stored")

                conn.Dispose()

            End If

        End If

    End Sub

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

Avast Free Antivirus Free Download

Avast Free Antivirus Download for Windows:

• It is one of the famous free Anti virus
• Blocks Virus, Spyware and it contains several features.
• Easy to Register.
• Easy to update.

Download

Register Avast Free Antivirus :

Click to Register and get Serial Key for Avast free Antivirus.

Type Serial Key to Open Avast  free antivirus >> Maintenance >> Registration >> Click insert License key.

(or)

Open Avast free Antivirus >>Maintenance>>Registration>>Click Register>>Fill the Fields (type Email id, and others)>>Register. (Using Internet connection).