sto impazzendo

[techno]

Raga aiutatemi xchè sto impazzendo. VVoVe:

Questo è il code:

Set rec= server.createobject("ADODB.Recordset")
rec.Open ("Select * From magazzino Where Occasioni='SI'"), conn, 1, 1
if rec.recordcount> 0 then
Dim ciclo
ciclo= 0
Do While Not (ciclo= 5) And Not (rec.eof)
ciclo= ciclo + 1

mi dà questo errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Il driver ODBC non supporta le proprietà richieste.

la riga è la seguente:
rec.Open ("Select * From magazzino Where Occasioni='SI'"), conn, 1, 1

[X_Gold*]

prova con :

rec.Open "magazzino Where Occasioni='SI'", conn, 3, 3

[techno]

Ho provato anche così e mi dà questo errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.

Sulla stessa riga.

[X_Gold*]

Originariamente inviato da techno
Ho provato anche così e mi dà questo errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.

Sulla stessa riga.

cioe' hai provato sia con 3,3 sia a scrivere "magazzino Where Occasioni='SI'" ?



prova a postare tutto il cod.

[techno]

Questo è il code con (1, 1):
Set rec= server.createobject("ADODB.Recordset")
rec.Open ("Select * From magazzino Where Occasioni='SI'"), conn, 1, 1
if rec.recordcount> 0 then
Dim ciclo
ciclo= 0
Do While Not (ciclo= 5) And Not (rec.eof)
ciclo= ciclo + 1

Questo è con (3, 3)
Set rec= server.createobject("ADODB.Recordset")
rec.Open ("Select * From magazzino Where Occasioni='SI'"), conn, 3, 3
if rec.recordcount> 0 then
Dim ciclo
ciclo= 0
Do While Not (ciclo= 5) And Not (rec.eof)
ciclo= ciclo + 1

[teorema55]

L'errore è altrove. Il ciclo che hai postato all'inizio, a patto che termini con

loop

funziona...anche con il cursore che avevi impostato tu (1,1)

[X_Gold*]

Originariamente inviato da techno
Questo è il code con (1, 1):
Set rec= server.createobject("ADODB.Recordset")
rec.Open ("Select * From magazzino Where Occasioni='SI'"), conn, 1, 1
if rec.recordcount> 0 then
Dim ciclo
ciclo= 0
Do While Not (ciclo= 5) And Not (rec.eof)
ciclo= ciclo + 1

Questo è con (3, 3)
Set rec= server.createobject("ADODB.Recordset")
rec.Open ("Select * From magazzino Where Occasioni='SI'"), conn, 3, 3
if rec.recordcount> 0 then
Dim ciclo
ciclo= 0
Do While Not (ciclo= 5) And Not (rec.eof)
ciclo= ciclo + 1

Set rec= server.createobject("ADODB.Recordset") 
rec.Open "magazzino Where Occasioni='SI'", conn, 3, 3 
if rec.recordcount> 0 then 
Dim ciclo 
ciclo= 0 
Do While Not (ciclo= 5) And Not (rec.eof) 
ciclo= ciclo + 1

cosi' non hai provato ?

[techno]

SCUSA MA COSA DICI E L'ISTRUZIONE SELECT

lo sai che senza da errore!!!

[X_Gold*]

Originariamente inviato da techno
SCUSA MA COSA DICI E L'ISTRUZIONE SELECT

lo sai che senza da errore!!!

ne sei certo

hai provato ?

[techno]

Ciao teorema55 c'è anche il loop questo è il code al completo:

Set rec= server.createobject("ADODB.Recordset")
rec.Open ("Select * From magazzino Where OCCASIONI='SI'"), conn, 3, 3
if rec.recordcount> 0 then
Dim ciclo
ciclo= 0
Do While Not (ciclo= 5) And Not (rec.eof)
ciclo= ciclo + 1
Response.Write rec.fields("Articoli")
rec.moveNext
Loop
end if
rec.close
set rec= nothing