Agruments are of the wrong type, etc. error

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Agruments are of the wrong type, etc. error

Logged in as: Guest

arrSession:exec spGetSession 2,2,37965

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Agruments are of the wrong type, etc. error
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Agruments are of the wrong type, etc. error - 9/21/2006 2:59:41 AM

user_s

Posts: 16
Score: 0
Joined: 9/13/2006
Status: offline

I get the following error with below problem code:
"Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another."



For testing purposes I've simplified temp_Output.txt to this:



But when I try to search using:


I get the above mentioned error.

Schema.ini looks like:



Thank you in advance for any insight.

Post #: 1

RE: Agruments are of the wrong type, etc. error - 9/21/2006 3:26:34 AM

ebgreen

Posts: 5246
Score: 31
Joined: 7/12/2005
Status: offline

quote:

But when I try to search using:
<input type="text" name="SymbolZ" value="" size="3" maxlength="3">

I don't understand? Do you mean when you enter a search value into the text field you get an error?

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to user_s)

Post #: 2

RE: Agruments are of the wrong type, etc. error - 9/21/2006 3:28:02 AM

ebgreen

Posts: 5246
Score: 31
Joined: 7/12/2005
Status: offline

Also, what specific line gives you the error?

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to ebgreen)

Post #: 3

RE: Agruments are of the wrong type, etc. error - 9/21/2006 3:57:11 AM

user_s

Posts: 16
Score: 0
Joined: 9/13/2006
Status: offline

Sorry for not being clearer.

The following line:

objRecordSet.Filter = "OptionZ=" & strHolder & ""

Gives me:
"Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another."
Char 1, Code 0 error

Thanks.

(in reply to ebgreen)

Post #: 4

RE: Agruments are of the wrong type, etc. error - 9/21/2006 3:59:42 AM

ebgreen

Posts: 5246
Score: 31
Joined: 7/12/2005
Status: offline

Right above that line put this and verify that you see what you think you should:

MsgBox strHolder

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to user_s)

Post #: 5

RE: Agruments are of the wrong type, etc. error - 9/21/2006 4:23:41 AM

user_s

Posts: 16
Score: 0
Joined: 9/13/2006
Status: offline

Yup, absolutely.

Here's code in entirely (for local testing purposes) [3 files]

[test.hta]

<html><head>
<title></title>
<SCRIPT LANGUAGE="JScript">
function myClose() {
   close();}
</SCRIPT>

<SCRIPT language="VBScript">
<!--
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")

Sub mainfun
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
strPathtoTextFile = "C:\temp\"
strConn = "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DefaultDir=C:\Temp;"
strHolder = CStr(SymbolZ.Value)
strFile = "temp_Output3.txt"
strSQL = "SELECT * FROM [" & strFile & "]"

objRecordset.Open strSQL, strConn, adOpenStatic, adLockOptimistic, adCmdText
objRecordSet.MoveFirst
MsgBox strHolder
objRecordSet.Filter = "OptionZ=" & strHolder & ""
Set oSpan = document.getelementbyid("DataArea")
Set oTable = document.CreateElement("TABLE")
oSpan.AppendChild(oTable)
oTable.border="1"

Do Until objRecordset.EOF
  Set oRow = oTable.InsertRow()
  Set oCell = oRow.InsertCell()
  oCell.InnerHTML = "<td>Option UL: " & objRecordset.Fields.Item("OptionZ") & "</td><"
       objRecordset.MoveNext
Loop
End Sub
-->
</SCRIPT>

<hta:application 
  id="AMF_Reader"
  applicationName="AMF Reader"
  border="thin"
  borderStyle="sunken"
  caption="yes"
  contextMenu="yes"
  icon="c:\temp\AMFreader.ico"
  innerBorder="no"
  maximizeButton="yes"
  minimizeButton="yes"
  navigable="yes"
  scroll="yes"
  scrollFlat="no"
  selection="yes"
  showInTaskBar="yes"
  singleInstance="yes"
  sysMenu="yes"
  version="0.2"
  windowState="maximize"
>
</head><body>
<input type="text" name="SymbolZ" value="" size="3" maxlength="3">
<BUTTON onclick="mainfun();">test</BUTTON>
<br><br><span id=DataArea></span>
</body></html>

[temp_Output3.txt]



[Schema.ini]



Thanks again.

(in reply to ebgreen)

Post #: 6

RE: Agruments are of the wrong type, etc. error - 9/21/2006 4:35:47 AM

ebgreen

Posts: 5246
Score: 31
Joined: 7/12/2005
Status: offline

You have missing 's in the filter string. Change this line:

objRecordSet.Filter = "OptionZ=" & strHolder & ""

to this:

objRecordSet.Filter = "OptionZ='" & strHolder & "'"

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to user_s)