[Q] Lỗi với kết nối bằng DSN

Loi khong giai quyet duoc

Toi co su dung co so du lieu Access, dung DSN de ket noi, nhung khong thanh cong.

Van de la khong the chuyen sang cach ket noi khac (bat buoc phai su dung DSN).

Vay toi phai lam sao day de ket noi co so du lieu?

Xin cam on rat nhieu

File global.asa
' '
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
'==Visual InterDev Generated - startspan==
'--Project Data Connection
Application("Connection2_ConnectionString") = "DSN=shdonline2;SystemDB=D:serverwwwDatabaseSe cured1.mdw;"
Application("Connection2_ConnectionTimeout") = 15
Application("Connection2_CommandTimeout") = 30
Application("Connection2_CursorLocation") = 3
Application("Connection2_RuntimeUserName") = "web"
Application("Connection2_RuntimePassword") = "web"

End Sub
</SCRIPT>

' '
File Account.asp
' '
Set adoCon = Server.CreateObject("ADODB.Connection")

'strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strDbPathAndName)
strCon = "DSN=shdonline2;"
adoCon.ConnectionTimeout = Application('Connection2_ConnectionTimeout')
adoCon.CommandTimeout = Application('Connection2_CommandTimeout')
adoCon.CursorLocation = Application('Connection2_CursorLocation')
'adoCon.Open Application('Connection2_ConnectionString'), Application('Connection2_RuntimeUserName'), Application('Connection2_RuntimePassword'))

adoCon.Open strCon


' '

Set rsProvince = Server.CreateObject("ADODB.Recordset")

strSQL_Province="SELECT * FROM Status where StatusType=5 and Language=2 order by ID ;"
rsProvince.Open strSQL_Province, strCon

' '