i have written a the follwing code in vb script
and it shows the Error “too few parameter expected 1 80040E10
how ever this code when written in VB run smoothly
‘ open database
dim i
dim filename
dim RNO
dim restno
dim f
i=1
Set con = CreateObject(“ADODB.Connection”)
Set cmd = CreateObject(“ADODB.Command”)
set rs = CreateObject(“ADODB.Connection”)
set rst=CreateObject(“ADODB.Connection”)
con.Open “DBQ=C:\iMacro\datasource\testDB.mdb;” & “DRIVER={Microsoft Access Driver (*.mdb)};”
rs.Open(“DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\iMacro\datasource\testDB.mdb”)
rst.Open(“DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\iMacro\datasource\testDB.mdb”)
‘ use SQL to select information
sql = “select * from [iMacros-01]”
set rs = rs.Execute(sql)
do until rs.eof
‘Set the variable
rtno=1
restno=”Mohan Das Karam Chand Gandhi” f = Split(restno, ” “)
If UBound(f) > 4 Then
If LCase(f(5)) = “about” Then
rtNo = f(6)
Else
rtNo = f(5)
End If
Else
rtNo = 0
End If
fname = “#c:\imacro\extract\” & rs.Fields(0) & “+” & rs.Fields(1) & “+” & rs.Fields(2) & “+” & i & “.htm#”
isql = “insert into GoogleQuery values (” & rs.Fields(0) & “,” & Chr(34) & rs.Fields(3) & Chr(34) & “,” & rtNo & “,” & Chr(39) & fname & Chr(39) & “)”
i = i + 1
cmd.CommandText = ISQL
‘cmd.CommandType = adCmdText
Set cmd.ActiveConnection = con
inputbox “”,””,cmd.commandtext
k= cmd.Execute
msgbox(isql)
rs.movenext
loop
iret = iim1.iimDisplay(“Done!”)
iret = iim1.iimExit
WScript.Quit(0)
