Μπλι μπλιπ… υπολογισμός… υπολογισμός… έναρξη διαδικασίας 42…

Χμ, αυτά τα τρελορομπότ έπιασαν πάλι δουλειά! Ανέλαβαν δράση και μετέφρασαν αυτή τη σελίδα στη γλώσσα σας. Τα ρομπότ έχουν τις καλύτερες προθέσεις στις μεταλλικές καρδιές τους. Θέλουν να βοηθήσουν! Ενημερώστε μας πώς τα πάνε τα ρομπότ, με τα κουμπιά στο κάτω μέρος της σελίδας. Μετάβαση στην αγγλική έκδοση
Σύνδεση σε μια βάση δεδομένων Microsoft SQL Server χρησιμοποιώντας ASP/ADO
Αυτό το παράδειγμα περιγράφει τη χρήση ASP/ADO για σύνδεση σε μια βάση δεδομένων Microsoft SQL Server.
Πρέπει να έχετε ρυθμίσει το αρχείο σας web.config
ώστε να χρησιμοποιεί πλήρη εμπιστοσύνη. Για περισσότερες πληροφορίες, δείτε
Αντικαταστήστε τα πεδία db_
με τις πληροφορίες για τη βάση δεδομένων σας από το Hosting Control Panel. Για περισσότερες πληροφορίες, δείτεFind your connection strings για περισσότερες πληροφορίες.
<%@ 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
%>