Newsgroup: it.comp.lang.visual-basic
Titolo: cosa mi succede?

Forse sono OT ma il moderatore di comp.www.asp non me lo posta per cui
chiedo a qualcuno di vuoi se e' in grado di aiutarmi in quanto non riesco
piu' a lavorare:
ho cercato e letto tutto il pomeriggio per cui chiedo a qualcuno se ha una
soluzione. ho letto anche nelle faq consigliate dal moderatore di aspitalia
ma senza successo.
Grazie per l'aiuto.
Ho eseguito una connessione con db access di questo tipo:
ProviderString ="Provider=Microsoft.Jet.OLEDB.4.0;Password="""";Data
Source=c:\inetpub\wwwroot\mdb-dababase\database.mdb;Persist Security
Info=True" Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ProviderString
e mi ritorna questo errore:
Tipo di errore:
Microsoft JET Database Engine (0x80004005)
Errore non specificato.
/mdb-database/provadb.asp, line 10
oppure anche questo:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Driver ODBC Microsoft Access]Errore generale. Impossibile aprire
la chiave 'Temporary (volatile) Jet DSN for process 0x7f4 Thread 0x87c DBC
0x1634024 Jet' del Registro di sistema.
Grazie! e spero di ricambiare in futuro
Beppe

 Conn.Open ProviderString
Intanto metti a capo set conn
poi non vedo nel codice che hai postato la dichiarazione di conn.
Hai fatto una dichiarazione implicita con il metodo new?
Una cosa del tipo
dim conn as new adodb.connection? oppure dim conn as adodb.connection?
Ciao
AndreA

 Forse sono OT ma il moderatore di comp.www.asp non me lo posta per cui
sempre i soliti....ora è anche caduta la preclusione ai server TIN
quindi.....
cmq
... io faccio così
dim Cn
Dim MM_CnAccessi_STRING
set cn= Server.CreateObject("ADODB.Connection")

 sempre i soliti....ora è anche caduta la preclusione ai server TIN
CUT
Scusa è scappato l'invio!
ti posto una pagina di controllo dell'accesso utente(cha fa uso di cookies)
<%@LANGUAGE="VBSCRIPT" %>
<html>
<%
Dim MM_CnAccessi_STRING
MM_CnAccessi_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&
Server.MapPath("..\..\database\Accessi.mdb")& "; "
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4%>
<%
Function ApreTabella(Tsql,Modo)
 dim Cn
 dim Rs
 set Cn= Server.CreateObject("ADODB.Connection")
 set Rs= Server.CreateObject("ADODB.Recordset")
 cn.ConnectionString = MM_CnAccessi_STRING
 cn.open
if tsql="" then exit function
 select case cint(modo)
  case 1
  'read Only
  rs.Open Tsql,Cn,adopenstatic,adlockreadonly
  if not rs.bof then
  rs.movefirst
  'rs.close
  'cn.Close
  end if
 end select
 set apretabella=rs
End function
%>
<head>
<%
'Validazione del login
'Emissione del cookies
dim tUSR
dim tPW
dim Tsql
tUSR=request.Form("LoginUSR")
tPW=request.Form("LoginPW")
response.Cookies("Epass")="nopass"
tsql="SELECT * FROM Amministratori WHERE (Usr='" & trim(Tusr) & "'"
tsql=tsql & " AND Pw='" & trim(tPW) & "' )"
%>
<title>Controllo abilitazione utente</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#000000" text="#33FF33" link="#FF0000" vlink="#FF6600"
alink="#FF0000">
<p>&nbsp;</p>
<p>&nbsp;</p>
<%
dim Prs
set prs=ApreTabella(tsql,1)
if prs.bof then
'Nome non trovato
response.Cookies("Epass")="NoPass"
 response.Write("<center> ACCESSO NON CONSENTITO <br>")
 response.write "<a Href=""../../Html/login.htm"">Clicca qui per riprovare
</a>"
 response.Write("</center>")
else
'Nome admin trovato...Per Debug!
' do
'  response.write "Admin: " & prs("USR")& " - "
'  response.write "PW: "&  prs("PW")& "<br>"
'  prs.movenext
' loop until prs.eof
'
 response.Cookies("Epass")="Pass"
 response.Write("<center> ACCESSO CONSENTITO <br>")
 response.write "<a Href=""Pannello1.asp"">Clicca qui per accedere al
pannello di comando </a>"
 response.Write("</center>")
end if
 %>
</body>
</html>
funziona su tutti i provider (....anche su Aruba)
Se lo stati testando sul tuo pc....beh non hai i permessi di scrittura sulla
dir dove hai messo il database!
Se sei con XPpro ...devi andare a tentativi...e non mi ricodo che settare e
dove....da qualche parte hai "gestione cartelle classica" o qualcosa del
genere....deve settarla (in pratica riporti la gestione delle cartelle a
come la facevano i vecchi win) e da li settare Read e Write la cartella dove
c'è l'MDB!
bye man!

 ha scritto nel messaggio
news:HGkG9.14538$fa.4...@news1.tin.it...
