Para conectar VB con Oracle existen varias metodologias, te entregare dos de ellas...
***********************
METODOLOGIA RDO
Private Sub insertodbc_Click()
Dim oev As rdoEnvironment
Dim odb As rdoConnection
Dim ody As rdoResultset
Set oev = rdoEnvironments(0)
Set odb = oev.OpenConnection("", _rdDriverNoPrompt, False, _"DSN=orion;UID=SCOTT;PWD=TIGER;")
Set ody = odb.OpenResultset( _
"select * from emp for update", _
rdOpenDynamic, rdConcurRowver)
ody.AddNew
ody![empno] = empno.Text
ody![ename] = ename.Text
ody![job] = job.Text
ody![mgr] = manager.Text
ody.Update
ody.Close
odb.Close
End Sub
**************************
METODOLOGIA OO4O
Private Sub Insertoo4o_Click()
Dim OraSession As Object
Dim odb As Object
Dim ody As Object
Set OraSession = CreateObject( _
"OracleInProcServer.XOraSession")
Set odb = OraSession.CreateDatabase("orion", _
"scott/tiger", 0&)
Set ody = odb.CreateDynaset("select * from emp", 0&)
ody.AddNew
ody.Fields("empno").Value = Val(empno.Text)
ody.Fields("ename").Value = ename.Text
ody.Fields("job").Value = job.Text
ody.Fields("mgr").Value = Val(manager.Text)
ody.Update
ody.Close
odb.Close
End Sub
********************
Debes por supuesto generar el controlador ODBC antes de poder probar el ejemplo.
SI TIENES DUDAS O QUIERES ESPECIFICACION MAS TECNICAS, TENGO BASTANTE.
