Semplice traduzione da JScript a VBscript

[Diddlina]

Ho questo codice:

<%@LANGUAGE = JScript%>
<%
    var Cn = Server.CreateObject("ADODB.Connection");
    Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("database.mdb"));

    var Rs = Server.CreateObject("ADODB.Recordset");
    Rs.Open("SELECT * FROM TabTest", Cn, 1);

    for (var i=0; i<Rs.Fields.Count; i++)
    {
        Response.Write(Rs.Fields(i).Name + "
");
    }

    Rs.Close();
    Cn.Close();
%>

'traducendolo' in VBScript, così:

...
Set ObjRS = Server.CreateObject("ADODB.Recordset")
StrSQL = "SELECT * FROM Tab1"
	ObjRS.Open StrSQL, ObjConn, adOpenStatic, adLockReadOnly, adCmdText	
	response.Write("N° campi: "&ObjRS.Fields.Count&"
") 
	For i = 0 To ObjRS.Fields.Count
		Response.Write(ObjRS.Fields(i).Name & "
")
		i = i + 1
	Next 
ObjRS.Close
Set ObjRS = Nothing
...

ottengo l'elenco dei campi uno sì e l'altro no. Sbaglio l'incremento?

[X_Gold*]

Originariamente inviato da Diddlina
Ho questo codice:

<%@LANGUAGE = JScript%>
<%
    var Cn = Server.CreateObject("ADODB.Connection");
    Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("database.mdb"));

    var Rs = Server.CreateObject("ADODB.Recordset");
    Rs.Open("SELECT * FROM TabTest", Cn, 1);

    for (var i=0; i<Rs.Fields.Count; i++)
    {
        Response.Write(Rs.Fields(i).Name + "
");
    }

    Rs.Close();
    Cn.Close();
%>

'traducendolo' in VBScript, così:

...
Set ObjRS = Server.CreateObject("ADODB.Recordset")
StrSQL = "SELECT * FROM Tab1"
	ObjRS.Open StrSQL, ObjConn, adOpenStatic, adLockReadOnly, adCmdText	
	response.Write("N° campi: "&ObjRS.Fields.Count&"
") 
	For i = 0 To ObjRS.Fields.Count
		Response.Write(ObjRS.Fields(i).Name & "
")
		i = i + 1
	Next 
ObjRS.Close
Set ObjRS = Nothing
...

ottengo l'elenco dei campi uno sì e l'altro no. Sbaglio l'incremento?

Set ObjRS = Server.CreateObject("ADODB.Recordset")
StrSQL = "SELECT * FROM Tab1"
	ObjRS.Open StrSQL, ObjConn, adOpenStatic, adLockReadOnly, adCmdText	
	response.Write("N° campi: "&ObjRS.Fields.Count&"
") 
	For i = 0 To ObjRS.Fields.Count
		Response.Write(ObjRS.Fields(i).Name & "
")
	Next 
ObjRS.Close
Set ObjRS = Nothing

i cicli for si incrementano da soli

[Diddlina]

Ciao,

così facendo ottengo questo errore:

ADODB.Recordset (0x800A0CC1)
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto.


La riga è
Response.Write(ObjRS.Fields(i).Name & "
")

[Diddlina]

RISOLTO!!!


Ci andava un -1 dopo il Count.

C*****