>CREATE CURSOR HSBCursor (Lab_Ord_ID C(25) NULL, Sampled_By C(40) NULL, >Report_Ord C(25) NULL,Syringe_ID C(20) NULL, Lab_Sample_ID C(25) NULL, >Unit_ID C(25) NULL, Sample_dt T NULL, Received_dt T NULL, >dielectric_breakdown_1mm B(4) NULL, dielectric_breakdown_2mm B(4) NULL, > dielectric_breakdown B(4) NULL, >..... and several more fields ) >>
>SELECT ALLTRIM(STR(VAL(Upsino))) AS Unit_ID,Sampled_By C(40) NULL, > Report_Ord C(25) NULL, Syringe_ID C(20) NULL, Lab_Sample_ID C(25) NULL > .... several more fields > > FROM Visual > INTO CURSOR hsbVisual ; > ORDER BY Unit_ID ASC, Sample_dt DESC >>
>SET NULL ON > SCAN > SCATTER MEMVAR > INSERT INTO HSBCursor FROM MEMVAR > RELEASE ALL > ENDSCAN >SET NULL OFF > > I run several more SELECT statements and continue to update >several fields in the hsbCursor from various tables using SCATTER.... >and GATHER MEMVAR commands. > >>
> >#DEFINE adOpenKeyset 1 >#DEFINE adLockOptimistic 3 > >#DEFINE DATA_SOURCE lcDataSource > >cnn = CREATEOBJECT( "ADODB.Connection" ) >rst = CREATEOBJECT( "ADODB.Recordset" ) > > >* Open the connection >cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + DATA_SOURCE + ";") > > >* Open for Updating recordset >rst.Open ("SELECT * FROM [Sample Upload]", cnn, adOpenKeyset, adLockOptimistic) > >SELECT HSBCursor >GO TOP > >SCAN > * Add a new Record to Recordset > rst.AddNew() > WITH rst > .Fields( "Unit_ID" ).Value = ALLTRIM(HSBCursor.Unit_ID) > .Fields( "Report_Order_ID" ).Value = ALLTRIM(HSBCursor.Report_Ord) > .Fields( "Syringe_ID" ).Value = ALLTRIM(HSBCursor.Syringe_ID) > .Fields( "Lab_Sample_ID" ).Value = ALLTRIM(HSBCursor.Lab_Sample_ID) > ..... several more fields > ENDWITH > > rst.Update() >ENDSCAN >>