Piip piip... raksutusta... raksutusta... numero 42…
No jopas. Näyttää siltä, että hullut robotit ovat taas vauhdissa! Ne ovat ottaneet vallan – ja kääntäneet tämän sivun omalle kielellesi. Robotit tarkoittavat tosiasiassa vain hyvää, ja niiden metallisydän sykkii lämpimänä. Ne haluavat auttaa! Kerro meille, miten hyvin robotit ovat hoitaneet homman. Käytä sivun alalaidan painikkeita. Siirry englanninkieliseen versioon
Yhteyden muodostaminen Microsoft SQL Server -tietokantaan käyttäen ASP/ADO: ta
Tässä esimerkissä kuvataan ASP/ADO -yhteyden käyttäminen yhteyden muodostamiseen Microsoft SQL Server -tietokantaan.
Sinulla on oltava web.config -tiedostosi, jotta voit käyttää täyttä luottamusta. Katso lisätietoja kohdasta
Korvaa db_ -kentät Hosting Control Panel: n tietokantasi tiedoilla. Katso lisätietoja kohdastaFind your connection strings lisätietoja varten.
<%@ 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
%>
