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
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement