Bliep bliep bliep… berekenen… berekenen… sequentie 42 initialiseren…
Oh nee, die vreemde robots zijn weer bezig! Ze hebben het roer overgenomen en deze pagina vertaald naar je lokale taal. De robots doen staalhard hun best. Ze willen ons helpen! Laat ons weten hoe de robots presteren met de knoppen onder aan de pagina. Engelse versie openen
Verbinding maken met een Microsoft SQL Server -database via ASP/ADO
Dit voorbeeld beschrijft het gebruik van ASP/ADO om verbinding te maken met een Microsoft SQL Server -database.
Je moet je web.config -bestand hebben ingesteld om volledig vertrouwen te gebruiken. Zie voor meer informatie
Vervang de db_ -velden door de informatie voor je database van de Hosting Control Panel. Zie voor meer informatieFind your connection strings voor meer informatie.
<%@ Page aspcompat=true %>
<%
'Sample Database Connection Syntax for ASP and SQL Server.
Dim oConn, oRs
Dim qry, connectstr
Dim db_name, db_username, db_userpassword
Dim db_server
db_server = "server name"
db_name = "db username"
db_username = "db username"
db_userpassword = "db password"
dim fieldname = "your_field"
dim tablename = "your_table"
connectstr = "Driver={SQL Server};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword
oConn = Server.CreateObject("ADODB.Connection")
oConn.Open(connectstr)
qry = "SELECT * FROM " & tablename
oRS = oConn.Execute(qry)
Do until oRs.EOF
Response.Write(ucase(fieldname) & ": " & oRs.Fields(fieldname))
oRS.MoveNext
Loop
oRs.Close
oRs = nothing
oConn = nothing
%>
<%
'Sample Database Connection Syntax for ASP and SQL Server.
Dim oConn, oRs
Dim qry, connectstr
Dim db_name, db_username, db_userpassword
Dim db_server
db_server = "server name"
db_name = "db username"
db_username = "db username"
db_userpassword = "db password"
dim fieldname = "your_field"
dim tablename = "your_table"
connectstr = "Driver={SQL Server};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword
oConn = Server.CreateObject("ADODB.Connection")
oConn.Open(connectstr)
qry = "SELECT * FROM " & tablename
oRS = oConn.Execute(qry)
Do until oRs.EOF
Response.Write(ucase(fieldname) & ": " & oRs.Fields(fieldname))
oRS.MoveNext
Loop
oRs.Close
oRs = nothing
oConn = nothing
%>
