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 :e 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 :r Lessen, men jättetack! :bire
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å :l
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!
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
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!
