Hallo mensen,
Enige tijd geleden heb ik mij eens verdiept in ASP in combinatie met een access database. Na lang zoeken proberen, heb ik alles aan het werken gekregen, en kon zelfs "online" records toevoegen en verwijderen enz... allemaal prima, maar.....
Onlangs heeft microsoft de "gratis" SQL 2005 Server op de markt gebracht. ik heb deze gedownload, en ben me hier in gaan verdiepen. Heb een database aangemaakt, tabellen en records toegevoegd. maar nu wilde ik de database uitlezen in een ASP pagina. ben dus wederom gaan googlen, heb dan ook veel gevonden, en heeeelllllll veel verschillede mogelijkheden! maar ik krijg niks aan het werken? mogelijk ligt het gewoon aan mij, of ik heb te lang zitten te zoeken zodat ik het gewoon niet meer zie?
Mijn vraag hoe kan ik de onderstaande code omtoveren naar een SQL Server 2005 verbinding?
<html><head><title>Klanten tabel</title></head><body>
<%
' Declareer de variabele voor de connectiestring (StringConnectie -> strCon)
Dim strCon
' Zet de connectiestring in de variabele. Hier is dit dus een ODBC connectie.
accessDB = server.mappath("/voorbeeld/voorbeeld.mdb")
strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strCon = strCon & accessDB & ";"
' Maak een serverobject aan voor de connectie (ObjectConnectie -> objCon)
Dim objCon
Set objCon = Server.CreateObject ( "ADODB.Connection" )
' Open de verbinding met de database. Voor objCon wordt er een
' verbinding geopend met opgegeven database.
objCon.Open strCon
' De SQL query om de gegevens uit de database te halen.
SQL = "SELECT * FROM klanten"
' Plaats de gegevens van de SQL Query in de recordset objRec.
set objRec = objCon.execute(SQL)
%>
<table border="1" cellspacing="0" cellpadding="0" width="700">
<%
Do While Not objRec.EOF
%>
<tr>
<td><%= objRec.Fields("Klant_id").Value %></td>
<td><%= objRec.Fields("Naam").Value %></td>
</tr>
<%
' Ga naar het volgende record om de waarden in een nieuwe rij te laten zien.
objRec.MoveNext
Loop
%>
</table>
<%
' Sluit de verbinding en maak alle variabelen leeg.
objRec.Close
Set objRec = Nothing
objCon.close
set objCon = Nothing
%>
</body></html>
Alvast bedankt
Enige tijd geleden heb ik mij eens verdiept in ASP in combinatie met een access database. Na lang zoeken proberen, heb ik alles aan het werken gekregen, en kon zelfs "online" records toevoegen en verwijderen enz... allemaal prima, maar.....
Onlangs heeft microsoft de "gratis" SQL 2005 Server op de markt gebracht. ik heb deze gedownload, en ben me hier in gaan verdiepen. Heb een database aangemaakt, tabellen en records toegevoegd. maar nu wilde ik de database uitlezen in een ASP pagina. ben dus wederom gaan googlen, heb dan ook veel gevonden, en heeeelllllll veel verschillede mogelijkheden! maar ik krijg niks aan het werken? mogelijk ligt het gewoon aan mij, of ik heb te lang zitten te zoeken zodat ik het gewoon niet meer zie?
Mijn vraag hoe kan ik de onderstaande code omtoveren naar een SQL Server 2005 verbinding?
<html><head><title>Klanten tabel</title></head><body>
<%
' Declareer de variabele voor de connectiestring (StringConnectie -> strCon)
Dim strCon
' Zet de connectiestring in de variabele. Hier is dit dus een ODBC connectie.
accessDB = server.mappath("/voorbeeld/voorbeeld.mdb")
strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strCon = strCon & accessDB & ";"
' Maak een serverobject aan voor de connectie (ObjectConnectie -> objCon)
Dim objCon
Set objCon = Server.CreateObject ( "ADODB.Connection" )
' Open de verbinding met de database. Voor objCon wordt er een
' verbinding geopend met opgegeven database.
objCon.Open strCon
' De SQL query om de gegevens uit de database te halen.
SQL = "SELECT * FROM klanten"
' Plaats de gegevens van de SQL Query in de recordset objRec.
set objRec = objCon.execute(SQL)
%>
<table border="1" cellspacing="0" cellpadding="0" width="700">
<%
Do While Not objRec.EOF
%>
<tr>
<td><%= objRec.Fields("Klant_id").Value %></td>
<td><%= objRec.Fields("Naam").Value %></td>
</tr>
<%
' Ga naar het volgende record om de waarden in een nieuwe rij te laten zien.
objRec.MoveNext
Loop
%>
</table>
<%
' Sluit de verbinding en maak alle variabelen leeg.
objRec.Close
Set objRec = Nothing
objCon.close
set objCon = Nothing
%>
</body></html>
Alvast bedankt