Import Example

[Chuck Pelto]

Morning (here) Ruslan,

Found the example.

Have a question or two....

In the code segement...

   dim theImportFile as FolderItem
   dim theImportCursor as VCursor
   dim iError as Integer

   theImportCursor = app.mDataBase.SqlSelect(SQLString.Text)

   theImportFile = GetOpenFolderItem("text")
   if theImportFile <> nil then
     theImportCursor.ImportText(theImportFile)

     iError = app.mDatabase.ErrNumber
     eError.Text = str(iError)
     eError.Text = getError(iError)
     'eError.Text = app.mDatabase.ErrString

     if iError = 0 then
       doSQL
     else
       msgBox "Import Failed! (Error " + str(iError) + ")"
     end if
   end if

What is the function of doing the SQLSelect() or a VCursor()? And if I 
wanted to import to all fields in the table, what would I enter for the 
search criteria? [Note: I think I'd rather use the VCursor call, than 
the SQLSelect.]

Regards,

Chuck

On Mar 31, 2005, at 5:47 AM, Ruslan Zasukhin wrote:

> On 3/31/05 2:57 PM, "Chuck Pelto" <cbpelto at pcisys.net> wrote:
>
>> Anybody have a good example of how to employ the ImportText() function
>> in V4RB1?
>
> I think you can find this in viSQL project
>
> -- 
> Best regards,
>
> Ruslan Zasukhin
> VP Engineering and New Technology
> Paradigma Software, Inc
>
> Valentina - Joining Worlds of Information
> http://www.paradigmasoft.com
>
> [I feel the need: the need for speed]
>
>
> _______________________________________________
> Valentina mailing list
> Valentina at lists.macserve.net
> http://lists.macserve.net/mailman/listinfo/valentina
>