0

DSNを使用して2003ODBCデータベースに接続する古いASPサイト（以前の従業員によって作成されたもの）があります。サーバーはホストによって2008に更新され、ODBCを使用できなくなったため、接続をDSN-Lessにする必要があります。

残念ながら、私はASP、およびASPを介したデータベース接続についてほとんど知識がありません。ODBCなしでAccessデータベースに接続するようにコードを変更するのを手伝ってくれる人はいないでしょうか。

私はそれがこのコードを使用して接続すると思います：

<%
' Get current name of region and intro text
Dim objRec, sql, introtext
sql="SELECT * FROM hometext WHERE home_id = 1"
set objRec=Server.CreateObject("ADODB.Recordset")
objRec.Open sql, "dsn=databasename"
introtext = Replace(objRec("home_introtext"), vbCrLf, "<br />")

' Get the 5 newest news items
Dim objRec2, sql2, newstext
sql2="SELECT TOP 5 news_date, news_text FROM news ORDER BY news_date DESC"
set objRec2=Server.CreateObject("ADODB.Recordset")
objRec2.Open sql2, "dsn=databasename"

' Get all images to appear to page
Dim objRec3, sql3
sql3="SELECT * FROM homeimages ORDER BY homeimage_date DESC"
set objRec3=Server.CreateObject("ADODB.Recordset")
objRec3.Open sql3, "dsn=databasename"

' Get the next 5 events from the current date
Dim objRec4, sql4
sql4="SELECT TOP 5 event_date, event_name FROM events WHERE event_date >= " &         niceDateAccess(Date()) & " ORDER BY event_date"
set objRec4=Server.CreateObject("ADODB.Recordset")
objRec4.Open sql4, "dsn=databasename"
%>

すべてがどのように接続されているかはわかりません。私はあまりスクリプターではありません。

どんな（唖然とした）助けもいただければ幸いです！

ありがとう

編集：データベースは、サーバーのルートフォルダーの「プライベート」フォルダーにあります。

4

1 に答える 1

1

これがサンプルコードです。データベース名とテーブルフィールド名を変更する

set conob = Server.CreateObject("ADODB.Connection")
conob.Provider="Microsoft.Jet.OLEDB.4.0"
conob.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("YourDatabaseName.mdb")
Set rsuni = Server.CreateObject("ADODB.Recordset")
sqlStr="select * from Student_Entry"

rsuni.open sqlStr,conob

ログオンしているユーザーによって、データベースへのフル アクセスを許可する必要があります。

于 2012-10-03T08:19:16.513 に答える