Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VBScript Question
Message
 
À
02/06/1999 15:29:38
Raymond Humphrys
Michigan Department of Community Health
Bath, Michigan, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Client/serveur
Divers
Thread ID:
00225044
Message ID:
00225588
Vues:
15
Sure.

>I think I've got this figured out. Do you want the code for this process?
>
>ray
>>I don't understand the question. Could you be more specific?
>>
>>>How would you handle Hospital where hospital may be something like Oakland Osteopathic Hospital. You can;t use a prime.
>>>
>>>
>>>>I sent you an internet email. The UT didn't like the script I had in my message body. Let me know if you don't receive it.
>>>>
>>>>
>>>>>Using SQL 6.5 and developing an ADO recordset on the Server Side and passing it through IIS this is the server side script that populates an array "LocalArray".
>>>>>This array does not seem to accessible on the client side VBScript. How do we make this array accessible from client-side vbscript procedures such as Combo1_OnChange().
>>>>>
>>>>>My problem is i need to populate a combo box based upon a users selection from a different combo box. The values for the second combo box must come from an ado recordset. I thought the way to do this is to create an array on the client side that can be used from a vbscript procedure. My code for creating the array is below.
>>>>>
>>>>><%
>>>>>rsHosp.MoveFirst
>>>>>Dim LocalArray(2, 14)
>>>>>For i = 0 to 14
>>>>> LocalArray(0, i) = rsHosp.fields("occco")
>>>>> LocalArray(1, i) = rsHosp.fields("hosp")
>>>>> LocalArray(2, i) = rsHosp.fields("HospitalName")
>>>>> rsHosp.MoveNext
>>>>>Next
>>>>>'Response.Write LocalArray(2, 5)
>>>>>'Session("ServerArray") = LocalArray
>>>>>%>
>>>>>
>>>>>Then, my code for the combo1_OnChange() event is:
>>>>>
>>>>>sub Combo1_OnChange()
>>>>>dim tmp, hos
>>>>> for i = 0 to 15
>>>>> set oOption = document.createElement("OPTION")
>>>>> tmp = LocalArray(1, i)
>>>>> hos = LocalArray(2, i)
>>>>> oOption.text = hos
>>>>> oOption.value = tmp
>>>>> form.Combo2.add(oOption)
>>>>> next
>>>>>end sub
>>>>>
>>>>>
>>>>>
>>>>>>Why not just use the ADO Recordset to populate the client side combo box?
>>>>>>
>>>>>>>I did not want to take advantage of anyone's largesse by posting a question only tangentially related to VFP. However, if you insist. I need to know how to build a client side array from a SQL server recordset using VBScript. Example, on SQL Server I have a table with 3 columns, a, b, and C. I want to use ADO to build a recordset and pass these data down to a client side array to populate a drop-down combo box. I can hard code the values of a, b, and c into the VBScript, but the rows in the Server side table will constantly change so that is not a good idea.
>>>>>>>
>>>>>>>If this too far afield for this forum just nuke it ...
>>>>>>>
>>>>>>>thanks
>>>>>>>>Why don't you post your VBScript question??? You will probably get your question answered.....correctly..< bg >
>>>>>>>>
>>>>>>>>
>>>>>>>>>Does anyone know of a good VBScript forum like the UT and VFP. I've got a VBScript question.
>>>>>>>>>
>>>>>>>>>thanks
Tim Westmoreland
Software Engineer
Skyline Technologies, Inc.

"Upper classes are a nation's past; the middle class is its future." - Ayn Rand, Russian-born author (1905-1982).
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform