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.
