% 'dbpath = Server.MapPath("Crystal.mdb") 'PWD = "aleealee" 'ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath & ";" & _ '"password=" & PWD & ";" 'Set oConn=Server.CreateObject("ADODB.Connection") 'oConn.Open(ConnString) 'Old Connection without password Set oConn=Server.CreateObject("ADODB.Connection") filePath = Server.MapPath("Crystal.mdb") oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +filePath) ssql = "Select * From Class Order by SortKey" Set RS = oConn.Execute(ssql) 'Get special user login if request.querystring("User") <> "" then session("User") = request.querystring("User") end if %>
![]() ![]() ![]() |
||||||
|
|
||||||
|
||||||
| HOME ABOUT US CONSULTING SUPPORT CONTACT US PRIVACY POLICY Contents Copyright ©
2010
Crystal Reports Training. All Rights Reserved. |