ASP SQL Server連接

Question

<% 
DIM objConn 
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.ConnectionString = "Data Source=123.123.12.123,1234;Database=DatabaseName;User Id=Usernm;Password=abcd1234;" 
objConn.Open 

DIM mySQL 

mySQL = "SELECT * FROM [Users] WHERE [User ID]='1'" 

DIM objRS 
Set objRS = Server.CreateObject("ADODB.Recordset") 
objRS.open(mySQL, objConn) 

Response.Write objRS("FullName") 

objRS.Close 
Set objRS = Nothing 
objConn.Close 
Set objConn = Nothing 
%> 

我想連接到SQL Server數據庫，讀取數據並關閉連接。我研究過這些例子，並提出了這個問題。但它不工作。請指導我。我哪裏錯了？

Answer 1

Dim rs, dbConn 

Function OpenDB() 
    Set dbConn = Server.CreateObject("ADODB.Connection") 
    dbConn.ConnectionTimeout = 300 
    dbConn.CommandTimeout = 300 
    dbConn.Open "Data Source=123.123.12.123,1234;Database=DatabaseName;User Id=Usernm;Password=abcd1234;" 
End Function 

Function CloseDB() 
    Set rs = Nothing 
    if ucase(TypeName(dbConn)) = "CONNECTION" then 
     dbConn.Close 
     Set dbConn = Nothing 
    end if 
End Function 

Function OpenRecordSet(recset, tablename) 
    Call OpenDB() 
    Set recset = Server.CreateObject("ADODB.Recordset") 
    recset.Open tablename, dbConn, 0, 1 
End Function 

Function CloseRecordSet(recset) 
    Set recset = Nothing 
    Call CloseDB() 
End Function 

然後使用

<% 
Call OpenDB() 
sql = "select from mytable where this = 'that'" 
Set rs = dbConn.Execute(sql) 
if not rs.EOF then 
     ' do your stuff! 
end if 
Call CloseDB() 
%> 

http://www.shiningstar.net/articles/articles/database/datafunctions.asp?ID=AW

Answer 2

一些答案建議包裝邏輯到功能沒有必要爲此。

這只是很多絨毛，是不需要的，只需使用ADODB.Command對象。有幾百種方法可以解決這個問題，但我發現一次又一次地工作的方法是讓ADODB.Command對象完成這項工作，然後使用ADODB.Recordset對象的.GetRows()方法將結果返回到Array。 通過這種方式，您可以快速關閉ADODB.Recordset和ADODB.Command對象，並可以使用Array。

Dim conn, cmd, rs, sql, data, search 

'Assume value to query comes from a Request Collection. 
search = Request("myvalue") & "" 

conn = "Data Source=123.123.12.123,1234;Database=DatabaseName;User Id=Usernm;Password=abcd1234;" 
sql = "select from mytable where this = ?" 
Set cmd = Server.CreateObject("ADODB.Command") 
With cmd 
    'No need to handle connection let ADODB.Command create and destory it. 
    .ActiveConnection = conn 
    .CommandType = adCmdText 
    .CommandText = sql 
    .Parameters.Append(.CreateParameter("@myparam", adVarWChar, adParamInput, 50)) 
    .Parameters("@myparam").Value = search 
    Set rs = .Execute() 
    If Not rs.EOF Then data = rs.GetRows() 
    Call rs.Close() 
    Set rs = Nothing 
End with 
Set cmd = Nothing 
'ADODB.Connection is closed when ADODB.Command is destroyed. 

If IsArray(data) Then 
    rows = UBound(data, 2) 
    For row = 0 To rows 
    'Return first column of the current row 
    Call Response.Write("First Column of Row " & row & " is '" & data(0, row) & "'<br />" 
    Next 
Else 
    Call Response.Write("No records") 
End If