VB Connection Oracle Database

' Open the Database

Public Sub openoradb ()
On Error GoTo Toexit
Oradb_open = False
Set oradb = New ADODB. Connection
Oraconstr = "PROVIDER=ORAOLEDB.ORACLE.1; Password= "& Strorapwd &"; User id= "& Strorauser &";D ata source= "& Oradbnetname &"; Persist Security Info=false "
Oradb.cursorlocation = adUseServer

Oradb.open Oraconstr
Oradb_open = True

Exit Sub
Toexit:
' MsgBox ' connection to the database server error, you can continue to use after the network is normal. ", vbinformation," error message "
Oradb_open = False
End Sub

' Close the database

Public Sub closeoradb ()
If Oradb_open = True Then
If (oradb.state = adStateOpen) Then
Oradb.close
Set oradb = Nothing
Oradb_open = False
End If
End If
End Sub

' Open the dataset, write the data

Set orars = New ADODB. Recordset
Orars.activeconnection = oradb
Orars.cursorlocation = adUseServer
Orars.locktype = adLockBatchOptimistic
Strorars = "SELECT * from" & Oradbtablename
Orars.open Strorars, oradb, adOpenStatic, adLockOptimistic
Orars.addnew
Orars.fields ("PID") = Strorapid
Orars.fields ("pname") = StrName "). Value
Orars.fields ("psex") = Strpsex
Orars.update

' Close Data set

Orars.close
Set Orars = Nothing