Salve, non riesco a far visualizzare il contenuto di un semplice DB.
Con Win 2000 funzionava tutto alla perfezione.
L'errore è:
Connessione aperta con il database: C:\inetpub\wwwroot\Magazzino.mdb
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\Magazzino.mdb;Persist Security Info=False
Microsoft JET Database Engine error '80004005'
Errore non specificato.
/primodb.asp, line 23
dove line 23 è:
cn.Open strcn
strcn è:
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBase & ";Persist Security Info=False"
Il codice completo è
<%@ Language=VBScript %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>Interrogazione di un Data Base</TITLE>
</HEAD>
<BODY>
<%
Dim cn, rs, strcn, strSQL, DataBase
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
DataBase = Server.mapPath ("Magazzino.mdb")
Response.Write "Connessione aperta con il database: " & DataBase & "
"
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBase & ";Persist Security Info=False"
strSQL = "SELECT codice, descr, prezzo FROM articoli ORDER BY codice"
Response.Write strcn & "
"
cn.Open strcn
rs.Open strSQL, cn
If Not rs.EOF Then
Do While Not rs.EOF
Response.Write(rs.Fields("Codice").Value & " - " & rs.Fields("Descr").Value & " - " & rs.Fields("Prezzo").Value& "
")
rs.MoveNext
Loop
Else
Response.Write("Nessun record trovato ...")
End If
rs.Close
cn.Close
%>
</BODY>
</HTML>
Rispondi quotando
