<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Helvetica;
panose-1:2 11 6 4 2 2 2 2 2 4;}
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.apple-style-span
{mso-style-name:apple-style-span;}
span.apple-converted-space
{mso-style-name:apple-converted-space;}
span.apple-tab-span
{mso-style-name:apple-tab-span;}
span.EmailStyle20
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle21
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-US link=blue vlink=purple style='word-wrap: break-word;
-webkit-nbsp-mode: space;-webkit-line-break: after-white-space'>
<div class=Section1>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Hi all,<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Is there a way in Valentina to retrieve a Select Query Record
Set straight into an array?<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>I’ve got a static recordset of about 750 records that I
need to loop thru about 1000 times.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>So instead of reading the db 750,000 times or looping thru the
recordset 1000 times,<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>I thought moving the data into an array would be faster.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Would looping thru an array be faster?<br>
Or is looping thru vCursor just another type of an array? <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>At the moment I only need 3 fields: RecID, SequenceID, and
EvenName.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Thanks,<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> Barry G. Sumpter<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<div>
<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>From:</span></b><span
style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>
valentina-bounces@lists.macserve.net
[mailto:valentina-bounces@lists.macserve.net] <b>On Behalf Of </b>Barry G.
Sumpter<br>
<b>Sent:</b> Sunday, 13 September 2009 6:09 AM<br>
<b>To:</b> 'Valentina Developers'<br>
<b>Subject:</b> RE: Progress being made - need more help.<o:p></o:p></span></p>
</div>
</div>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>This was to show how to pull your data in from a db record for
optimistic editing.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>The next was going to show how to update but it looks like
you’ve already sorted it out.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<div>
<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>From:</span></b><span
style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>
valentina-bounces@lists.macserve.net
[mailto:valentina-bounces@lists.macserve.net] <b>On Behalf Of </b>Greg
Olson-Hyde<br>
<b>Sent:</b> Saturday, 12 September 2009 7:31 PM<br>
<b>To:</b> Valentina Developers<br>
<b>Subject:</b> Re: Progress being made - need more help.<o:p></o:p></span></p>
</div>
</div>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>Hi Barry,<o:p></o:p></p>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Sorry to be so thick, but I just don't understand your code.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Greg<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
<div>
<div>
<p class=MsoNormal>On 12/09/2009, at 5:24 PM, Barry G. Sumpter wrote:<o:p></o:p></p>
</div>
<p class=MsoNormal style='margin-bottom:12.0pt'><o:p> </o:p></p>
<p class=MsoNormal><span class=apple-style-span><span style='font-size:13.5pt;
font-family:"Helvetica","sans-serif";color:black'> while
vCurs.NextRecord_ODBC</span></span><span style='font-size:13.5pt;font-family:
"Helvetica","sans-serif";color:black'><br>
<br>
<br>
<span class=apple-style-span> 'intCntr = intCntr + 1</span><br>
<span class=apple-style-span> 'arrayList.AddRow cstr(intCntr)
+ ") " + mRS.StringField(1).GetString +</span><br>
<span class=apple-style-span>mRS.StringField(2).GetString</span><br>
<br>
<span class=apple-style-span> 'msgbox
vCurs.StringField(2).Name</span><br>
<span class=apple-style-span> RecID =
val(vCurs.StringField("RecID").getString)</span><br>
<span class=apple-style-span> TabName
=(vCurs.VarCharField("TabName").getString)</span><br>
<span class=apple-style-span> Heading =
(vCurs.VarCharField("Heading").getString)</span><br>
<span class=apple-style-span> Prompt =
(vCurs.VarCharField("Prompt").getString)</span><br>
<span class=apple-style-span> Sequence =
(vCurs.VarCharField("Sequence").getString)</span><br>
<span class=apple-style-span> maxLength =
(vCurs.VarCharField("maxLength").getString)</span><br>
<span class=apple-style-span> Adjust =
(vCurs.VarCharField("Adjust").getString)</span><br>
<span class=apple-style-span> Bold =
(vCurs.VarCharField("Bold").getString)</span><br>
<span class=apple-style-span> MultiSelect =
(vCurs.VarCharField("MultiSelect").getString)</span><br>
<span class=apple-style-span> multiSelectPrompt =
(vCurs.VarCharField("multiSelectPrompt").getString)</span><br>
<br>
<span class=apple-style-span> .....</span><span
class=apple-converted-space> </span><br>
<br>
<span class=apple-tab-span>
</span><span class=apple-style-span>'Do something</span><br>
<span class=apple-style-span> .....</span><br>
<span class=apple-style-span>Wend</span><br>
<br>
<br>
<br>
<span class=apple-style-span>-----Original Message-----</span><br>
<span class=apple-style-span>From:</span><span class=apple-converted-space> </span><span
class=apple-style-span><a href="mailto:valentina-bounces@lists.macserve.net">valentina-bounces@lists.macserve.net</a></span><br>
<span class=apple-style-span>[<a
href="mailto:valentina-bounces@lists.macserve.net">mailto:valentina-bounces@lists.macserve.net</a>]
On Behalf Of Greg Olson-Hyde</span><br>
<span class=apple-style-span>Sent: Saturday, 12 September 2009 4:37 PM</span><br>
<span class=apple-style-span>To: Valentina Developers</span><br>
<span class=apple-style-span>Subject: Progress being made - need more help.</span><br>
<br>
<span class=apple-style-span>Hi All,</span><br>
<br>
<span class=apple-style-span>First up, thanks to everyone who has helped me so
far. When attempting </span><br>
<span class=apple-style-span>to compile my app using Valentina, I have managed
to get the errors </span><br>
<span class=apple-style-span>down from 747, to 157 - a great sense of
satisfaction - due to the </span><br>
<span class=apple-style-span>help offered by you all.</span><br>
<br>
<span class=apple-style-span>The next step for me is to understand how to deal
with with the cursor </span><br>
<span class=apple-style-span>regarding records. The following are what I use in
SQLite but don't </span><br>
<span class=apple-style-span>seem to have equivalents in Valentina:</span><br>
<br>
<span class=apple-style-span>RecordSet.Edit</span><br>
<br>
<span class=apple-style-span>RecordSet.InsertRecord</span><br>
<br>
<span class=apple-style-span>RecordSet.Commit - Is UpdateRecord the same as
Commit?</span><br>
<br>
<span class=apple-style-span>From what I have read Valentina does not deal with
VCursor in the </span><br>
<span class=apple-style-span>same way as SQLite deals with a RecordSet in RB -
but I can't figure </span><br>
<span class=apple-style-span>out how!</span></span><o:p></o:p></p>
</div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
</div>
</body>
</html>