ASP經典數據庫連接

Question

我想使用傳統的ASP來打開和關閉與SQL Server數據庫的連接，並讓它從數據庫運行一個過程。它沒有參數。

Answer 1

這是ASP的連接細節，從一個select語句

Set objDBConn = Server.CreateObject("ADODB.Connection") 
objDBConn.Open "Provider=sqloledb;Data Source=SQLSERVERNAME;Initial Catalog=DATABASENAME; User ID=Chris;Password=PASSWORD;" 

Set objDBCommand = Server.CreateObject("ADODB.Command") 

objDBCommand.ActiveConnection = objDBConn 
objDBCommand.CommandText = "SQLPROCEDURENAME" 
objDBCommand.CommandType = adCmdStoredProc 

Set objDBRS = Server.CreateObject("ADODB.RecordSet") 

objDBRS.open objDBCommand,,adOpenForwardOnly 

DO WHAT YOU WANT HERE 

Set objDBCommand=nothing 
objDBConn.Close 
Set objDBConn=nothing 

Answer 2

改變這裏蓋到相關信息objDBRS（0）將是您的數據的第一部分是一個久經考驗的方法，我用了並重新開始。

<% 
Dim cmd, conn_string, rs, data, row, rows 

'Connection String if using latest version of SQL use SQL Server Native Client 
'for more examples see http://www.connectionstrings.com/sql-server/ 
conn_string = "Provider=SQLNCLI11;Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;" 

Set cmd = Server.CreateObject("ADODB.Command") 
With cmd 
    'No need to build ADODB.Connection the command object does it for you. 
    .ActiveConnection = conn_string 
    .CommandType = adCmdStoredProc 
    .CommandText = "[schema].[procedurename]" 
    Set rs = .Execute() 

    'Populate Array with rs and close and release ADODB.Recordset from memory. 
    If Not rs.EOF Then data = rs.GetRows() 
    Call rs.Close() 
    Set rs = Nothing 
End With 
'Release memory closes and releases ADODB.Connection as well. 
Set cmd = Nothing 

'Use Array to enumerate data without overhead of ADODB.Recordset. 
If IsArray(data) Then 
    rows = UBound(data, 2) 
    For row = 0 To rows 
    'Read data 
    Call Response.Write("First Field: " & data(0, row)) 
    Next 
Else 
    'No records 
    Call Response.Write("No records to display") 
End If 
%>