Re: Problem on quering Access link table
From: Roger Carlson (NO-Rog3erc-SPAM_at_hotmail.com)
Date: 10/14/04
- Next message: Dale Fye: "RE: count is not correct."
- Previous message: [MVP] S.Clark: "Re: Problem on quering Access link table"
- In reply to: Roger Carlson: "Re: Problem on quering Access link table"
- Next in thread: [MVP] S.Clark: "Re: Problem on quering Access link table"
- Messages sorted by: [ date ] [ thread ]
Date: Thu, 14 Oct 2004 09:26:58 -0400
Shoot! I wasn't thinking!
Is "Alias" a field in the Exchange table? Maybe you need to bracket the
name to make sure it knows it's a field you're talking about:
strSQL = "SELECT [Alias] FROM StaffList WHERE [Alias] = '" & strUserName &
"'"
-- --Roger Carlson Access Database Samples: www.rogersaccesslibrary.com Want answers to your Access questions in your Email? Free subscription: http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L "Roger Carlson" <NO-Rog3erc-SPAM@hotmail.com> wrote in message news:OG2P4DfsEHA.2660@TK2MSFTNGP12.phx.gbl... > My ASP is a little rusty, but two things strike me. One is a potential > problem. The other is stylistic. > > 1) I'm bothered by the fieldname "Alias". It is possible that it's a > reserved word. I'd name it something else. > > 2) As I said, more of a style difference. Why create a recordset of all > users and then loop through it? Why not add a WHERE clause to the SQL and > simply test the recordset for BOF/EOF? > > Dim RecordSet, strSQL, strUsername > > strUsername = Request.Form("Username") > > strSQL = "SELECT Alias FROM StaffList WHERE Alias = '" & strUserName & "'" > > Set RecordSet = Server.CreateObject("ADODB.Recordset") > RecordSet.Open strSQL, databaseConnection > > If Not RecordSet.EOF then > Response.Write ("You are staff") > End If > > -- > --Roger Carlson > Access Database Samples: www.rogersaccesslibrary.com > Want answers to your Access questions in your Email? > Free subscription: > http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L > > "tabonni" <tabonni@yahoo.com> wrote in message > news:fb0148c2.0410131744.7ad57bf@posting.google.com... > > Hi All > > > > I connected MS Exchange Server to MS Access database using Access link > > table function. I can open the database table and see the fields and > > data inside the link table. However, the table seems cannot be queried > > by SQL statement. > > > > My situation is: > > I'm building an intranet. I have a ASP login page for all staff in the > > company to login. Other people can't register or login the intranet. > > That's the reason I use the company email address to verify username > > login name. > > > > After I made the link to the Global Address List (rename to > > StaffList), I can see the Alias field. I wrote ASP code to use Alias > > field to verify user login name. But, the ASP page seems experiencing > > difficulties. I always got the "Connection Timeout" Error. > > > > The procedure I connect Exchange to Access: > > [New Table -> Link Table -> File of Type [I choose Exchange()] -> > > Choose "Global Adress List" -> Rename to "StaffList -> Finish] > > > > My ASP code is as follow: > > > > <%@ Language=VBScript %> > > <!-- #INCLUDE VIRTUAL="/intranet/connection.asp" --> > > <% Response.Buffer = true %> > > <% > > > > Dim RecordSet, strSQL, strUsername > > > > strUsername = Request.Form("Username") > > > > strSQL = "SELECT Alias FROM StaffList" > > > > Set RecordSet = Server.CreateObject("ADODB.Recordset") > > RecordSet.Open strSQL, databaseConnection > > > > Do Until RecordSet.EOF > > If(StrComp(RecordSet("Alias"), strUsername) = 0) Then > > Response.Write ("You are staff") > > Else > > RecordSet.MoveNext > > Loop > > > > RecordSet.Close > > Set RecordSet = Nothing > > databaseConnection.Close > > Set databaseConnection = Nothing > > %> > > > > The ASP code for connection.asp: > > <% > > Dim databaseConnection > > Set databaseConnection = Server.CreateObject("ADODB.Connection") > > databaseConnection.ConnectionString = > > "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & > > Server.MapPath("/intranet/IntranetDB.mdb") & ";" > > databaseConnection.Open > > %> > > > > Please tell me what do you observe? I'm really stuck. > > > > Thank you. > >
- Next message: Dale Fye: "RE: count is not correct."
- Previous message: [MVP] S.Clark: "Re: Problem on quering Access link table"
- In reply to: Roger Carlson: "Re: Problem on quering Access link table"
- Next in thread: [MVP] S.Clark: "Re: Problem on quering Access link table"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|