DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

let me know d steps to connect to oracle(sql) from vb6

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Nov 2006

Posts: 3

Reputation: gurutheja is an unknown quantity at this point

Solved Threads: 0

gurutheja

Offline

Newbie Poster

let me know d steps to connect to oracle(sql) from vb6

Nov 29th, 2006

hi
i am Raghavendra. I dont know anything abt how to connect to oracle (sql) from VB 6 . could u plz let me know d steps n d code for executing the queries. its very urgent plz let me know

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: let me know d steps to connect to oracle(sql) from vb6

Nov 30th, 2006

Hi Raghu,

Add References
Microsoft ActiveX Data Object Library 2.0 to ur project

Connection To Oracle is :

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Dim adoCn As New ADODB.Connection
Dim sSQL as String
Dim RST As New AdoDb.RecordSet
 
sSQL= "Provider=MSDAORA.1;Password=MyPwd;" _
        & " User ID=MyUserName;Data Source=MyDataSource;" _
        & " Persist Security Info=True"
    With adoCn
        .CursorLocation = adUseClient
        .ConnectionString = DBStrCnct
        .ConnectionTimeout = 30
        .Open
    End With
 
To Open A Record Set Use This Statement :
 
    sSQL = "Select * From MyTable"
    Set RST = Nothing
    RST.Open sSQl, adoCn, adOpenDynamic, adLockOptimistic
    '
    If Not (RST.EOF And RST.BOF) Then
        'Records Present Do ur Coding here
    Else
        'Records Not present
    End If
Dim adoCn As New ADODB.Connection
Dim sSQL as String
Dim RST As New AdoDb.RecordSet
 
sSQL= "Provider=MSDAORA.1;Password=MyPwd;" _
        & " User ID=MyUserName;Data Source=MyDataSource;" _
        & " Persist Security Info=True"
    With adoCn
        .CursorLocation = adUseClient
        .ConnectionString = DBStrCnct
        .ConnectionTimeout = 30
        .Open
    End With

To Open A Record Set Use This Statement :
    
    sSQL = "Select * From MyTable"
    Set RST = Nothing
    RST.Open sSQl, adoCn, adOpenDynamic, adLockOptimistic
    '
    If Not (RST.EOF And RST.BOF) Then
        'Records Present Do ur Coding here
    Else
        'Records Not present
    End If

To Execute the SQWL Statement :

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
sSQL="Update MyTable Set MyField = '" & Text1.Text & "' Where MyPK = 20"
adoCn.Execute sSQL
sSQL="Update MyTable Set MyField = '" & Text1.Text & "' Where MyPK = 20"
adoCn.Execute sSQL

I hope it is clear.
If u have any problems, let me know

Regards
Veena

Last edited by Narue; Jan 30th, 2009 at 10:07 am. Reason: added code tags

•

Join Date: Nov 2006

Posts: 3

Reputation: gurutheja is an unknown quantity at this point

Solved Threads: 0

gurutheja

Offline

Newbie Poster

Re: let me know d steps to connect to oracle(sql) from vb6

Nov 30th, 2006

hi veena,
Thank u very much, but i am not getting to know how to select or add oledb or activex and all those intial procedures before doing the coding. If u could plz help me as i know nothin about vb, i have an interview and they asked me for the database connectivity.
Regards
Raghu

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: let me know d steps to connect to oracle(sql) from vb6

Nov 30th, 2006

Hi,

No Need To add any Active x or oledb control.

Just add the References in Project Menu.
Microsoft ActiveX Data Object Library 2.0

Place Text1, Text2 TextBoxes on the Form.
Change DatabaseName, UserID and Password according to ur connections.
In Form Level After the Option Explicit type this

Dim adoCn As New ADODB.Connection
Dim sSQL as String
Dim RST As New AdoDb.RecordSet

In Form Load

Private Sub Form_Load()
sSQL= "Provider=MSDAORA.1;Password=MyPwd;" _
& " User ID=MyUserName;Data Source=MyDataSource;" _
& " Persist Security Info=True"
With adoCn
.CursorLocation = adUseClient
.ConnectionString = DBStrCnct
.ConnectionTimeout = 30
.Open
End With

'
sSQL = "Select * From MyTable"
Set RST = Nothing
RST.Open sSQl, adoCn, adOpenDynamic, adLockOptimistic
'
If Not (RST.EOF And RST.BOF) Then
RST.MoveFirst
Text1.Text = RST(0)
Text2.Text = RST(1)
End If
RST.Close
Set RST= Nothing

End Sub

Thats ALL.

Regards
Veena

•

Join Date: Nov 2006

Posts: 3

Reputation: gurutheja is an unknown quantity at this point

Solved Threads: 0

gurutheja

Offline

Newbie Poster

Re: let me know d steps to connect to oracle(sql) from vb6

Dec 2nd, 2006

Hi,
thank you very much veena if any further query i wil get back to you.

Regards
Raghu

•

Join Date: Jan 2009

Posts: 1

Reputation: afreaz is an unknown quantity at this point

Solved Threads: 0

afreaz

Offline

Newbie Poster

Re: let me know d steps to connect to oracle(sql) from vb6

Jan 28th, 2009

plz dear help me out am also struck with same prob..
am new to VB so write it in detail for me plz..
help me out

•

Join Date: Dec 2004

Posts: 2,413

Reputation: Comatose is a jewel in the rough

Solved Threads: 211

Comatose

Offline

Taboo Programmer

Re: let me know d steps to connect to oracle(sql) from vb6

Jan 28th, 2009

How about starting a new thread, and not responding to one that is like, 3 years old?

•

Join Date: Jan 2009

Posts: 1

Reputation: jikraant is an unknown quantity at this point

Solved Threads: 0

jikraant

Offline

Newbie Poster

Re: let me know d steps to connect to oracle(sql) from vb6

Jan 30th, 2009

create a odbc for the database , table you would like to connect to, then invoke vb select either standard / data project , go to add in visual data manager , and build a form using the odbc , in the data control connect(property) you will get connection string if you would like to use it further for queries...
Regards
Dev