21 messaggi dal 29 settembre 2005
Ho sostituito con:
rds_CERCA.Open sql_CERCA, strConn ,3,3 ' <- connessione

però non funziona da questo errore:
[Microsoft][Driver ODBC Microsoft Access] Troppe attività di tipo client.

cmq la mia connessione è così:
<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("database/database.mdb")
Conn.Open strConn
%>

quindi non so come fare...perfavore se hai qualche altro consiglio rispondimi.....

ciao e grazie,
Marco
3.121 messaggi dal 29 ottobre 2001
Contributi | Blog
Dunque... utilizza questo codice:
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open(conn) ' conn è la strina di connessione
for k=1 to j 'j è la dimensione dell'array
sql_UPDATE= "INSERT INTO FILES
(TITOLO,FILE,DIMENSIONE,TIPO,ID_ZONE)VALUES('" & nome(k-1) & "','" &
nome(k-1) & "','" & dimensione(k-1) &"','" &tipo(k-1) & "'," & ID_ZONA &
")"
objConn.execute(sql_UPDATE)
next
'

sql_CERCA= "SELECT * from FILES where FILE='" & strFile.name & "'"Set
rds_CERCA = Server.CreateObject("ADODB.Recordset")
rds_CERCA.LockType = 3
rds_CERCA.CursorType = 3
rds_CERCA=objConn.Execute(sql_CERCA)
if (rds_CERCA.recordcount=0) and (Right(strFile.name, Len(".db")) <>
".db")then
nome(j)=strFile.name
dimensione(j)=strFile.Size
strEstensione = GetFileExtension(strFile.name)
tipo(j)=strEstensione
j=j+1
end if
set rds_CERCA = Nothing
Next

'
objConn.Close()
set objConn=nothing


L'ho fatto senza testare, controlla eventuali inesattezze.

Ciao
21 messaggi dal 29 settembre 2005
Scusa ma non funziona...

For Each strFile in objFiles
sql_CERCA= "SELECT * from FILES where FILE='" & strFile.name & "'"
Set rds_CERCA = Server.CreateObject("ADODB.Recordset")
rds_CERCA.LockType = 3
rds_CERCA.CursorType = 3
rds_CERCA=objConn.Execute(sql_CERCA)
if (rds_CERCA("ID")<>0) and (Right(strFile.name, Len(".db")) <> ".db") then
nome(j)=strFile.name
dimensione(j)=strFile.Size
strEstensione = GetFileExtension(strFile.name)
tipo(j)=strEstensione
j=j+1
end if

Set rds_CERCA=Nothing
Next

Ho dovuto mettere la condizione rds_CERCA("ID")<>0, pero' mi da l'errore: error '80020009'

Mentre se uso rds_CERCA.recordcount mi da l'errore: Proprietà o metodo non supportati dall'oggetto: 'rds_CERCA.recordcount'

Comunque non capisco perchè non scrivi il ciclo for e perchè ogni volta che mi dai la spiegazione metti prima il vecchio post:

Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open(conn) ' conn è la strina di connessione
for k=1 to j 'j è la dimensione dell'array
sql_UPDATE= "INSERT INTO FILES
(TITOLO,FILE,DIMENSIONE,TIPO,ID_ZONE)VALUES('" & nome(k-1) & "','" &
nome(k-1) & "','" & dimensione(k-1) &"','" &tipo(k-1) & "'," & ID_ZONA &
")"
objConn.execute(sql_UPDATE)
next
'

...perchè quello si trova molto più avanti, quasi alla fine della pagina....quindi non credo che centri con questo...

...arrivato a questo punto non so + cosa fare, non ce altro modo?


Marco
3.121 messaggi dal 29 ottobre 2001
Contributi | Blog
Ops, scusami. Hai ragione, prendevo sempre il codice del primo esempio.
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open(conn)
For Each strFile in objFiles
sql_CERCA= "SELECT * from FILES where FILE='" & strFile.name & "'"set rds_CERCA=objconn.Execute(sql_CERCA)
if (rds_CERCA.eof) and (Right(strFile.name, Len(".db")) <> ".db") thennome(j)=strFile.name
dimensione(j)=strFile.Size
strEstensione = GetFileExtension(strFile.name)
tipo(j)=strEstensione
j=j+1
end if
set rds_CERCA = Nothing
Next
objConn.Close
set objConn=null

Quindi puoi usare la tecnica di inserimento di inzio thread.
Ciao
21 messaggi dal 29 settembre 2005
Adesso funziona, grazie tanteee....
...un'ultima cosa, se non ti secchi a rispondere, avresti un buon libro su ASP (no .NET) da consigliarmi???


Grazie del tuo preziosissimo aiuto
Marco
3.121 messaggi dal 29 ottobre 2001
Contributi | Blog
alisp <alisp> ha scritto:
Adesso funziona, grazie tanteee....
..un'ultima cosa, se non ti secchi a rispondere, avresti un buon libro su ASP (no .NET) da consigliarmi???

http://store.aspitalia.com/scheda.asp?codice=255


Grazie del tuo preziosissimo aiuto
Marco

Prego, scusa la confusione di codice

Ciao
andrewz [MVP] wrote:
http://store.aspitalia.com/scheda.asp?codice=255

grazie per la segnalazione, ma è fuori stampa da almeno 3 anni ormai.tutte e 3000 le copie esaurite, per fortuna

Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
21 messaggi dal 29 settembre 2005
...e allora quale altro libro mi consigliate...anche un pochino più avanzato ?

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.