Scribd
Upload
16 views15 pages

Visual Basic Database Connectivity Guide

This document provides steps for connecting a Visual Basic application to an Oracle database using ADO (ActiveX Data Objects). It describes adding an ADO control to the form, configuring it to connect to Oracle using a username and password, and writing code to open a recordset and retrieve and display data from a table. It also includes code examples to navigate the recordset, retrieve field values, and insert a new record into the table.

Uploaded by

Chaitanya Reddy Konda
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
16 views15 pages

Visual Basic Database Connectivity Guide

This document provides steps for connecting a Visual Basic application to an Oracle database using ADO (ActiveX Data Objects). It describes adding an ADO control to the form, configuring it to connect to Oracle using a username and password, and writing code to open a recordset and retrieve and display data from a table. It also includes code examples to navigate the recordset, retrieve field values, and insert a new record into the table.

Uploaded by

Chaitanya Reddy Konda
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

Visual Basic

Database connectivity

Steps
Start Programs Microsoft Visual Studio Microsoft Visual Basic File New project StandardEXE Place the required controls in the form.

Steps

Steps
Add ADO control thro Project Components

Steps
Add the ADODC control to form.

Steps
Right click on the control properties Build ADODC

Steps
Now select provider for Oracle

Steps
Enter username and password Connection OK Test

Steps
Copy the Connection String and use it while coding

Steps
Write coding for each command button

Code
Dim con As [Link] Dim rs As New [Link] Private Sub Form_Load() Set con = New [Link] Set rs = New [Link] [Link] ("Provider=MSDAORA.1;User ID=scott;Password=tiger;Persist Security Info=False") [Link] "select * from dept", con, adOpenDynamic, adLockOptimistic [Link] = rs("deptno") [Link] = rs("dname") [Link] = rs("loc") End Sub Underlined text is the connection String copied .. Type password manually.. Now the ADODB control in form can be removed

Code
Private Sub Command3_Click() [Link] [Link] = rs("deptno") [Link] = rs("dname") [Link] = rs("loc") End Sub Private Sub Command4_Click() [Link] [Link] = rs("deptno") [Link] = rs("dname") [Link] = rs("loc") End Sub

Code
Private Sub Command3_Click() [Link] [Link] = rs("deptno") [Link] = rs("dname") [Link] = rs("loc") End Sub Private Sub Command4_Click() [Link] [Link] = rs("deptno") [Link] = rs("dname") [Link] = rs("loc") End Sub

Code
Private Sub Command5_Click() Set con = New [Link] Set rs = New [Link] [Link] ("Provider=MSDAORA.1;User ID=scott;Password=tiger;Persist Security Info=False") [Link] "insert into dept values(" & [Link] & ",'" & [Link] & "','" & [Link] & "')", con, adOpenDynamic, adLockBatchOptimistic [Link] MsgBox "record inserted" End Sub

You might also like