i have to pull all data form oracle but i am only able to pull 2313 data but there are 7500 datas are available. so how i can pull all the data from oracle in our lotus notes .
Subject: pull all data from oracle
Use a bigger bucket…
Ummmm, code…code would be really helpful.
Debug information would also be helpful.
If you’re using LXLCX or LEI, you should be in the Enterprise forum anyway.
Subject: RE: pull all data from oracle
Sub Click(Source As Button) Dim wrk As New NotesUIWorkspace
Dim ses As New NotesSession
Dim uid As NotesUIDocument
Dim db As NotesDatabase
Dim docprof As NotesDocument
Dim doc1 As NotesDocument
Dim view As NotesView
Dim doc As notesdocument
Dim x As Variant
Dim DCode As Variant
Dim DCode1,DCode2,DCode3,DCode4,DCode5,DCode6,DCode7,DCode8,DCode9 As Variant
Dim con As New ODBCConnection
Dim res As New ODBCResultSet
Dim qry As New ODBCQuery
Set db = ses.CurrentDatabase
Set qry.Connection = con
Set res.Query = qry
Set uid = wrk.CurrentDocument
Set db = ses.CurrentDatabase
Set doc = db.CreateDocument
Set doc = New NotesDocument( db )
'x = uid.FieldGetText ("P_No")
If con.ConnectTo ("12345","12345","12345") Then
status = con.IsConnected
'Messagebox "connected"
End If
'*****variable =result.GetValue( column name of table" ,field name of form) ***********
'qry.SQL = "insert into table1 values ('" & tempid & "','"& tempaddr &"','" & tempname &"')"
qry.SQL ="select * from LEAVE"
res.Execute
Do
NotEnough:
Set doc = New NotesDocument( db )
res.NextRow
DCodee = res.GetValue ("EMP_CODE",P_No)
DCode = res.GetValue("EMPLOYEE_NAME",Applicant123)
DCode1 = res.GetValue ("DESIGNATION",E_Level123)
DCode2 = res.GetValue ("Location",E_workat123)
If DCode3 <> "" Then
doc.Form = "check balance"
doc.P_No = DCodee
doc.Applicant123= DCode
doc.E_Level123 = DCode1
doc.E_workat123= DCode2
Call doc.Save( True, True )
Else
Goto NotEnough
End If
If DCode4 <> "" Then
doc.Form = "check leave balance"
doc.P_No = DCodee
doc.Applicant123= DCode
doc.E_Level123 = DCode1
doc.E_workat123= DCode2
doc.doj = DCode6
doc.TOT_DAYS_OF_ATTD= DCode7
doc.TOT_DAYS_OF_ABS = DCode8
doc.TOT_DAYS_OF_LEAVE_GRNT= DCode9
doc.UNAVAILED_PL123 = DCode4
doc.UNAVAILED_CL123 = DCode3
doc.UNAVAILED_SL123 = DCode5
Call doc.Save( True, True )
Else
Goto NotEnough
End If
If DCode5 <> "" Then
doc.Form = "check balance"
doc.P_No = DCodee
doc.Applicant123= DCode
doc.E_Level123 = DCode1
Call doc.Save( True, True )
Else
Goto NotEnough
End If
Loop Until res.IsEndOfData
End Sub
Subject: RE: pull all data from oracle
OK, that’s better…
Now, what debugging have you done? Where does the import seem to be failing? Can you see what happens to the query routine?
Also, have you tried a search (here and maybe google) for ODBC and Limits?
Also, have you thought about using LCLSX? If not, try checking out that option and poke around the Lotus Enterprise Integration forum for code samples of how to read Oracle data.
Doug