Problems using OLADOCE in VB for Windows CE

Question

Hi,
I m facing the following problems in OLADOCE
If anyone is facing similar problems kindly write back to me.
The device used is:
IPAQ 3760 (Pcoket PC 2002) with WinCE 3.0.
The S/W is as follows
Embedded Visual Basic 3.0
SDK for Pocket PC 2002
Oracle 9i Lite
1) The code below is from 9 lite documentation
Dim rs, i, L1
Set rs = CreateObject("oladoce.recordset")
rs.open "create table newtable (f1 varchar)"
rs.open "newtable", "", 1, 3
rs.addnew "f1", "a"
rs.addnew
rs.fields("f1") = "b"
rs.Update
rs.Close
rs.open "newtable"
Set rs = Nothing
The code highlighted in red gives an error that Object does not
support following method or property.
2) Because of the above error I used arrays to insert data into
tables and am facing the problem below.
I am unable to insert more than one record in any table using
OLADOCE.
The following code inserts record in test table for first time.
When I execute the same code second time it inserts the record
in the table and exits out of the application without any errors.
I have created a command button Insert and the code below gets
executed on click of the Insert button.
Also I have created a table test withe fields (empid number(4),
str_id number(4), acnt_id number(3), strt_dtm date,acnt_typ
varchar2(2), call_no number(2)) in the polite database.
Private Sub Insert_Click()
Dim rc
Set rc = CreateObject("oladoce.activeconnection")
rc.Connect ("polite")
'' creating and opening Recordset for test
Dim mrecfld As Variant
Dim mrecval As Variant
Dim mrecTmp
ReDim mrecfld(5)
ReDim mrecval(5)
Set mrecTmp = CreateObject("oladoce.recordset")
mrecTmp.Open "test", "", 1, 3
mrecfld(0) = "emp_id"
mrecfld(1) = "str_id"
mrecfld(2) = "acnt_id"
mrecfld(3) = "strt_dtm"
mrecfld(4) = "acnt_typ"
mrecfld(5) = "call_no"
mrecval(0) = 1
mrecval(1) = 1
mrecval(2) = 1
mrecval(3) = Now()
mrecval(4) = "NA"
mrecval(5) = 1
mrecTmp.addnew mrecfld, mrecval
mrecTmp.Update
mrecTmp.Close
Set mrecTmp = Nothing
End Sub
regards,
Sonal

Answer 1

No, actually I want to do the sum on a column in the same view.
I have a master detail in the database Billing >- Fees where the fees are stored and the fees_id is in the Billing table
there are other master detail relationships in the billing table as well - on is the customer.
so I have a view object that is is a readonly query and I wrote the query (expert mode). each line is a record for the "Billing" system.
As part of the query - the fees column is included.
The view object:
SELECT ExamBillings.order_date,
ExamBillings.id,
Records.patients_id,
Records.id AS ID1,
ProceedureFees.description,
ProceedureFees.id AS ID2,
ProceedureFees.fees
FROM hospital.exam_billings ExamBillings, hospital.records Records, hospital.proceedure_fees ProceedureFees
WHERE (ExamBillings.records_id = Records.id) AND (ExamBillings.proceedure_fees_id = ProceedureFees.id)
I need to accumulate the fees based on the records_id.
as the column "fees" appears in the VO, as I understand the documentation, I only need to so a transient column (SumFees - BigDecimal - expression= sum("Fees");
This should aggregate the fees as they are fetched - each time.
I follow what you are saying - the records table would be the master and I would accumulate the fees in the records - however - in this case I have used the patients_id as the master.
As they are responsible for payment of possibly several records - I would have to sum the fees by patients_id.
I will give this a try as well and let you know.
I still believe that the summation should be able to be carried out as part of the same view object as it would be much more efficient (though some may argue that it is not in the "logical" place.
It seems that the aggregation would be much easier - as the select is already running and the sum would be simple - sum = sum + attribute - to me this would also make logical sense (similar to making a line total using groovy).