I have made connection to a free table like this
loConn = CREATEOBJECT("ADODB.Connection")
loConn.OPEN([Provider=VFPOLEDB.1;Data Source=] + des_path + ;
[;Mode=ReadWrite;Password="";Collating Sequence=MACHINE])
loRs = CREATE("ADODB.Recordset")
WITH loRs
.ActiveConnection = loConn
.CursorType= 3 && adOpenStatic
.CursorLocation= 3 && adUseClient
.LockType= 3 && adLockOptimistic
.OPEN("Report_table")
ENDWITH
Wait Window 'Remote View rv_Claim_Detail is created successfully' NOWAIT
clear
Then I create a view from a local table say
CREATE SQL VIEW Lvbatch as select * from &gcTable
I enter into the Report table values like this
sele LvBatch
go top
do while !eof()
loRs.AddNew()
IF ISBLANK(LvBatch.tks_NO) = .F.
loRs.Fields("tks_NO").value = LvBatch.tks_NO
ENDIF
IF ISBLANK(LvBatch.claim_num) = .F.
loRs.Fields("claim_num").value = LvBatch.claim_num
endif
....
But if there is a table in &gcTable, which has more than 500 records, it gives me table overflow error. Is it something to do with Recordset or Free table. Please let me know how to put more than 500 records in that free table as I use it to take the printouts of the records.
Thanks
Bharat
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only