Grazie Daviduccio, dovrebbe essere questa roba qui:
http://vademecum.aruba.it/start/dsn_less/
Cmq mi sembra = al metodo ke ho sempre usato!
Quindi possiamo cominciare ad illuminare il nostro caro gae2777
su come ci si connette al db e si estrapolano i dati
Si comincia con la striga x la connessione al db ke dovrai utilizzare ogni volta ke vuoi utilizzarlo sia x estrapolare i dati ke per salvarli ecc...:
-----------------------------------------
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb-database/database.mdb")
%>
------------------------------------------------
Proseguiamo con l'interrogare il db ed estrapolare i dati:
-------------------------------------------------------
<%
Dim QueryCat, RsCat
QueryCat = "select * from NOME_TUA_TABELLA order by ID"
Set RsCat = Server.CreateObject("ADODB.Recordset")
RsCat.Open QueryCat, Conn, 3, 3
'Se il numero dei Records non è zero...
if NOT RsCat.RecordCount = 0 then
'...Procedo all'estrazione di tutti dati nel DB usando il ciclo While
Do While NOT RsCat.EOF
response.write"Primo dato: " & RsCat("nomecampo1")& "<br>Secondo dato: " & RsCat("nomecampo2")& "<br>ecc..."
RsCat.MoveNext
Loop
'ovviamente RsCat(nomecampo1) tirerà fuori i dati del
'campo "nomecampo1" che tu hai creato nella tua tabella ke io
'ho kiamato "NOME_TUA_TABELLA", "RsCat(nomecampo2)"
'tirerà fuori i dati del campo "nomecampo2" ecc...
'Se invece il numero di records è zero stampo a video un messaggio
else
response.write "Spiacente...nessun dato nel database..."
End If
'Chiudiamo il recordset
RsCat.Close
set RsCat = Nothing
'Chiudiamo la connessione al db
Conn.Close
set Conn = Nothing
%>
Se sei pratico di html e hai capito un po' il concetto non dovresti trovare difficoltà a cambiare le parti ke a te interessano...come il nome della tabella e dei campi ke hai assegnato ad essa.
Facci sapere!
