Recordset positions
I having problems reading fields from a Recordset. Let's say my query returns columns a, b and c. I have no problem accessing the columns if I access them in order, meaning rs.getInt("a") or rs.getInt(1) first, then b, then c. But if I want to access c before I access b, I get an error.
There has to be a way to access columns out of order, for example you might need to access column 1 at the beginning and again at the end of a page. I'm getting a error when I try to do that.
I'm using sun's JDBC/ODBC driver with SQL Server 2000 from a jsp page running under Tomcat 4.1.10. Any Ideas? Thanks in advance for any help.
Hi,
The best thing a developer can do is get the resultset into a vector array and use the values stored in the vector to move around.
Besides this values stored in vector can be used n nos of times.
Need not use resultset.getObject methods at all without having to consider the sequence of columns being called.
Thanks and regards,
Seetesh
Similar Messages
-
Multiple tables in a recordset.
Hi all,
I have got a bit stuck with creating an advanced recordset that calls from multiple sub tables. I have created the SQL statement below (originally used inner joins but the code got too long and still didn't work).
SELECT *
FROM Main_Table, Table_1, Table_2, Table_3, Table_4, Table_5, Table_6, Table_7, Table_8, Table_9, Table_10, Table_11, Table_12, Table_13, Table_14, Table_15
WHERE
(((((((((((((((((Main_Table.ID_1 = Table_1.ID_1),
Main_Table.ID_2 = Table_2.ID),
Main_Table.ID_3 = Table_3.ID),
Main_Table.ID_4 = Table_4.ID),
Main_Table.ID_5 = Table_5.ID),
Main_Table.ID_6 = Table_6.ID),
Main_Table.ID_7 = Table_7.ID),
Main_Table.ID_8 = Table_8.ID),
Main_Table.ID_9 = Table_9.ID),
Main_Table.ID_10 = Table_10.ID),
Main_Table.ID_10 = Table_11.ID),
Main_Table.ID_11 = Table_12.ID),
Main_Table.ID_11 = Table_13.ID),
Main_Table.ID_11 = Table_14.ID),
Main_Table.ID_12 = Table_15.ID),
AND cust_id = colname
The idea is to get some text values from the sub tables by passing through the relevant ID of the main table to the sub tables ID. To add to the complexity the "cust_id = colname" is a passthrough from a prior page that only brings up a specific record from the main table. Further complexity may come where the two bolded sections are using a single ID from the main table to call from multiple sub tables.
Ideally at the end of this I just want to pull the value from the recordset and drop into the page design. The page is PHP and the database/web server is using WAMP, if that helps?
I feel i'm so close (but i'm probably nowhere near!). Can anyone help me before I lose my hair and develop a nervous tick? Unfortunately, I am still a bit of a novice with these things, so if it's my syntax or a coding issue please could you explain it in noob terms for me?
Thank you in advance!The database was an access DB of 1 main table and 15 related tables that was then converted to MYSQL. The idea is that it will serve two purposes from web pages setup to point to it;
1) To add records to the main database with dropdowns. Certain data will be shown depending on the dropdown selected.
2) To show a data-only details screen.
The data is complicated survey data and it was decided that the main table would store the variables and the sub tables would store the constants (Between 2 to 6 records) using the ID to link them.
e.g.
Name = Main table.name
Address = Main table.address
Position = Table 2.position
Department = Table 2.Department
etc...
Have tried the AND statement above but the system just times out.
Would it be easier to create multiple recordsets (15 recordsets of 1 main table and 1 sub table) and link it somehow to the cust_id? If so, how would I best set each up so only the relevant fields are pulled from the sub table for each recordset? Or am I being to adventerous and should I just give up and flatten the tables to 1 single table?
Am starting to thin up top with this one! lol! -
How to get an updatable ADODB Recordset from a Stored Procedure?
In VB6 I have this code to get a disconnected ADODB Recordset from a Oracle 9i database (the Oracle Client is 10g):
Dim conSQL As ADODB.Connection
Dim comSQL As ADODB.Command
Dim recSQL As ADODB.Recordset
Set conSQL = New ADODB.Connection
With conSQL
.ConnectionString = "Provider=OraOLEDB.Oracle;Password=<pwd>;Persist Security Info=True;User ID=<uid>;Data Source=<dsn>"
.CursorLocation = adUseClientBatch
.Open
End With
Set comSQL = New ADODB.Command
With comSQL
.ActiveConnection = conSQL
.CommandType = adCmdStoredProc
.CommandText = "P_PARAM.GETALLPARAM"
.Properties("PLSQLRSet").Value = True
End With
Set recSQL = New ADODB.Recordset
With recSQL
Set .Source = comSQL
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockBatchOptimistic
.Open
.ActiveConnection = Nothing
End With
The PL/SQL Procedure is returning a REF CURSOR like this:
PROCEDURE GetAllParam(op_PARAMRecCur IN OUT P_PARAM.PARAMRecCur)
IS
BEGIN
OPEN op_PARAMRecCur FOR
SELECT *
FROM PARAM
ORDER BY ANNPARAM DESC;
END GetAllParam;
When I try to update some values in the ADODB Recordset (still disconnected), I get the following error:
Err.Description: Multiple-step operation generated errors. Check each status value.
Err.Number: -2147217887 (80040E21)
Err.Source: Microsoft Cursor Engine
The following properties on the Command object doesn't change anything:
.Properties("IRowsetChange") = True
.Properties("Updatability") = 7
How can I get an updatable ADODB Recordset from a Stored Procedure?4 years later...
I was having then same problem.
Finally, I've found how to "touch" the requierd bits.
Obviously, it's hardcore, but since some stupid at microsoft cannot understand the use of a disconnected recordset in the real world, there is no other choice.
Reference: http://download.microsoft.com/downlo...MS-ADTG%5D.pdf
http://msdn.microsoft.com/en-us/library/cc221950.aspx
http://www.xtremevbtalk.com/showthread.php?t=165799
Solution (VB6):
<pre>
Dim Rst As Recordset
Rst.Open "select 1 as C1, '5CHARS' as C5, sysdate as C6, NVL(null,15) as C7, null as C8 from DUAL", yourconnection, adOpenKeyset, adLockBatchOptimistic
Set Rst.ActiveConnection = Nothing
Dim S As New ADODB.Stream
Rst.Save S, adPersistADTG
Rst.Close
Set Rst = Nothing
With S
'Debug.Print .Size
Dim Bytes() As Byte
Dim WordVal As Integer
Dim LongVal As Long
Bytes = .Read(2)
If Bytes(0) <> 1 Then Err.Raise 5, , "ADTG byte 0, se esperaba: 1 (header)"
.Position = 2 + Bytes(1)
Bytes = .Read(3)
If Bytes(0) <> 2 Then Err.Raise 5, , "ADTG byte 9, se esperaba: 2 (handler)"
LongVal = Bytes(1) + Bytes(2) * 256 ' handler size
.Position = .Position + LongVal
Bytes = .Read(3)
If Bytes(0) <> 3 Then Err.Raise 5, , "ADTG, se esperaba: 3 (result descriptor)"
LongVal = Bytes(1) + Bytes(2) * 256 ' result descriptor size
.Position = .Position + LongVal
Bytes = .Read(3)
If Bytes(0) <> 16 Then Err.Raise 5, , "ADTG, se esperaba: 16 (adtgRecordSetContext)"
LongVal = Bytes(1) + Bytes(2) * 256 ' token size
.Position = .Position + LongVal
Bytes = .Read(3)
If Bytes(0) <> 5 Then Err.Raise 5, , "ADTG, se esperaba: 5 (adtgTableDescriptor)"
LongVal = Bytes(1) + Bytes(2) * 256 ' token size
.Position = .Position + LongVal
Bytes = .Read(1)
If Bytes(0) <> 6 Then Err.Raise 5, , "ADTG, se esperaba: 6 (adtgTokenColumnDescriptor)"
Do ' For each Field
Bytes = .Read(2)
LongVal = Bytes(0) + Bytes(1) * 256 ' token size
Dim NextTokenPos As Long
NextTokenPos = .Position + LongVal
Dim PresenceMap As Long
Bytes = .Read(3)
PresenceMap = Val("&H" & Right$("0" & Hex$(Bytes(0)), 2) & Right$("0" & Hex$(Bytes(1)), 2) & Right$("0" & Hex$(Bytes(2)), 2))
Bytes = .Read(2) 'ColumnOrdinal
'WordVal = Val("&H" & Right$("0" & Hex$(Bytes(0)), 2) & Right$("0" & Hex$(bytes(1)), 2))
'Aca pueden venir: friendly_columnname, basetable_ordinal,basetab_column_ordinal,basetab_colname
If PresenceMap And &H800000 Then 'friendly_columnname
Bytes = .Read(2) 'Size
LongVal = Bytes(0) + Bytes(1) * 256 ' Size
.Position = .Position + LongVal * 2 '*2 debido a UNICODE
End If
If PresenceMap And &H400000 Then 'basetable_ordinal
.Position = .Position + 2 ' 2 bytes
End If
If PresenceMap And &H200000 Then 'basetab_column_ordinal
.Position = .Position + 2 ' 2 bytes
End If
If PresenceMap And &H100000 Then 'basetab_colname
Bytes = .Read(2) 'Size
LongVal = Bytes(0) + Bytes(1) * 256 ' Size
.Position = .Position + LongVal * 2 '*2 debido a UNICODE
End If
Bytes = .Read(2) 'adtgColumnDBType
'WordVal = Val("&H" & Right$("0" & Hex$(Bytes(0)), 2) & Right$("0" & Hex$(bytes(1)), 2))
Bytes = .Read(4) 'adtgColumnMaxLength
'LongVal = Val("&H" & Right$("0" & Hex$(Bytes(3)), 2) & Right$("0" & Hex$(Bytes(2)), 2) & Right$("0" & Hex$(Bytes(1)), 2) & Right$("0" & Hex$(Bytes(0)), 2))
Bytes = .Read(4) 'Precision
'LongVal = Val("&H" & Right$("0" & Hex$(Bytes(3)), 2) & Right$("0" & Hex$(Bytes(2)), 2) & Right$("0" & Hex$(Bytes(1)), 2) & Right$("0" & Hex$(Bytes(0)), 2))
Bytes = .Read(4) 'Scale
'LongVal = Val("&H" & Right$("0" & Hex$(Bytes(3)), 2) & Right$("0" & Hex$(Bytes(2)), 2) & Right$("0" & Hex$(Bytes(1)), 2) & Right$("0" & Hex$(Bytes(0)), 2))
Dim ColumnFlags() As Byte, NewFlag0 As Byte
ColumnFlags = .Read(1) 'DBCOLUMNFLAGS, First Byte only (DBCOLUMNFLAGS=4 bytes total)
NewFlag0 = ColumnFlags(0)
If (NewFlag0 And &H4) = 0 Then 'DBCOLUMNFLAGS_WRITE (bit 2) esta OFF
'Lo pongo en ON, ya que quiero escribir esta columna LOCALMENTE en el rst DESCONECTADO
NewFlag0 = (NewFlag0 Or &H4)
End If
If (NewFlag0 And &H8) <> 0 Then 'DBCOLUMNFLAGS_WRITEUNKNOWN (bit 3) esta ON
'Lo pongo en OFF, ya que no me importa si NO sabes si se puede updatear no, yo lo se, no te preocupes
'ya que quiero escribir esta columna LOCALMENTE en el rst DESCONECTADO
NewFlag0 = (NewFlag0 And Not &H8)
End If
If (NewFlag0 And &H20) <> 0 Then 'DBCOLUMNFLAGS_ISNULLABLE (bit 5) esta OFF
'Lo pongo en ON, ya que siendo un RST DESCONECTADO, si le quiero poner NULL, le pongo y listo
NewFlag0 = (NewFlag0 Or &H20)
End If
If NewFlag0 <> ColumnFlags(0) Then
ColumnFlags(0) = NewFlag0
.Position = .Position - 1
.Write ColumnFlags
End If
.Position = NextTokenPos
Bytes = .Read(1)
Loop While Bytes(0) = 6
'Reconstruyo el Rst desde el stream
S.Position = 0
Set Rst = New Recordset
Rst.Open S
End With
'TEST IT
On Error Resume Next
Rst!C1 = 15
Rst!C5 = "MUCHOS CHARS"
Rst!C7 = 23423
If Err.Number = 0 Then
MsgBox "OK"
Else
MsgBox Err.Description
End If
</pre> -
How to display data from a recordset based on data from another recordset
How to display data from a recordset based on data from
another recordset.
What I would like to do is as follows:
I have a fantasy hockey league website. For each team I have
a team page (clubhouse) which is generated using PHP/MySQL. The one
area I would like to clean up is the displaying of the divisional
standings on the right side. As of right now, I use a URL variable
(division = id2) to grab the needed data, which works ok. What I
want to do is clean up the url abit.
So far the url is
clubhouse.php?team=Wings&id=DET&id2=Pacific, in the end all
I want is clubhouse.php?team=Wings.
I have a separate table, that has the teams entire
information (full team name, short team, abbreviation, conference,
division, etc. so I was thinking if I could somehow do this:
Recordset Team Info is filtered using URL variable team
(short team). Based on what team equals, it would then insert this
variable into the Divisional Standings recordset.
So example: If I type in clubhouse.php?team=Wings, the Team
Info recordset would bring up the Pacific division. Then 'Pacific'
would be inserted into the Divisional Standings recordset to
display the Pacific Division Standings.
Basically I want this
SELECT *
FROM standings
WHERE division = <teaminfo.division>
ORDER BY pts DESC
Could someone help me, thank you.Assuming two tables- teamtable and standings:
teamtable - which has entire info about the team and has a
field called
"div" which has the division name say "pacific" and you want
to use this
name to get corresponding details from the other table.
standings - which has a field called "division" which you
want to use to
give the standings
SELECT * FROM standings AS st, teamtable AS t
WHERE st.division = t.div
ORDER BY pts DESC
Instead of * you could be specific on what fields you want to
select ..
something like
SELECT st.id AS id, st.position AS position, st.teamname AS
team
You cannot lose until you give up !!!
"Leburn98" <[email protected]> wrote in
message
news:[email protected]...
> How to display data from a recordset based on data from
another recordset.
>
> What I would like to do is as follows:
>
> I have a fantasy hockey league website. For each team I
have a team page
> (clubhouse) which is generated using PHP/MySQL. The one
area I would like
> to
> clean up is the displaying of the divisional standings
on the right side.
> As of
> right now, I use a URL variable (division = id2) to grab
the needed data,
> which
> works ok. What I want to do is clean up the url abit.
>
> So far the url is
clubhouse.php?team=Wings&id=DET&id2=Pacific, in the end
> all
> I want is clubhouse.php?team=Wings.
>
> I have a separate table, that has the teams entire
information (full team
> name, short team, abbreviation, conference, division,
etc. so I was
> thinking if
> I could somehow do this:
>
> Recordset Team Info is filtered using URL variable team
(short team).
> Based on
> what team equals, it would then insert this variable
into the Divisional
> Standings recordset.
>
> So example: If I type in clubhouse.php?team=Wings, the
Team Info recordset
> would bring up the Pacific division. Then 'Pacific'
would be inserted into
> the
> Divisional Standings recordset to display the Pacific
Division Standings.
>
> Basically I want this
>
> SELECT *
> FROM standings
> WHERE division = <teaminfo.division>
> ORDER BY pts DESC
>
> Could someone help me, thank you.
> -
I have another issue with my summary/update processing. I have a form where members can list themselves for either needing or wanting boat/crew/housing. Below the form is a listing of all associated requests:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/ilcaData.asp" -->
<!--#include file="../../Connections/eventCalendar.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "needavailadd") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_eventCalendar_STRING
MM_editCmd.CommandText = "INSERT INTO needAvail (naType, memName, city, [state], phone, email, info, eventID) VALUES (?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 3, Request.Form("naType")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 32, Request.Form("memName")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 18, Request.Form("city")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 2, Request.Form("state")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 12, Request.Form("phone")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 48, Request.Form("email")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 75, Request.Form("info")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("eventID"), Request.Form("eventID"), null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "eventneedavail.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
Dim rsStates
Dim rsStates_cmd
Dim rsStates_numRows
Set rsStates_cmd = Server.CreateObject ("ADODB.Command")
rsStates_cmd.ActiveConnection = MM_ilcaData_STRING
rsStates_cmd.CommandText = "SELECT * FROM stateCodes"
rsStates_cmd.Prepared = true
Set rsStates = rsStates_cmd.Execute
rsStates_numRows = 0
%>
<%
Dim rsneedavailReq
Dim rsneedavailReq_cmd
Dim rsneedavailReq_numRows
Set rsneedavailReq_cmd = Server.CreateObject ("ADODB.Command")
rsneedavailReq_cmd.ActiveConnection = MM_eventCalendar_STRING
rsneedavailReq_cmd.CommandText = "SELECT * FROM needAvailReq"
rsneedavailReq_cmd.Prepared = true
Set rsneedavailReq = rsneedavailReq_cmd.Execute
rsneedavailReq_numRows = 0
%>
<%
Dim rsneedAvail__MMColParam
rsneedAvail__MMColParam = "0"
If (Request.Querystring("ID") <> "") Then
rsneedAvail__MMColParam = Request.Querystring("ID")
End If
%>
<%
Dim rsneedAvail
Dim rsneedAvail_cmd
Dim rsneedAvail_numRows
Set rsneedAvail_cmd = Server.CreateObject ("ADODB.Command")
rsneedAvail_cmd.ActiveConnection = MM_eventCalendar_STRING
rsneedAvail_cmd.CommandText = "SELECT * FROM eventneedAvail WHERE eventID = ?"
rsneedAvail_cmd.Prepared = true
rsneedAvail_cmd.Parameters.Append rsneedAvail_cmd.CreateParameter("param1", 5, 1, -1, rsneedAvail__MMColParam) ' adDouble
Set rsneedAvail = rsneedAvail_cmd.Execute
rsneedAvail_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsneedAvail_numRows = rsneedAvail_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!-- InstanceBegin template="/Templates/mainLayout.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- InstanceBeginEditable name="doctitle" -->
<title>Welcome to the International Lightning Class</title>
<meta name="Keywords" content="Lightning, lightning sailboat, lightning class, international lightning class, lightning class sailboat, lightning class association" />
<!-- InstanceEndEditable -->
<!-- InstanceBeginEditable name="head" -->
<!-- InstanceEndEditable -->
<link href="../../assets/favicon.ico" rel="shortcut icon" />
<link href="../../css/mainLayout2.css" rel="stylesheet" type="text/css" />
<link href="../../css/navMenu.css" rel="stylesheet" type="text/css" />
<link href="../../css/ilcaStyles.css" rel="stylesheet" type="text/css" />
<link href="../../css/document.css" rel="stylesheet" type="text/css" />
<script src="../../scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<!-- InstanceBeginEditable name="styles" -->
<link href="../../css/needAvail.css" rel="stylesheet" type="text/css" />
<script type="text/javascript">
<!--
function MM_validateForm() { //v4.0
if (document.getElementById){
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=document.getElementById(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
} if (errors) alert('The following error(s) occurred:\n'+errors);
document.MM_returnValue = (errors == '');
//-->
</script>
<!-- InstanceEndEditable -->
<!-- InstanceParam name="setdatetype" type="text" value="" -->
<!-- InstanceParam name="cleanup" type="text" value="" -->
</head>
<body onload="" onunload="">
<%
Response.Buffer = True
If (Request.ServerVariables("HTTPS") = "on") Then
Dim xredir__, xqstr__
xredir__ = "http://" & Request.ServerVariables("SERVER_NAME") & _
Request.ServerVariables("SCRIPT_NAME")
xqstr__ = Request.ServerVariables("QUERY_STRING")
if xqstr__ <> "" Then xredir__ = xredir__ & "?" & xqstr__
Response.redirect xredir__
End if
%>
<div id="wrapper">
<div id="header">
<div id="hdrLink"><a href="../../index.asp"><img src="../../assets/images/mainTemplate/headerImg.png" width="839" height="183" border="0" /></a></div>
</div>
<div id="sidebar">
<div id="navigation">
<!-- menu script itself. you should not modify this file -->
<script type="text/javascript" language="JavaScript" src="../../scripts/navMenu.js"></script>
<!-- items structure. menu hierarchy and links are stored there -->
<script type="text/javascript" language="JavaScript" src="../../scripts/navMenu_items.js"></script>
<script type="text/javascript" language="JavaScript" src="../../scripts/boatgrantMenu_items.js"></script>
<script type="text/javascript" language="JavaScript" src="../../scripts/boatgrantMenu2_items.js"></script>
<script type="text/javascript" language="JavaScript" src="../../scripts/storeMenu_items.js"></script>
<!-- files with geometry and styles structures -->
<script type="text/javascript" language="JavaScript" src="../../scripts/navMenu_tpl2.js"></script>
<script type="text/javascript" language="JavaScript" src="../../scripts/boatgrantMenu_tpl.js"></script>
<script type="text/javascript" language="JavaScript" src="../../scripts/boatgrantMenu2_tpl.js"></script>
<script type="text/javascript" language="JavaScript" src="../../scripts/storeMenu_tpl.js"></script>
<script type="text/javascript" language="javascript">
<!--//
// Make sure the menu initialization is right above the closing </body> tag
// Moving it inside other tags will not affect the position of the menu on
// the page. If you need this feature please consider Tigra Menu GOLD.
// each menu gets two parameters (see demo files)
// 1. items structure
// 2. geometry structure
new menu (MENU_ITEMS, MENU_TPL);
// If you don't see the menu then check JavaScript console of the browser for the error messages
// "Variable is not defined" error indicates that there's syntax error in that variable's definition
// or the file with that variable isn't properly linked to the HTML document
//-->
</script>
</div>
<div id="sbar-image3"> <a href="http://www.facebook.com/pages/International-Lightning-Class-Association/197584991571" target="_blank"><img src="../../assets/images/mainTemplate/facebook.png" alt="Facebook ILCA link" width="36" height="36" border="0" /></a> <a href="http://twitter.com/IntLightning" target="_blank"><img src="../../assets/images/mainTemplate/twitter.png" alt="Twitter ILCA link" width="36" height="36" border="0" /></a> Connect with us</span></span></span> <br />
</div>
<div id="sbarSearch">
<!-- SiteSearch Google -->
<FORM method=GET action="http://www.google.com/search">
<input type=hidden name=ie value=UTF-8>
<input type=hidden name=oe value=UTF-8>
<TABLE width="126" align="center" bgcolor="#FFFFFF">
<tr>
<td width="135"><img src="../../assets/images/mainTemplate/google.jpg" width="68" height="21" alt="Google logo" /></td>
</tr>
<tr>
<td><input type=text name=q size=20 maxlength=255 value="" />
<input type=submit name=btnG value="Google Search" />
<font size=-2>
<input type=hidden name=domains value="www.lightningclass.org">
<br>
<input type=radio
name=sitesearch value="">
Web
<input type=radio name=sitesearch value="www.lightningclass.org" checked>
Site<br>
</font></td>
</tr>
</TABLE>
</FORM>
<!-- SiteSearch Google -->
</div>
<div id="sbarTranslate">
<script src="http://www.gmodules.com/ig/ifr?url=http://www.google.com/ig/modules/translatemypage.xml&up _source_language=en&w=148&h=60&title=&border=&output=js"></script>
</div>
<div id="sbar-image1"><a href="http://www.guadalajara2011.org.mx/esp/01_inicio/index.asp"><img src="../../assets/images/mainTemplate/panAm.jpg" width="116" height="129" border="0" /></a></div>
<div id="sbar-image2"><a href="../../membership/joinRenew/membershipOptions.asp"><img src="../../assets/images/mainTemplate/joinILCA.png" alt="Join the ILCA" width="113" height="113" border="0" /></a></div>
</div>
<div id="background">
<div id="mainContent"> <!-- InstanceBeginEditable name="mainContent" -->
<div id="docHdr"> Header </div>
<div id="docBody">
<div id="listMe">
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="needavailadd">
<fieldset id="needavailAdd" name="needavailAdd">
<legend class="legend">Logistics-Add</legend>
<br />
<label for="naType">Request Type:</label>
<label>
<select name="naType" size="1" id="naType" tabindex="1">
<option value="Sel" <%If (Not isNull(" Select a request type")) Then If ("Sel" = CStr(" Select a request type")) Then Response.Write("selected=""selected""") : Response.Write("")%>> Select a request type</option>
<%
While (NOT rsneedavailReq.EOF)
%>
<option value="<%=(rsneedavailReq.Fields.Item("requestKey").Value)%>" <%If (Not isNull(" Select a request type")) Then If (CStr(rsneedavailReq.Fields.Item("requestKey").Value) = CStr(" Select a request type")) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(rsneedavailReq.Fields.Item("requestType").Value)%></option>
<%
rsneedavailReq.MoveNext()
Wend
If (rsneedavailReq.CursorType > 0) Then
rsneedavailReq.MoveFirst
Else
rsneedavailReq.Requery
End If
%>
</select>
</label>
<br />
<br />
<label>First and Last Name:
<input name="memName" type="text" id="memName" tabindex="2" onblur="MM_validateForm('memName','','R');return document.MM_returnValue" />
</label>
<br />
<br />
<label>City:
<input name="city" type="text" id="city" tabindex="3" onblur="MM_validateForm('city','','R');return document.MM_returnValue" />
</label>
<label>State: </label>
<label>
<select name="state" size="1" id="state" tabindex="4" onchange="MM_validateForm('phone','','NisNum');MM_validateForm('email','','NisEmail');ret urn document.MM_returnValue">
<option value="Sel" <%If (Not isNull(" Select a state")) Then If ("Sel" = CStr(" Select a state")) Then Response.Write("selected=""selected""") : Response.Write("")%>> Select a state</option>
<%
While (NOT rsStates.EOF)
%>
<option value="<%=(rsStates.Fields.Item("stateCode").Value)%>" <%If (Not isNull(" Select a state")) Then If (CStr(rsStates.Fields.Item("stateCode").Value) = CStr(" Select a state")) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(rsStates.Fields.Item("stateName").Value)%></option>
<%
rsStates.MoveNext()
Wend
If (rsStates.CursorType > 0) Then
rsStates.MoveFirst
Else
rsStates.Requery
End If
%>
</select>
</label>
<br />
<br />
<label>Telephone#:
<input type="text" name="phone" id="phone" tabindex="5" />
</label>
<br />
<br />
<label>Email:
<input name="email" type="text" id="email" tabindex="6" size="48" maxlength="48" />
</label>
<br />
<br />
<label>Additional Information:
<input name="info" type="text" id="info" tabindex="7" size="58" maxlength="255" />
</label>
<br />
<br />
<input type="submit" name="addButton" id="addButton" value="Add Me" tabindex="8" />
<input type="reset" name="reset" id="reset" value="Reset" />
</fieldset>
<input name="eventID" type="hidden" id="eventID" value="<%=Request.QueryString("ID")%>" />
<input type="hidden" name="MM_insert" value="needavailadd" />
</form>
</div>
<div id="nameList">
<table width=640 align=left>
<% if rsneedAvail.EOF then
response.write "<strong>No Requests Yet</strong>"
else
response.write "<strong>" & (rsneedAvail_total) & "</strong>"
response.write "<strong> Logistics Requests:</strong>"%>
<p align="left"> </p>
<% icat = rsneedAvail.Fields.Item("requestType").Value %>
<tr>
<td colspan='2' class="eventMonths"><%=(rsneedAvail.Fields.Item("requestType").Value)%></td>
</tr>
<tr>
<td colspan='2'><hr width=250% align="center"/></td>
</tr>
<%rsneedAvail.Requery%>
<% While ((Repeat1__numRows <> 0) AND (NOT rsneedAvail.EOF)) %>
<% If rsneedAvail.Fields.Item("requestType").Value <> icat then
icat = rsneedAvail.Fields.Item("requestType").Value%>
<tr height="20">
<td colspan='2'></td>
</tr>
<tr>
<td colspan='2' class="eventMonths"><%=(rsneedAvail.Fields.Item("requestType").Value)%></td>
</tr>
<tr>
<td colspan='2'><hr width=250% align="center"/></td>
</tr>
<%End If %>
<tr>
<td width="165"><%=(rsneedAvail.Fields.Item("name").Value)%></td>
<td width="150"><%=(rsneedAvail.Fields.Item("location").Value)%></td>
<td width="100"><%=(rsneedAvail.Fields.Item("phone").Value)%></td>
<td width="265"><%=(rsneedAvail.Fields.Item("info").Value)%></td>
<td width="30" class="hpResults" aligm="left"><div align="center"><a href="eventneedavailUpdate.asp?ID=<%=(rsneedAvail.Fields.Item("recID").Value)%>"><span class="eventeditLink">Edit</span></a></div></td>
<td width="30" class="hpResults" aligm="left"><div align="center"><a href="eventupdateLogin.asp?ID=<%=(rsneedAvail.Fields.Item("recID").Value)%>"><span class="eventeditLink">Delete</span></a></div></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsneedAvail.MoveNext()
Wend
end if
%>
</table>
</div>
</div>
<!-- InstanceEndEditable --></div>
</div>
<div id="clear"></div>
<div id="footer">
<p><u><a href="../../membership/joinRenew/membershipOptions.asp" class="ftrLinks">Membership</a></u> | <u><a href="eventSelect.asp" class="ftrLinks">Racing</a></u> | <u><a href="../../classRules/documents/ilcaBylaws.asp" class="ftrLinks">Class Rules</a></u> | <u><a href="../../photoGallery/photos2008/index.asp" class="ftrLinks">Photo Gallery</a></u> | <u class="ftrLinks"><a href="../../marketplace/store/index.asp">Marketplace</a></u> | <u><a href="../../contacts/index.asp" class="ftrLinks">Contacts</a></u> | <u class="ftrLinks"><a href="../../siteMap.asp">Site Map</a></u><br />
All Rights Reserved—International Lightning Class Association<br />
<u><a href="mailto:[email protected]" class="ftrLinks">[email protected]</a></u><br />
1528 Big Bass Drive, Tarpon Springs, Florida 34689— Phone: 727-942-7969 — Fax: 727-942-0173 — Skype: ilcaoffice</p>
</div>
</div>
</body>
<!-- InstanceEnd -->
</html>
<%
rsStates.Close()
Set rsStates = Nothing
%>
<%
rsneedavailReq.Close()
Set rsneedavailReq = Nothing
%>
<%
rsneedAvail.Close()
Set rsneedAvail = Nothing
%>
Entries may be updated. After the update, the page above is displayed. Sometimes the updated information displays, but more often it does not (????). I have tried a requery, but that is not working. How do I requery the recordset so that the current information always displays?
Update page:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/ilcaData.asp" -->
<!--#include file="../../Connections/eventCalendar.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request("MM_update")) = "needavailUpdate") Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_eventCalendar_STRING
MM_editCmd.CommandText = "UPDATE needAvail SET naType = ?, memName = ?, city = ?, [state] = ?, phone = ?, email = ?, info = ? WHERE recID = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 3, Request.Form("naType")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 32, Request.Form("memName")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 18, Request.Form("city")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 2, Request.Form("state")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 12, Request.Form("phone")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 48, Request.Form("email")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 75, Request.Form("info")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "eventneedavail.asp?ID=" & Request.Form("eventID")
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl
Else
MM_editRedirectUrl = MM_editRedirectUrl
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
Dim rsStates
Dim rsStates_cmd
Dim rsStates_numRows
Set rsStates_cmd = Server.CreateObject ("ADODB.Command")
rsStates_cmd.ActiveConnection = MM_ilcaData_STRING
rsStates_cmd.CommandText = "SELECT * FROM stateCodes"
rsStates_cmd.Prepared = true
Set rsStates = rsStates_cmd.Execute
rsStates_numRows = 0
%>
<%
Dim rsneedavailReq
Dim rsneedavailReq_cmd
Dim rsneedavailReq_numRows
Set rsneedavailReq_cmd = Server.CreateObject ("ADODB.Command")
rsneedavailReq_cmd.ActiveConnection = MM_eventCalendar_STRING
rsneedavailReq_cmd.CommandText = "SELECT * FROM needavailReq"
rsneedavailReq_cmd.Prepared = true
Set rsneedavailReq = rsneedavailReq_cmd.Execute
rsneedavailReq_numRows = 0
%>
<%
Dim rsneedAvail__MMColParam
rsneedAvail__MMColParam = "0"
If (Request.QueryString("ID") <> "") Then
rsneedAvail__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim rsneedAvail
Dim rsneedAvail_cmd
Dim rsneedAvail_numRows
Set rsneedAvail_cmd = Server.CreateObject ("ADODB.Command")
rsneedAvail_cmd.ActiveConnection = MM_eventCalendar_STRING
rsneedAvail_cmd.CommandText = "SELECT * FROM needAvail WHERE recID = ?"
rsneedAvail_cmd.Prepared = true
rsneedAvail_cmd.Parameters.Append rsneedAvail_cmd.CreateParameter("param1", 5, 1, -1, rsneedAvail__MMColParam) ' adDouble
Set rsneedAvail = rsneedAvail_cmd.Execute
rsneedAvail_numRows = 0
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/mainLayout.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- InstanceBeginEditable name="doctitle" -->
<title>Welcome to the International Lightning Class</title>
<meta name="Keywords" content="Lightning, lightning sailboat, lightning class, international lightning class, lightning class sailboat, lightning class association" />
<!-- InstanceEndEditable -->
<!-- InstanceBeginEditable name="head" -->
<!-- InstanceEndEditable -->
<link href="../../assets/favicon.ico" rel="shortcut icon" />
<link href="../../css/mainLayout2.css" rel="stylesheet" type="text/css" />
<link href="../../css/navMenu.css" rel="stylesheet" type="text/css" />
<link href="../../css/ilcaStyles.css" rel="stylesheet" type="text/css" />
<link href="../../css/document.css" rel="stylesheet" type="text/css" />
<script src="../../scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<!-- InstanceBeginEditable name="styles" -->
<link href="../../css/needAvail.css" rel="stylesheet" type="text/css" />
<!-- InstanceEndEditable -->
<!-- InstanceParam name="setdatetype" type="text" value="" -->
<!-- InstanceParam name="cleanup" type="text" value="" -->
</head>
<body onload="" onunload="">
<%
Response.Buffer = True
If (Request.ServerVariables("HTTPS") = "on") Then
Dim xredir__, xqstr__
xredir__ = "http://" & Request.ServerVariables("SERVER_NAME") & _
Request.ServerVariables("SCRIPT_NAME")
xqstr__ = Request.ServerVariables("QUERY_STRING")
if xqstr__ <> "" Then xredir__ = xredir__ & "?" & xqstr__
Response.redirect xredir__
End if
%>
<div id="wrapper">
<div id="header">
<div id="hdrLink"><a href="../../index.asp"><img src="../../assets/images/mainTemplate/headerImg.png" width="839" height="183" border="0" /></a></div>
</div>
<div id="sidebar">
<div id="navigation">
<!-- menu script itself. you should not modify this file -->
<script type="text/javascript" language="JavaScript" src="../../scripts/navMenu.js"></script>
<!-- items structure. menu hierarchy and links are stored there -->
<script type="text/javascript" language="JavaScript" src="../../scripts/navMenu_items.js"></script>
<script type="text/javascript" language="JavaScript" src="../../scripts/boatgrantMenu_items.js"></script>
<script type="text/javascript" language="JavaScript" src="../../scripts/boatgrantMenu2_items.js"></script>
<script type="text/javascript" language="JavaScript" src="../../scripts/storeMenu_items.js"></script>
<!-- files with geometry and styles structures -->
<script type="text/javascript" language="JavaScript" src="../../scripts/navMenu_tpl2.js"></script>
<script type="text/javascript" language="JavaScript" src="../../scripts/boatgrantMenu_tpl.js"></script>
<script type="text/javascript" language="JavaScript" src="../../scripts/boatgrantMenu2_tpl.js"></script>
<script type="text/javascript" language="JavaScript" src="../../scripts/storeMenu_tpl.js"></script>
<script type="text/javascript" language="javascript">
<!--//
// Make sure the menu initialization is right above the closing </body> tag
// Moving it inside other tags will not affect the position of the menu on
// the page. If you need this feature please consider Tigra Menu GOLD.
// each menu gets two parameters (see demo files)
// 1. items structure
// 2. geometry structure
new menu (MENU_ITEMS, MENU_TPL);
// If you don't see the menu then check JavaScript console of the browser for the error messages
// "Variable is not defined" error indicates that there's syntax error in that variable's definition
// or the file with that variable isn't properly linked to the HTML document
//-->
</script>
</div>
<div id="sbar-image3"> <a href="http://www.facebook.com/pages/International-Lightning-Class-Association/197584991571" target="_blank"><img src="../../assets/images/mainTemplate/facebook.png" alt="Facebook ILCA link" width="36" height="36" border="0" /></a> <a href="http://twitter.com/IntLightning" target="_blank"><img src="../../assets/images/mainTemplate/twitter.png" alt="Twitter ILCA link" width="36" height="36" border="0" /></a>
Connect with us</span></span></span>
<br />
</div>
<div id="sbarSearch">
<!-- SiteSearch Google -->
<FORM method=GET action="http://www.google.com/search">
<input type=hidden name=ie value=UTF-8>
<input type=hidden name=oe value=UTF-8>
<TABLE width="126" align="center" bgcolor="#FFFFFF"><tr><td width="135"><img src="../../assets/images/mainTemplate/google.jpg" width="68" height="21" alt="Google logo" />
</td></tr>
<tr>
<td><input type=text name=q size=20 maxlength=255 value="" />
<input type=submit name=btnG value="Google Search" />
<font size=-2>
<input type=hidden name=domains value="www.lightningclass.org"><br><input type=radio
name=sitesearch value=""> Web
<input type=radio name=sitesearch value="www.lightningclass.org" checked>
Site<br>
</font>
</td></tr></TABLE>
</FORM>
<!-- SiteSearch Google -->
</div>
<div id="sbarTranslate">
<script src="http://www.gmodules.com/ig/ifr?url=http://www.google.com/ig/modules/translatemypage.xml&up _source_language=en&w=148&h=60&title=&border=&output=js"></script>
</div>
<div id="sbar-image1"><a href="http://www.guadalajara2011.org.mx/esp/01_inicio/index.asp"><img src="../../assets/images/mainTemplate/panAm.jpg" width="116" height="129" border="0" /></a></div>
<div id="sbar-image2"><a href="../../membership/joinRenew/membershipOptions.asp"><img src="../../assets/images/mainTemplate/joinILCA.png" alt="Join the ILCA" width="113" height="113" border="0" /></a></div>
</div>
<div id="background">
<div id="mainContent"> <!-- InstanceBeginEditable name="mainContent" -->
<div id="docHdr"> Header </div>
<div id="docBody">
<div id="listMe">
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="needavailUpdate">
<fieldset id="needavailUpdate" name="needavailUpdate">
<legend class="legend">Need/Available</legend>
<br />
<label for="naType">Request Type:</label>
<label>
<select name="naType" id="naType" tabindex="1">
<option value="" <%If (Not isNull((rsneedAvail.Fields.Item("naType").Value))) Then If ("" = CStr((rsneedAvail.Fields.Item("naType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>></option>
<%
While (NOT rsneedavailReq.EOF)
%>
<option value="<%=(rsneedavailReq.Fields.Item("requestKey").Value)%>" <%If (Not isNull((rsneedAvail.Fields.Item("naType").Value))) Then If (CStr(rsneedavailReq.Fields.Item("requestKey").Value) = CStr((rsneedAvail.Fields.Item("naType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(rsneedavailReq.Fields.Item("requestType").Value)%></option>
<%
rsneedavailReq.MoveNext()
Wend
If (rsneedavailReq.CursorType > 0) Then
rsneedavailReq.MoveFirst
Else
rsneedavailReq.Requery
End If
%>
</select>
</label>
<br />
<br />
<label>First and Last Name:
<input name="memName" type="text" id="memName" tabindex="2" value="<%=(rsneedAvail.Fields.Item("memName").Value)%>" />
</label>
<br />
<br />
<label>City:
<input name="city" type="text" id="city" tabindex="3" value="<%=(rsneedAvail.Fields.Item("city").Value)%>" />
</label>
<label>State: </label>
<label>
<select name="state" id="state" tabindex="4">
<option value="" <%If (Not isNull((rsneedAvail.Fields.Item("state").Value))) Then If ("" = CStr((rsneedAvail.Fields.Item("state").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>></option>
<%
While (NOT rsStates.EOF)
%>
<option value="<%=(rsStates.Fields.Item("stateCode").Value)%>" <%If (Not isNull((rsneedAvail.Fields.Item("state").Value))) Then If (CStr(rsStates.Fields.Item("stateCode").Value) = CStr((rsneedAvail.Fields.Item("state").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(rsStates.Fields.Item("stateName").Value)%></option>
<%
rsStates.MoveNext()
Wend
If (rsStates.CursorType > 0) Then
rsStates.MoveFirst
Else
rsStates.Requery
End If
%>
</select>
</label>
<br />
<br />
<label>Telephone#:
<input name="phone" type="text" id="phone" tabindex="5" value="<%=(rsneedAvail.Fields.Item("phone").Value)%>" />
</label>
<br />
<br />
<label>Email:
<input name="email" type="text" id="email" tabindex="6" value="<%=(rsneedAvail.Fields.Item("email").Value)%>" size="48" maxlength="48" />
</label>
<br />
<br />
<label>Additional Information:
<input name="info" type="text" id="info" tabindex="7" value="<%=(rsneedAvail.Fields.Item("info").Value)%>" size="58" maxlength="255" />
</label>
<br />
<br />
<input type="submit" name="addButton" id="addButton" value="Update Me" tabindex="5" />
<input type="reset" name="reset" id="reset" value="Reset" />
</fieldset>
<input type="hidden" name="MM_update" value="needavailUpdate" />
<input type="hidden" name="MM_recordId" value="<%= rsneedAvail.Fields.Item("recID").Value %>" />
<input type="hidden" name="eventID" value="<%= rsneedAvail.Fields.Item("eventID").Value %>" />
</form>
</div>
</div>
<!-- InstanceEndEditable --></div>
</div>
<div id="clear"></div>
<div id="footer">
<p><u><a href="../../membership/joinRenew/membershipOptions.asp" class="ftrLinks">Membership</a></u> | <u><a href="eventSelect.asp" class="ftrLinks">Racing</a></u> | <u><a href="../../classRules/documents/ilcaBylaws.asp" class="ftrLinks">Class Rules</a></u> | <u><a href="../../photoGallery/photos2008/index.asp" class="ftrLinks">Photo Gallery</a></u> | <u class="ftrLinks"><a href="../../marketplace/store/index.asp">Marketplace</a></u> | <u><a href="../../contacts/index.asp" class="ftrLinks">Contacts</a></u> | <u class="ftrLinks"><a href="../../siteMap.asp">Site Map</a></u><br />
All Rights Reserved—International Lightning Class Association<br />
<u><a href="mailto:[email protected]" class="ftrLinks">[email protected]</a></u><br />
1528 Big Bass Drive, Tarpon Springs, Florida 34689— Phone: 727-942-7969 — Fax: 727-942-0173 — Skype: ilcaoffice</p>
</div>
</div>
</body>
<!-- InstanceEnd --></html>
<%
rsStates.Close()
Set rsStates = Nothing
%>
<%
rsneedavailReq.Close()
Set rsneedavailReq = Nothing
%>
<%
rsneedAvail.Close()
Set rsneedAvail = Nothing
%>Thank you for your attention and diligence. I know it was overwhelming. I've uploaded my new pages and found that they seem to be working as designed - whereas they weren't working totally correctly on localhost. I believe I'm good for now. If I run into more problems, I'll find a simpler way to present the problem. Thank you, again.
-
Reg: consistency check in recordset structure validation
Hi all,
I am doing FCC to FCC scenario, i am getting this error. Help me out, it is very urgent for me.
Sender Adapter v2723 for Party '', Service 'bs_text2text':
Configured at 2007-08-21 08:00:49 UTC
History:
- 2007-08-21 09:29:06 UTC: Retry interval started. Length: 2.000 s
- 2007-08-21 09:29:06 UTC: Error: Conversion of complete file content to XML format failed around position 0: Exception: ERROR consistency check in recordset structure validation (line no. 87: missing structure(s) in last recordset
- 2007-08-21 09:29:06 UTC: Processing started
- 2007-08-21 09:29:04 UTC: Error: Conversion of complete file content to XML format failed around position 0: Exception: ERROR consistency check in recordset structure validation (line no. 87: missing structure(s) in last recordset
- 2007-08-21 09:29:04 UTC: Processing started
Regards,
Ajay.Hi Ajay,
Problem with the file content conversion parameters you specified in the sender file adapter.
Do let us know your DT structure and FCC parameters specified in adapter.
Regards,
Sumit -
ERROR consistency check in recordset structure validation
Hi,
I have a file that has the format below. The file is managed with the below content conversion parameters. However, it's not working and the error message that i get is "Conversion of file content to XML failed at position 0: java.lang.Exception: ERROR consistency check in recordset structure validation (line no. 7: missing structure(s) in last recordset". Any idea, what when wrong? Thanks.
Message Type defined:
FileHeader (occurrence = 1)
ARPostingRecord (occurrence = 1 to unbounded)
RecordHeader (occurrence = 1 to unbounded)
RecordDetail (occurrence = 1 to unbounded)
Source file looks like this:
01 Field1 Field2...Field-n
H Field1 Field2...Field-n
L Field1 Field2...Field-n
L Field1 Field2...Field-n
H Field1 Field2...Field-n
L Field1 Field2...Field-n
L Field1 Field2...Field-n
where:
01 is the keyfieldvalue for FileHeader
H is the keyfieldvalue for RecordHeader
L is the keyfieldvalue for RecordDetail
Specified parameters:
FileHeader.fieldSeparator
FileHeader.endSeparator
FileHeader.fieldNames
FileHeader.keyFieldValue
RecordHeader.fieldSeparator
RecordHeader.endSeparator
RecordHeader.fieldNames
RecordHeader.keyFieldValue
RecordHeader.missingLastFields
RecordHeader.keepIncompleteFields
RecordDetail.fieldSeparator
RecordDetail.endSeparator
RecordDetail.fieldNames
RecordDetail.keyFieldValue
RecordDetail.missingLastFields
RecordDetail.keepIncompleteFields
ignoreRecordsetName
Recordset Name:
ARPostingRecord
Recordset Structure:
FileHeader,1,RecordHeader,1000000,RecordDetail,1000000>ERROR consistency check in recordset structure validation (line no. 7: missing structure(s) in last recordset". Any idea, what when wrong?
When you are not sure about number of records for RecordHeader and RecordDetail, Please specify wildchar character. Dont give max numbers. The errors says expecting the specified number for recordset and since it is missing gives errror. -
ERROR consistency check in recordset structure
Hello All,
Below is my input file format looks like:
HEADER
REC_1
REC_1
REC_1
REC_2
FOOTER
And I have defined the Recordset structure as HEADER,1,REC_1,*,REC_2,*,FOOTER,1.But the occurence of REC_2 is optional (0 to Unbounded).
Conversion of file content to XML failed at
position 0: java.lang.Exception: ERROR consistency check in recordset structure
validation (line no. 4: missing structure(s) before type 'HEADER'
It looks like the error is due to missing REC_2 segment in the input file.
Can you please tell me how to handle this in FCC
Thanks,Hi Naresh
IMHO, I don't think that the error is due to missing REC_2 in the input file.
From SAP library, * includes also 0 occurence.
Converting Text Format in the Sender File/FTP Adapter to XML - Configuring the File/FTP Adapter in Integration Directory…
Under Recordset Structure, enter the sequence and the number of substructures as follows:<NameA,nA,NameB,nB,...>, where nA=1,2,3,... or * (for a variable, unlimited number, including 0).
Please provide screenshot of your FCC configuration and also sample input file that is causing the error so that it can be analysed further.
Rgds
Eng Swee -
Assigning "position" in repeat region
I have a site that runs a contest and displays winners from
across the
nation. Through the year they compete and can go online to
see where they
stand in relation to others in their same territory. In order
to display
the winner's positions on the page, I sort the underlying
data in sql using
the necessary criteria, then on my asp page, as part of the
repeat region, I
run code that loops through the recordset and uses an x+1
method of
displaying each person's position. Whether or not this is the
best way to
do this, it works.
MY PROBLEM...
Up until now I only needed to display the positions based on
one selected
territory. So my results would always simply show 1 -x, in
order.
Joe territory1 1
Van territory1 2
Tim territory1 3
Bob territory1 4
NOW I am being asked to show the entire nation on one page
for
administrators. They want to see ALL the territories and the
positions of
each person for each territory, and have the ability to sort
based on
various columns. So now my "positions" column will have
several people in
1st position, several in 2nd, etc.
Joe territory1 1
Jen territory2 1
Van territory1 2
Sue territory2 2
Tim territory1 3
Len territory2 3
Bob territory1 4
Ken territory2 4
I'm not sure how to go about this, and would greatly
appreciate any advice!In the actual case the criteria for winning is that 1) ALL
criteria are met
(there are actually four of them, not two as shown in my
example), and then
2) you have the highest perentage.
So in the case below, remembering that each territory has its
own set of
winners, it would look like this (if sorted by winning
position - keeping in
mind that I need to allow sorting on ANY column by the user):
name territory Criteria_A Criteria_B Criteria_C POS
Bob 1 74% Y Y
1
Tim 1 42% Y Y
2
Van 1 25% Y Y
3
Len 2 66% N Y
1
Sue 2 56% N Y
2
Joe 1 43% Y N
4
Ken 2 82% N N
3
Jen 2 68% N N
4
Here you can see that Bob, Tim, and Van all have Y for both
their B & C
criteria, so they are sorted to the top (how I do that is
somewhat secondary
at this point -- you can just assume that Y=10 and N=0 and
I'll sort on the
sum of those columns).
Then Len, Sue, and Joe each have one Y and one N, so they are
grouped
together based on that, then sorted by percent. Note that Joe
has a
position of 4 because he is in Territory 1.
Lastly, Ken and Jen have "N" for both criteria, so they are
sorted last, and
then by their percentage.
I put a dashed line in there as a visual aid -- doesn't need
to be in my
results.
"Pizza Good" <[email protected]> wrote in message
news:[email protected]...
> Hmm...interesting.
>
> In the sample data below, can you please sort them how
you want them to
> appear? I want to see how you handle the Y's and N's.
>
>
> "HX" <[email protected]> wrote in message
> news:[email protected]...
>> Because "position" isn't a field in the database -
it's determined based
>> on sorting the list on various criteria. For
example, let's say the
>> winner for each territory will have met all of
criteria_B and _C and then
>> will have the highest % in criteria_A . All I have
in my database is:
>>
>> name territory Criteria_A Criteria_B Criteria_C
>> Joe 1 43% Y N
>> Jen 2 68% N N
>> Van 1 25% Y Y
>> Sue 2 56% N Y
>> Tim 1 42% Y Y
>> Len 2 66% N Y
>> Bob 1 74% Y Y
>> Ken 2 82% N N
>>
>> For Territory 1 I can pull out those names, sort
based on my criteria,
>> then loop in my repeat region and assign their
positions right there in
>> the asp.
>>
>> But when I combine ALL of them onto one page, I
can't do that.
>>
>> Is there some way to set those positions in the
sub-query (for each
>> territory) and reference that field in a 2nd query?
>>
>>
>>
>>
>> "Pizza Good" <[email protected]> wrote
in message
>> news:[email protected]...
>>> Why not just sort by both fields?
>>>
>>> Not sure what your fields are called so I will
use:
>>>
>>> territory
>>> position
>>>
>>> ORDER BY territory ASC, position ASC
>>>
>>>
>>>
>>>
>>> "HX" <[email protected]> wrote in
message
>>> news:[email protected]...
>>>>I have a site that runs a contest and
displays winners from across the
>>>>nation. Through the year they compete and can
go online to see where
>>>>they stand in relation to others in their
same territory. In order to
>>>>display the winner's positions on the page, I
sort the underlying data
>>>>in sql using the necessary criteria, then on
my asp page, as part of the
>>>>repeat region, I run code that loops through
the recordset and uses an
>>>>x+1 method of displaying each person's
position. Whether or not this is
>>>>the best way to do this, it works.
>>>>
>>>> MY PROBLEM...
>>>>
>>>> Up until now I only needed to display the
positions based on one
>>>> selected territory. So my results would
always simply show 1 -x, in
>>>> order.
>>>>
>>>> Joe territory1 1
>>>> Van territory1 2
>>>> Tim territory1 3
>>>> Bob territory1 4
>>>>
>>>> NOW I am being asked to show the entire
nation on one page for
>>>> administrators. They want to see ALL the
territories and the positions
>>>> of each person for each territory, and have
the ability to sort based
>>>> on various columns. So now my "positions"
column will have several
>>>> people in 1st position, several in 2nd, etc.
>>>>
>>>> Joe territory1 1
>>>> Jen territory2 1
>>>> Van territory1 2
>>>> Sue territory2 2
>>>> Tim territory1 3
>>>> Len territory2 3
>>>> Bob territory1 4
>>>> Ken territory2 4
>>>>
>>>> I'm not sure how to go about this, and would
greatly appreciate any
>>>> advice!
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
> -
Retain position on continuous form through requery
I have a continuous form that, for reasons of efficiency, must use an underlying query that groups records and provides totals. Therefore, the underlying recordset is (correctly) not updateable. However, I do need to flip the value of one of the (header)
fields from True to False or False to True. So I have a button in the detail section of the form that checks the current value, creates the SQL statement to change the value, and runs the SQL statement.
So far, so good. Now, to get the new data to appear, I must requery the form, but that, of course causes me to lose my position on the continuous form.
So I set a variable to the value of the current PK in the header table before my requery, then use Bookmark to return to the record that was current before the update & requery. Again, so far, so good...except for one thing.
The user may have the current record in any vertical position on the visible part of the list. That is, the record being edited could be at the top of the visible records, the second one down, etc, or even the last record visible (I have a vertical
scroll bar). Using Bookmark returns me to that record, but it automatically places that current record at the top of the visible portion of the record list (form's detail section) after the requery. This is quite confusing for the users, and they can
easily lose their places.
Is there a way, not only to return the current record after the requery, but to return that record to the same vertical position within the form's records in the detail section so that there is no apparent jumping around?Hi Brian
D. Hart,
In early 2000s I published the solution here:
http://am.rusimport.ru/MsAccess/topic.aspx?ID=24
That sample isn't English localized. That's why I redesigned it for you. You can download the ajusted version from here:
https://www.dropbox.com/s/521xxb81ubgh2bc/VakshulRequeryEN2010.accdb?dl=0
By the way, the key moment of it was discussed early here:
https://social.msdn.microsoft.com/Forums/office/en-US/102244b7-9ae7-446e-9d31-b23eda5f758b/how-to-determine-the-number-of-records-displayed-in-a-continuous-form?forum=accessdev
Sergiy Vakshul -
Please Help... Recordset Navigation
I am using a PHP/MySQL database to incorporate dynamic data
in my website. In particular, I have a gallery of photo thumbnails
(the thumbnails are displayed via a Recordset). When clicked on,
each thumbnail link opens a pop-up window, which displays the name
and full-size image of the record desired. I've tried to insert a
Repeated Region server behavior within the pop-up to display one
full-size picture at a time and a Recordset navigation bar to click
through the different images. However, I can't seem to figure it
out.
Operating System: Mac OS X (v10.3)
Web Server: Apache
Browser: N/A
Database type: MYSQL
Application server: PHPThanks for your advice, Steve! I'm not sure about the form,
though. I'm fairly new to PHP...
Here's the PHP code from the thumbnails page:
<?php require_once('../../Connections/CSA.php'); ?>
<?php
mysql_select_db($database_CSA, $CSA);
$query_Rides = "SELECT * FROM Rides ORDER BY id ASC";
$Rides = mysql_query($query_Rides, $CSA) or
die(mysql_error());
$row_Rides = mysql_fetch_assoc($Rides);
$totalRows_Rides = mysql_num_rows($Rides);
?>
<table align="center" cellpadding="0" cellspacing="10"
style="padding: 5px;">
<tr>
<?php
$Rides_endRow = 0;
$Rides_columns = 6; // number of columns
$Rides_hloopRow1 = 0; // first row flag
do {
if($Rides_endRow == 0 && $Rides_hloopRow1++ != 0)
echo "<tr>";
?>
<td>
<a href="display_ride.php?id=<?php echo
$row_Rides['id']; ?>" target="_blank" alt="<?php echo
$row_Rides['name']; ?>" title="<?php echo $row_Rides['name'];
?>"><img src="pictures/<?php echo $row_Rides['thumb'];
?>" class="ride" /></a></td>
<?php $Rides_endRow++;
if($Rides_endRow >= $Rides_columns) {
?>
</tr>
<?php
$Rides_endRow = 0;
while ($row_Rides = mysql_fetch_assoc($Rides));
if($Rides_endRow != 0) {
while ($Rides_endRow < $Rides_columns) {
echo("<td> </td>");
$Rides_endRow++;
echo("</tr>");
}?>
</table>
<?php
mysql_free_result($Rides);
?>
And here's the code from the popup window:
<?php require_once('../../Connections/CSA.php'); ?>
<?php
if (!function_exists("GetSQLValueString")) {
function GetSQLValueString($theValue, $theType,
$theDefinedValue = "", $theNotDefinedValue = "")
$theValue = get_magic_quotes_gpc() ? stripslashes($theValue)
: $theValue;
$theValue = function_exists("mysql_real_escape_string") ?
mysql_real_escape_string($theValue) :
mysql_escape_string($theValue);
switch ($theType) {
case "text":
$theValue = ($theValue != "") ? "'" . $theValue . "'" :
"NULL";
break;
case "long":
case "int":
$theValue = ($theValue != "") ? intval($theValue) : "NULL";
break;
case "double":
$theValue = ($theValue != "") ? "'" . doubleval($theValue) .
"'" : "NULL";
break;
case "date":
$theValue = ($theValue != "") ? "'" . $theValue . "'" :
"NULL";
break;
case "defined":
$theValue = ($theValue != "") ? $theDefinedValue :
$theNotDefinedValue;
break;
return $theValue;
$currentPage = $_SERVER["PHP_SELF"];
$colname_current_Ride = "-1";
if (isset($_GET['id'])) {
$colname_current_Ride = $_GET['id'];
mysql_select_db($database_CSA, $CSA);
$query_current_Ride = sprintf("SELECT * FROM Rides WHERE id =
%s", GetSQLValueString($colname_current_Ride, "int"));
$current_Ride = mysql_query($query_current_Ride, $CSA) or
die(mysql_error());
$row_current_Ride = mysql_fetch_assoc($current_Ride);
$totalRows_current_Ride = mysql_num_rows($current_Ride);
$colname_next_Ride = "-1";
if (isset($_GET['id'])) {
$colname_next_Ride = $_GET['id'];
mysql_select_db($database_CSA, $CSA);
$query_next_Ride = sprintf("SELECT * FROM Rides WHERE id >
%s ORDER BY id ASC", GetSQLValueString($colname_next_Ride, "int"));
$next_Ride = mysql_query($query_next_Ride, $CSA) or
die(mysql_error());
$row_next_Ride = mysql_fetch_assoc($next_Ride);
$totalRows_next_Ride = mysql_num_rows($next_Ride);
$colname_previous_Ride = "-1";
if (isset($_GET['id'])) {
$colname_previous_Ride = $_GET['id'];
mysql_select_db($database_CSA, $CSA);
$query_previous_Ride = sprintf("SELECT * FROM Rides WHERE id
< %s ORDER BY id DESC",
GetSQLValueString($colname_previous_Ride, "int"));
$previous_Ride = mysql_query($query_previous_Ride, $CSA) or
die(mysql_error());
$row_previous_Ride = mysql_fetch_assoc($previous_Ride);
$totalRows_previous_Ride = mysql_num_rows($previous_Ride);
$queryString_current_Ride = "";
if (!empty($_SERVER['QUERY_STRING'])) {
$params = explode("&", $_SERVER['QUERY_STRING']);
$newParams = array();
foreach ($params as $param) {
if (stristr($param, "pageNum_current_Ride") == false
stristr($param, "totalRows_current_Ride") == false) {
array_push($newParams, $param);
if (count($newParams) != 0) {
$queryString_current_Ride = "&" .
htmlentities(implode("&", $newParams));
$queryString_current_Ride =
sprintf("&totalRows_current_Ride=%d%s",
$totalRows_current_Ride, $queryString_current_Ride);
?>
<h1 class="rideTitle" style="position: relative; top:
10px"><?php echo $row_current_Ride['name']; ?></h1>
<area shape="rect" coords="4,3,48,47"
href="display_ride.php?id=<?php echo $row_previous_Ride['id'];
?>" id="Previous Ride" name="Previous Ride" />
<area shape="rect" coords="47,3,99,47"
href="display_ride.php?id=<?php echo $row_next_Ride['id'];
?>" id="Next Ride" name="Next Ride" />
<area shape="rect" coords="851,3,897,47" href="#"
onclick="self.close();" id="Close Window" name="Close Window" />
<img src="pictures/<?php echo
$row_current_Ride['image']; ?>" alt="<?php echo
$row_current_Ride['image']; ?>" title="<?php echo
$row_current_Ride['image']; ?>" class="ride" style="position:
relative; top: -15px" />
<!-- Hide the caption <?php echo
$row_current_Ride['caption']; ?> -->
<?php
mysql_free_result($current_Ride);
mysql_free_result($next_Ride);
mysql_free_result($previous_Ride);
?>
Again, I have a decent sense of what to do with PHP, but I'll
use any help that I can receive. Thanks!
Kevin -
Good Afternoon
Experts:
I have quite the dilemna this afternoon. My application performs a simple select all records from a table to initialize navigation...previous, next, first and last.
However, I now have added a routine to load the last viewed record, by the
logged on User, in the recordset. This now causes the original navigation
to not be in order.
My Question:
Is it possible to perform the select all records and then position a "cursor/index/reference starting point" to a value in that recordset?
Example:
Recordset returns:1,2,3,4,5,6,7,8,9...etc
LastViewed = 5 so base all navigation off of 5...6 next record, 4 is previous record
Thanks,
EdHi Ed!
This is impossible to implement your issue using DI-RecordSet object, but as an option i could suggest you to implement it by stored procedure (T-SQL query) and execute it by DoQuery().
To do it you have to:
- be able to get the last viewed record by code (or T-SQL)
- use IDENTITY function to build an order you want
- use UNION operator to get <i>5,6,7,8,9,1,2,3,4</i> instead of <i>1,2,3,4,5,6,7,8,9</i> -
Hi all,
I'm trying to do a report using VBA microsoft word.
I manage to connect to the database using the DI API.
But when i tried to do the
SAPbobsCOM.Recordset, i got error.
Need advice.
Regards,
Bruce.The code I have contains plenty of other stuff, I try to give you some pseudocode for a dll - OK I know this is a very bad pseudocode, it is just to give you an idea ...;-). You should then use this dll from your VBA module: this is what we did and it worked well.
SAPbobsCOM.Company company = new Company();
int Initialize()
/// connect the company
int Finalize()
/// disconnect the company
/// this method read data from the DB with a Recordset
/// and returns them into an array of strings
string[] loadData()
/// your returned data
string[] ret = new string[];
/// your SQL query
string query;
/// the recordset
SAPbobsCOM.Recordset rset;
rset = company.GetBusinessObject(SAPbobsCOM.BoRecordset);
rset.DoQuery(query);
/// loop to fill into the string array
/// move the position in the recordset with rset.MoveNext
/// until you reach rset.EoF and copy the data in ret
return ret; -
Return a Recordset in a PL/SQL
Hello All,
I'm attempting to write a PL/SQL statement over some very large tables. The processing of the statement takes over 45 minutes to complete.
I've been able to speed up processing by creating a temp table over the largest of the tables, and it truly has speed up processing. The problem is that this statement will be used in a report run from SQL Reporting Services, using PL/SQL. This will be used in various reports and would like to make this an adhoc type of job - launched by executing the report.
I've tried writing a procedure that returns a recordset, but I'm having no luck. I'm new to writing Stored Procedures, Functions and Packages, and am trying to get my head around the best way to approach this.
Here is what I have so far - and it's not even close to working, but you can see the logic I'm trying to follow as far was what I need to return.
CREATE OR REPLACE PACKAGE PKG_BillSegs_ZeroUsage AS
TYPE cursor_type IS REF CURSOR;
Procedure GETBILLSEG_ZEROUSAGE (
p_RevMth IN bi_bill_segment.rev_month%TYPE,
p_recordset OUT PKG_BillSegs_ZeroUsage.cursor_type);
END PKG_BillSegs_ZeroUsage;
CREATE OR REPLACE PROCEDURE GetBillSeg_ZeroUsage (p_RevMth IN bi_bill_segment.rev_month%TYPE,
p_recordset OUT PKG_BillSegs_ZeroUsage.cursor_type) AS
BEGIN
OPEN p_recordset FOR
select * from bi_bill_segment where usage_qty = 0 and rev_month = p_RevMth;
END GetBillSeg_ZeroUsage;
Any help is greatly appreciated!Here's the output from explain plan - sorry for the output, but couldn't get it to be any prettier :
OPERATION OPTIONS OBJECT_NAME OBJECT_TYPE OPTIMIZER SEARCH_COLUMNS ID PARENT_ID POSITION COST CARDINALITY BYTES
SELECT STATEMENT REMOTE CHOOSE 0 91911 91911 2 4902
TABLE ACCESS BY INDEX ROWID BI_BILL_SEGMENT_T ANALYZED 1 0 1 91911 2 4902
INDEX RANGE SCAN BI_BILL_SEGMENT_IE7 NON-UNIQUE ANALYZED 1 2 1 1 659 178774 -
Want to retrieve first row from recordset
hi,
I am trying to retrieve a value from frist row , second cloumn.
from recordset and it is an integer value, but when I try to do that, it is throwing an error.
java.sql.SQLException: Result set type is TYPE_FORWARD_ONLY
at sun.jdbc.odbc.JdbcOdbcResultSet.first(Unknown Source)
at TicketClientRetriever.TicketNumberGenerator.checkLastTicket(TicketNum
berGenerator.java:35)
at TicketClientRetriever.TicketCreator$3.actionPerformed(TicketCreator.j
ava:204)
at javax.swing.AbstractButton.fireActionPerformed(Unknown Source)
at javax.swing.AbstractButton$Handler.actionPerformed(Unknown Source)
at javax.swing.DefaultButtonModel.fireActionPerformed(Unknown Source)
at javax.swing.DefaultButtonModel.setPressed(Unknown Source)
at javax.swing.plaf.basic.BasicButtonListener.mouseReleased(Unknown Sour
ce)
at java.awt.Component.processMouseEvent(Unknown Source)
at javax.swing.JComponent.processMouseEvent(Unknown Source)
at java.awt.Component.processEvent(Unknown Source)
at java.awt.Container.processEvent(Unknown Source)
at java.awt.Component.dispatchEventImpl(Unknown Source)
at java.awt.Container.dispatchEventImpl(Unknown Source)
at java.awt.Component.dispatchEvent(Unknown Source)
at java.awt.LightweightDispatcher.retargetMouseEvent(Unknown Source)
at java.awt.LightweightDispatcher.processMouseEvent(Unknown Source)
at java.awt.LightweightDispatcher.dispatchEvent(Unknown Source)
at java.awt.Container.dispatchEventImpl(Unknown Source)
at java.awt.Window.dispatchEventImpl(Unknown Source)
at java.awt.Component.dispatchEvent(Unknown Source)
at java.awt.EventQueue.dispatchEvent(Unknown Source)
at java.awt.EventDispatchThread.pumpOneEventForHierarchy(Unknown Source)
at java.awt.EventDispatchThread.pumpEventsForHierarchy(Unknown Source)
at java.awt.EventDispatchThread.pumpEvents(Unknown Source)
at java.awt.EventDispatchThread.pumpEvents(Unknown Source)
at java.awt.EventDispatchThread.run(Unknown Source)
please check the part of the code Below which is used to retrieve the data
public static int checkLastTicket()
//int i =0;
connection1();
try
Ex1rs = Ex1Stmt.executeQuery("Select * from Ticketlog Order By TicketNumber DESC");
if (Ex1rs!=null)
Ex1rs.isFirst();
ticket = Ex1rs.getInt(2);
System.out.println(ticket);
else
System.out.println("Recordset is empty");
catch (Exception e)
e.printStackTrace();
System.out.println(ticket);
return ticket;
A JDBC tutorial would really help you out. You can find one at:
http://java.sun.com/developer/onlineTraining/Database/JDBC20Intro/JDBC20.html
If your too busy (or lazy) to take the tutorial, this might get you going:
A ResultSet is initially positioned BEFORE the first row. You need to move to the first row most commonly done using rs.next()
rs.isFirst() returns a boolean that is true IF you are on the first row. You don't seem to be using it that way...
Good Luck!
Maybe you are looking for
-
Change BOM and Production Order
Hello Expert, I have recuuring problem, hope you can lean help to me. Can you explain to me why this happen? we have change a component BOM in CS02, first we create change number in CC01. with effective date for 30.09.2008. In BOM 6083, there exist a
-
HT1904 Hiding songs in my iTunes Match library
I have subscribed to iTunes Match, and now my entire music library is visible to my kids. I've got some songs that have explicit lyrics and explicit titles (think Team America: World Police soundtrack). Is there a way for me to hide these songs so th
-
Linking purchase receipt id with GL report
Hello, i'm a beginner in Oracle development (please bear with me), i have a task to modify a GL report (which has the journal id, batch num info) to include the receipt num from Purchasing. I was plodding on the oracle panels when i stumble upon this
-
a few of my built in apps disappeared and I want them back, please help, a few of my built in apps disappeared and I want them back, please help. It just happened and I didn't do anything. The camera app the I-tunes store the App Store and Safari a
-
When i type in a website and hit okay sometimes i get an error saying " Could not open a pop-up because there are to many pages open." anybody know what that means?