Hur visar man information från en databas?

Vi säger att du har en databas som heter db.mdb (Access-databas). I den databasen har du tabellen tbl. I tabellen tbl finns det två kolumner, kolumnerna Id och Namn.

För att med ASP visa info ur databasen kan du köra denna kod:

<%
Dim Cn, Rs, arrRecs, i, Idnr, Namn
Set Cn = Server.CreateObject("ADODB.Connection") 
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")

Set Rs = Cn.Execute("Select Id,Namn From tbl") 

If Rs.EOF Then 
Rs.Close : Set Rs = Nothing 
Cn.Close : Set Cn = Nothing
Response.Write "Inga poster än.." 
 

Else arrRecs = Rs.GetRows() 
Rs.Close : Set Rs = Nothing 
Cn.Close : Set Cn = Nothing 

For i = 0 To UBound(arrRecs,2)
 
Idnr = arrRecs(0,i) 'id-numret
Namn = arrRecs(1,i) 'namn

Response.Write "Id: " & Idnr & "<br>Namn: " & Namn
Next

End If 
%>

Mycket enkel kod, jag använder mig av GetRows() som snabbar upp om det finns många poster i databasen.
Lycka till!

Mycket snällt av dig och det värmer, men jag råkar ha en MySQLdatabas (vilket jag skulle sagt från början, mitt fel)
och behöver då som bekant hämta den med SQL Query Lessen, men jättetack!

En sql query finns ju redan med i koden, du behöver ju bara ändra connectionstringen
från

Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")

till nåt i stil med

Cn.Open "Driver={mySQL};Server=data.domain.com;Port=3306;Option=131072;Stmt=;Database=my-database;Uid=username;Pwd=password;"

Är det verkligen SQLquery?
Visserligen är jag ny på detta, men nog ser det inte ut så
Nåja, men om någon skulle kunna peka ut vad ett par grejer gör så skulle jag vara tacksam:

If Rs.EOF Then 
Rs.Close : Set Rs = Nothing 
Cn.Close : Set Cn = Nothing
Response.Write "Inga poster än.." 
 

Else arrRecs = Rs.GetRows() 
Rs.Close : Set Rs = Nothing 
Cn.Close : Set Cn = Nothing 

For i = 0 To UBound(arrRecs,2)
 
Idnr = arrRecs(0,i) 'id-numret
Namn = arrRecs(1,i) 'namn

Response.Write "Id: " & Idnr & "<br>Namn: " & Namn
Next

Lite frågetecken men jag fattar kanske vad det betyder, lågnt ifrån säker bara.......
Tack!

Set Rs = Cn.Execute("Select Id,Namn From tbl")

Ser du inte sqlqueryn ?
"Select Id,Namn From tbl"

If Rs.EOF Then '// Här kollas om några poster kunde hittas som matchar sql-strängen
'// Om inte några poster kunde hittas sker följande:
 '// Här stängs recordsetet och kopplingen till databasen.
Rs.Close : Set Rs = Nothing 
Cn.Close : Set Cn = Nothing
Response.Write "Inga poster än.." 
 
'//Men om det fanns poster så...
Else arrRecs = Rs.GetRows() '//Fylls arrRecs(som är en array) med de poster som hittades.
 '// Här stängs recordsetet och kopplingen till databasen.
Rs.Close : Set Rs = NothingCn.Close : Set Cn = Nothing 

'//Här loopas alla poster i arrayen ut.
For i = 0 To UBound(arrRecs,2)
 
Idnr = arrRecs(0,i) 'id-numret
Namn = arrRecs(1,i) 'namn

Response.Write "Id: " & Idnr & "<br>Namn: " & Namn
Next

Här har du din förklaring.

Flyttas från SQL

Tack!

Jag kom just på, min rubrik kanske är lite smått felaktig men det här är vad jag menade:
Hur hämtar man information från en mySQLdatabas och lägger den i variabler?
Det är allt jag behöver, det var inte en gästbok jag tänkte på
Tack!

I min kod har jag lagt info från tabellen i två variabler, Idnr och Namn.

Tack!