Re: connecting to oracle using VB 4.0

I use the Oracle Data Control. This is the code:

Global empset As Object
Global empdatabase As Object

Sub Form_Load()
Set OraSession = CreateObject("OracleInProcServer.XOraSession") 'end line Set empdatabase = OraSession.DbOpenDatabase("ClockDB", "clockmgr/password", 0&) 'end line
End Sub

Sub Mysub()
sql1$ = "OpenRecord = 0"
Set empset = empdatabase.OpenRecordset("MasterClockTable", dbOpenDynaset) empset.FindFirst sql1$
Do Until empset.NoMatch
If Val(empset.indaycode) <> thisdaycode Then empset.Edit
empset("BatchDate") = bdate$
empset("BatchTime") = btime$
empset.Update
End If
empset.FindNext sql1$
Loop
End Sub

Jason Hibbs wrote in message <01bd25e9$2def3120$2e16b18e_at_jasonhib>...
>I'm doing a school project where i have to use oracle and visual basic 4.0.
> I am having trouble connecting to my oracle database. If anyone can spare
>a minute, it would be greatly appreciated.
>
>
Received on Wed Jan 21 1998 - 00:00:00 CET