[RESOLVED]problem passing arguments from access to vbs

[NJman]

hi everyone,

I want to use vb scripts to execute query in database access. In the database, I have a combo box for user to select a customer as a condition for the query. I have a problem to pass the selection from the database as arguement to vb script. Here is my code:

code in database:
Private Sub Command82_Click()

If dropdown.ItemData(dropdown.ListIndex) <> vbNullString Then
Dim selectCustomer As String
selectCustomer = CStr(dropdown.ItemData(dropdownReprice.ListIndex))

ShellWait ("wscript D:\SHUT_DOWN_CUSTOMER.vbs")

Else
MsgBox "Please select a Customer"

End If

End Sub


code in vbs:
Dim arg
arg = selectCustomer

SHUT_DOWN = "UPDATE Main SET Enabled = 0 WHERE Enabled = 1 And Customer = '" & arg & "'"

set cl = db.Execute(SHUT_DOWN)

How can pass an arguement as selectCustomer to vb script?

Thanks

[westconn1]

i guess you pass the argument with the script
ShellWait ("wscript D:\SHUT_DOWN_CUSTOMER.vbs" selectcustomer)
if the string could contain spaces it would need to be enclosed in quotes
ShellWait ("wscript D:\SHUT_DOWN_CUSTOMER.vbs" """" & selectcustomer & """")

in the script
arg = wscript.arguments()

i have not tested this

[NJman]

hi Pete,

Thanks for your help, I got it work. However, I had to add the arguments(selectCustomer) in the script to make it work.

It still doesn't work if the string contains spaces
ShellWait ("wscript D:\SHUT_DOWN_CUSTOMER.vbs" """" & selectcustomer & """")

It works only for string has no space in it.
I still have to think how can it work for string includes space in it.

[westconn1]

i tested this from excel i don't know what you are using for shellwait, so i just use shell

selectcustomer = """" & "pete hall" & """"
ret = Shell("wscript.exe ""C:\Documents and Settings\peter\My Documents\basic\vbs\scrtest.vbs"" " & selectcustomer, vbNormalNoFocus)

arg = wscript.arguments(0)
wscript.echo arg

[NJman]

Thanks Pete. It works