Bup bip bop... hesaplanıyor... hesaplanıyor... sıra 42 başlatılıyor...

Görünüşe göre şu çılgın robotlar tekrar iş başında! Yönetimi ele geçirdiler ve bu sayfayı dilinize çevirdiler. Robotlar metal kalplerinde hep iyi niyetliler. Yardım etmek istiyorlar! Bu sayfanın alt kısmındaki düğmelerle robotların nasıl bir iş çıkardığını öğrenmemize yardımcı olun. İngilizce sürüme git
ASP / ADO Kullanarak Microsoft SQL Sunucusu Veritabanına Bağlanma
Bu örnekte, Microsoft SQL Sunucusu Veritabanına bağlanmak için ASP / ADO kullanımı açıklanmaktadır.
Tam güveni kullanmak için web.config
dosyanızın ayarlanmış olması gerekir. Ayrıntılı bilgi için bkz.
Db_
alanlarını Hosting Control Panel’deki veritabanınızın bilgileriyle değiştirin. Ayrıntılı bilgi için bkz.Find your connection strings Daha fazla bilgi için.
<%@ 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
%>