also make sure you have the WDDX type lib checked in references...
~J
----- Original Message -----
From: Kris Marwood <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, July 04, 2000 11:28 AM
Subject: Bug in VB example provided with Forta's advanced book?
> Has anyone had any trouble running the A2Z bookstore WDDX / Visual Basic
> demonstration app from Ben Forta's advanced CF book? (page 380 - the code
I
> used was not included on the CD and was downloaded from forta.com) I've
just
> installed Visual Basic Pro yesterday and I'm trying to run the VB file Ben
> provides (A2Z Client.vbp), but I keep getting the following error when I
> start the program:
>
> "run-time error 5 - Invalid procedure or call in argument" which points
to
> the following code:
>
> For Count = 1 To StoresRS.getRowCount
> cboStores.AddItem (StoresRS.getField(Count, "NAME")) ' this is the
> line in question
> Next Count
>
> I can get the WDDX packet from the bookrobot.cfm robot into VB without a
> problem, but the above code is giving me trouble. I have set up the
> MSinet.ocx && allaire WDDX COM objects etc but I still get the error. Does
> anyone know what could be going wrong with Forta's code? The following is
> the function where the code is that is generating the runtime error.
>
> ' This executes when the application first starts up.
> ' It fetches current list of stores from CFM-based Store Robot.
> Private Sub GetStores()
> Dim strURL As String, Count As Integer
>
> ' Fetch WDDX Packet of data from Store Robot
> MyXML = Inet1.OpenURL("http://127.0.0.1/robots/BookRobot.cfm")
>
> ' Deserialize the packet into a recordset
> Set StoresRS = MyDeser.deserialize(MyXML)
>
> storesList.Text = MyXML
>
> If MyXML <> "" Then
> MsgBox ("WDDX Packet Successfully retrieved from " & RobotServer &
"!")
> End If
>
> ' Clear the current entries from ListBox
> cboStores.Clear
>
> ' Loop through the rows of the recordset
> ' For each row, add an item to the ListBox
> For Count = 1 To StoresRS.getRowCount
> cboStores.AddItem (StoresRS.getField(Count, "NAME"))
> Next Count
>
>
> ' Select the first item in the ListBox
> cboStores.ListIndex = 0
>
> End Sub
>
> Any help would be much appreciated....
>
> Kris Marwood
> Technical Manager
> Reaction Media Group
> [EMAIL PROTECTED]
> www.reactionmedia.com.au
>
> Web Development + e-Commerce + Multimedia
>
>
>
> --------------------------------------------------------------------------
----
> Archives: http://www.eGroups.com/list/cf-talk
> To Unsubscribe visit
http://www.houseoffusion.com/index.cfm?sidebar=lists&body=lists/cf_talk or
send a message to [EMAIL PROTECTED] with 'unsubscribe' in
the body.
>
>
------------------------------------------------------------------------------
Archives: http://www.eGroups.com/list/cf-talk
To Unsubscribe visit
http://www.houseoffusion.com/index.cfm?sidebar=lists&body=lists/cf_talk or send a
message to [EMAIL PROTECTED] with 'unsubscribe' in the body.
