Problem displaying one of the records.

mAdg3rr · June 19th, 2003, 02:59 AM

Hi, i haf dis problem of displaying the records according to the id. Can anybody help me on dis? dis is wad i haf... wad m i missing or wer did i go wrong?

<%
Dim Conn, SQL, rs
Dim id, dept

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("emp.mdb")

sID=request.form("id")
SQL="Select * FROM Info WHERE CPAR_No='" & sID & "'"
set rs=Conn.Execute(SQL)

IF not rs.EOF Then
id=rs.Fields("ID")
dept=rs.Fields("Department")
response.write "cpar :" & id
response.write "dept :" & dept
else
response.write "No Record Found"
end if

set rs=Nothing
Conn.Close
set Conn=Nothing

%>

NotNowJohn · June 19th, 2003, 04:56 AM

If ID field in your table is an integer type you have to change SQL statement to:
SQL="Select * FROM Info WHERE CPAR_No=" & sID

...but the Soon is eclipsed by the Moon

mAdg3rr · June 19th, 2003, 07:35 PM

But mine is a text datatype... so wad else could be wrong? it keeps telling me there is no records found even tho there is such a record in my database.wad i need is to display the particular id & info of the employee wen the user enters the id.

KenSchaefer · June 20th, 2003, 02:53 AM

Change:

SQL="Select * FROM Info WHERE CPAR_No='" & sID & "'"

to

SQL="Select * FROM Info WHERE CPAR_No='" & sID & "'"
Response.Write(SQL)
Response.End

and post the output that you see to the list, so that we can have a look at your actual SQL statement

Cheers
Ken

www.adOpenStatic.com

mAdg3rr · June 20th, 2003, 03:12 AM

Select * FROM Info WHERE CPAR_No='BCTD0001'

dis is wad i get... but sorry dis will show onli the sql sentence... it does not show me the records i wan...

& dis is my codes...

<%
Dim Conn, SQL, rs
Dim id, dept

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("CPAS.mdb")

sID=request.form("cparno")
SQL="Select * FROM Info WHERE CPAR_No='" & sID & "'"
Response.Write(SQL)
Response.End

IF not rs.EOF Then
id=rs.Fields("CPAR_No")
dept=rs.Fields("Department")
response.write "cpar :" & id
response.write "dept :" & dept
else
response.write "No Record Found"
end if

set rs=Nothing
Conn.Close
set Conn=Nothing

%>

Droopy · June 24th, 2003, 08:56 PM

try replacing the if statement with this...

While not rs.eof
  id=rs.Fields("ID")
  dept=rs.Fields("Department")
  response.write "cpar :" & id
  response.write "dept :" & dept
  rs.movenext
Wend