|
I think they had limits on the nesting. What does the Oracle query look like?
Bob Zagars
|
|
|
|
|
I am running a large links database at http://www.scoutinglinks.com so record paging is a must.
My problem is that many of my users are still using Netscape 4.x. These user can view the first page with out problems, if they select a link the next page they receive "the parameter is incorrect" error message. I have confirmed the error through testing, the reports are accurate.
I have rewritten the function numerous times, the last method I found here at The Code Project "http://www.codeproject.com/asp/rspaging.asp" with the same result.
If anyone has ever experienced this and found a solution your suggestions would be appreciated. I have asked these users to upgrade to Netscape v 6, but we all know how that goes. I have also tried finding a Java solution but really don't want to rewrite the whole app.
Again, any help would be appreciated.
Regards
Bert
|
|
|
|
|
Kind all,
I built this MTS object that runs a SP and should be able to returns to the user:
'1) (if existing) the Rs(s) found for the wanted DB table(s);
'2) the adParamOutput, adParamReturnValue ADODB.Parameters
from the SP.
When I run the component the following things happen:
* the adParamOutput and the adParamReturnValue ARE EMPTY
(note that I forced the SP to return in any case a Return value and a value as output paramter).
** when I loop the array that should comntain all the RS(s) contained in a specific DB field, I get
the usual "Subscript out of range".
I poste my code: both the code (DBObj.cls) for the DB object and the code (.frm) I used x testing it.
The name of the DLL project is: OggettoDB.
-----------------START OF THE DB OBJ (DBObj.cls)----------
Option Explicit
Implements ObjectControl
Dim ctxObject As ObjectContext
'******************************************************************************************
'this function should returns:
'1) all the Rs found for the wanted DB table fields: Id(), Datacurr(), TipoRep() and path()
'are the arrays that should contain the found Rs(s) for the 4 choiched DB fields;
'all these are passed byref
'2) the adParamReturnValue parameter: I choiched here that the return value from the
'SP be the return value of this function
'3) the adParamOutput: is the outparam passed byref too.
'4) currdata is the adParamInput
'*******************************************************************************************
Public Function RunAnySP(Id() As Variant, Datacurr() As Variant, TipoRep() As Variant, _
path() As Variant, outparam As Variant, ByVal currdata As Variant) As Variant
'ho scelto che il valore di ritorno della funzione sia il valore di ritorno dalla SP
Dim Cn As ADODB.Connection, Rs As ADODB.Recordset
Dim Cmd As ADODB.Command
Dim Param1 As ADODB.Parameter, Param2 As ADODB.Parameter, Param3 As ADODB.Parameter
On Error GoTo ErrorHandler
Dim cnstring As String
cnstring = "Provider=SQLOLEDB.1;Initial Catalog=Finanza;Data Source=direct-comflcg;"
Cn.Open cnstring
Set Cmd.ActiveConnection = Cn
Cmd.CommandText = "myProc"
Cmd.CommandType = adCmdStoredProc
Set Param1 = Cmd.CreateParameter("paramimput", adDate, adParamInput, currdata)
Cmd.Parameters.Append Param1
Set Param2 = Cmd.CreateParameter("parametroutput", adInteger, adParamOutput)
Cmd.Parameters.Append Param2
Set Param3 = Cmd.CreateParameter("valoreritorno", adInteger, adParamReturnValue)
Cmd.Parameters.Append Param3
Set Rs = Cmd.Execute
'Dim recordsAff As Long
'Cmd.Execute recordsAff
'If recordsAff = 0 Then MsgBox "Nessun record trovato/inserito!"
'here I fill the 4 array (corresponding to the 4 choiched DB fields) with the data found in the DB
Dim contatore As Variant
contatore = 0
While Not Rs.EOF
Id(contatore) = Rs.Fields(0)
Datacurr(contatore) = Rs.Fields(1)
TipoRep(contatore) = Rs.Fields(2)
path(contatore) = Rs.Fields(3)
contatore = contatore + 1
Rs.MoveNext
Wend
Rs.Close
'After having close the Rs I assign its value to the parameter n 1: as I said, this is the outparam
outparam = Cmd.Parameters(1)
'as I already said, the return value of the function is the adParamReturnValue
Set RunAnySP = Param3
Cn.Close
Set Cn = Nothing
Set Rs = Nothing
Set Cmd = Nothing
ctxObject.SetComplete
Exit Function
ErrorHandler:
If Not Cmd Is Nothing Then
Set Cmd = Nothing
End If
If Not Rs Is Nothing Then
Set Rs = Nothing
End If
If Not Cmd Is Nothing Then
Set Cmd = Nothing
End If
ctxObject.SetAbort
End Function
Private Sub ObjectControl_Activate()
Set ctxObject = GetObjectContext()
End Sub
Private Function ObjectControl_CanBePooled() As Boolean
ObjectControl_CanBePooled = False
End Function
Private Sub ObjectControl_Deactivate()
Set ctxObject = Nothing
End Sub
----------------START OF CODE X THE .FRM MODULE-----------
Option Explicit
Option Base 1
Private Sub Form_Load()
Dim OggettoDB As OggettoDB.DBObj
Dim id() As Variant
Dim Data() As Variant
Dim Tipo() As Variant
Dim Path() As Variant
Dim out As Variant
Dim myvar As Variant
Dim parainput As Variant
parainput = "1/16/2001"
Set OggettoDB = CreateObject("OggettoDb.DBObj")
myvar = OggettoDB.RunAnySP(id(), Data(), Tipo(), Path(), out, parainput)
'myvar is the return value
MsgBox myvar 'the value is empty
MsgBox out 'the value is empty too 
Dim x As Integer
For x = 0 To UBound(Data) 'when I start this cycle I get out of range error
MsgBox Data(x)
Next x
End Sub
Private Sub ObjectControl_Activate()
Set ctxObject = GetObjectContext()
End Sub
Private Function ObjectControl_CanBePooled() As Boolean
ObjectControl_CanBePooled = False
End Function
Private Sub ObjectControl_Deactivate()
Set ctxObject = Nothing
End Sub
|
|
|
|
|
I am trying to append record to the newly created Database(which is created thro' DAO ) thro' program . But, i am unable to add the first record(thro' ADO).But if I add the first record manually(directly into the DB)the following records are getting appended thro' program perfectly.
How can I append the first record thro' the program .
Y.Yamini Devi
|
|
|
|
|
i to have the same problem as you. so if you find a solution, do let me know. my email i.d. is babu_says@yahoo.com
|
|
|
|
|
Hi
I wonder if MS-SQL use some hashing table when i create
atable in which the key is a string(URL)
if no,do you think that by using hashing function on each string
and stroing the result(from the hashing function)
in the data base will increase searching performance...?
(the result is a numeric value)
thanks
tomer dror
tomerdr@hotmail.com
|
|
|
|
|
No I think it is a waste of clock pulses. Unless the information will not change once entered and only new unique rows are entered, otherwise I say why add clock pulses to the parsing of the string. Speed is the goal so KISS is the answer.
Best Regards,
Bob Zagars
|
|
|
|
|
Hi there all,
Well i'm trying to figure out a way to lock a record while working with an .mdb file (Access 2000).
When i try to set CRecordset::SetLockingMode(CRecordset::pessimistic) the system will throw an error saying "not supported locking mode" - IS THIS AN ODBC DRIVER PROBLEM OR ACCESS DB ?
So ... I tried to find a way to know if there is a way to find when is the record editted (from outside the program since 2 processes are running at the same time) and couldn't - Does somone have an idea of how to FIND OUT IF A RECORD IS EDITTED BY ANOTHE APP. ?
Thanks alot for the help i would apritiate it alot,
Ariel.
|
|
|
|
|
I get an IDispatch error #3092 when I execute a stored proc that does a rather basic insert into a Sybase SQL Anywhere database. I have reviewed the stored proc more than a dozen times, but cannot find anything wrong with it.
Where can I find the real meaning of such errors. Does anyone have an idea of what could be happening. I have posted the stored proc below. Error lookup does not give the correct result.
Create Procedure PersonAdd
(
@EntCode varchar(3),
@Accd varchar(3),
@FirstName varchar(40),
@MiddleName varchar(40),
@LastName varchar(40),
@Suffix varchar(15),
@Title varchar(25),
@PrevName varchar(35),
@Alias varchar(35),
@SSN varchar(11),
@BirthDate datetime,
@Sex varchar(6),
@IDTypeCode varchar(10),
@IDNo varchar(15),
@IDState varchar(15),
@TaxID varchar(11),
@EthnicCode varchar(10),
@RaceCode varchar(10)
)
AS
INSERT INTO Person
(EntCode,
Accd,
FirstName,
MiddleName,
LastName,
Suffix,
Title,
PrevName,
Alias,
SSN,
BirthDate,
Sex,
IDTypeCode,
IDNo,
IDState,
TaxID,
EthnicCode,
RaceCode,
DateCreated,
UserCreated)
VALUES
(@EntCode,
@Accd,
@FirstName,
@MiddleName,
@LastName,
@Suffix,
@Title,
@PrevName,
@Alias,
@SSN,
@BirthDate,
@Sex,
@IDTypeCode,
@IDNo,
@IDState,
@TaxID,
@EthnicCode,
@RaceCode,
GetDate(),
user_name())
DECLARE @PersonID INT
SELECT @PersonID = @@IDENTITY
RETURN (@PersonID)
GO
|
|
|
|
|
Try executing this from SqlAdvantage to see what it returns. What is @@IDENTITY ? Is it an int or some other data type?
|
|
|
|
|
Does anyone have an idea of how you can retrieve/return the value of a primary key (IDENTITY/Autoincrement COL) value after an INSERT statement using ODBC or ADO (without a stored proc). I am not using a stored proc, and so cannot use the @@IDENTITY function. I am using Sybase SQL Anywhere and MS SQL Server 7 as my databases.
Any suggestions or code samples would be appreciated.
|
|
|
|
|
Just after the statement that execute the INSERT.
eg:
SQL = "your insert statement"
set rs=mycon.execute(SQL)
'assuming that your identity field name is Key1
response.write("New key: " & rs("Key1"))
hope this works for ya
|
|
|
|
|
select @@identity as ID should do the trick.
Then ID = rs("ID")
cheers,
Chris Maunder
|
|
|
|
|
idCMD = New OleDb.OleDbCommand("SELECT @@IDENTITY", Me.conn)
Should work with any database that supports an indentity column.
Best Regards,
Bob Zagars
|
|
|
|
|
I'm trying to show the headers of all the records in a listbox :
1. is there a easiest/better fitted control for showing headers of records ?
2. whats my next step for loading a dialog with all Record Data after a row had been selected ? How do i get the index of the Record (is there a return value in ListBox ??) or, How to retrive the Record from the ListBox ?
Thanks for your help,
Ariel.
|
|
|
|
|
Hi there,
Well i'm trying to figure out a way to lock a record when i'm editting it and it seems i can't find the way.
First, I'm using ODBC and my DB is both in Access and FoxPro - i'm not sure wether the lock of the record is handled by ODBC Drivers or the DB itself - so if somone can help me with that i'll be more than happy.
Second, I'm trying to change the CRecordset::SetLockingMode(CRecordset::pessimistic) and i get an exception which tells me i'm actualy back to default CRecordset::Optimistic (Locking Mode) - those this have to do with my ODBC Driver or my Access DB.
Third, is there a flag in CRecordset which tells me whether the Record is edited by another user or only the ODBC/DB (???) handles and know it ?
Actually what i'm asking in a one sentence is : Can i check if a record is edited by another user in another process or i have to put my own Semaphore for this ???
Thank you alot for reading all this and much more if help given,
Ariel.
|
|
|
|
|
Record locking is handled by the database engine itself...
- Anders
|
|
|
|
|
First, Thanks for your answer !
Second, Since the DataBase is Locking the Records is there a way i can check wether the record is locked in a specific moment ? Is there a way i can know if the record is editted right now ?
Ariel
|
|
|
|
|
I am trying to create a MS Access DB with ADO.I can't find any ADO method to do that !
I tried with ADOX .But using Catalog object I could create a database in the specified drive ,but can't open it!
Could anyone help!
Y.Yamini Devi
|
|
|
|
|
I am trying to create a MS Access DB with ADO.I can't find any ADO method to do that !
I tried with ADOX .But using Catalog object I could create a database in the specified drive ,but can't open it!
Could anyone help!
Y.Yamini Devi
|
|
|
|
|
I'm using ASP/ADO and Access2000
I've performed an insert and i'm trying to return the primary key of the last modified record.
Can anyone please help.
Thanks
Marc
|
|
|
|
|
I have a table with a field defined as the primary key and as auto incremented.
Does anyone have an idea on how to insert data into the table overriding the auto increment property, so that I can insert my vaalues for this field as well.
I want to know if there is a way to do this using ADO and the Open and AddNew methods.
Kostas Stefanou
|
|
|
|
|
You can use something like
SET IDENTITY_INSERT T1 ON
INSERT INTO T1 (column_1,column_2)
VALUES (-99,'Explicit identity value')
- Anders
|
|
|
|
|
At any time, only one table in a session can have the IDENTITY_INSERT property set to ON. If a table already has this property set to ON, and a SET IDENTITY_INSERT ON statement is issued for another table, Microsoft® SQL Server™ returns an error message that states SET IDENTITY_INSERT is already ON and reports the table it is set ON for.
If the value inserted is larger than the current identity value for the table, SQL Server automatically uses the new inserted value as the current identity value.
The setting of SET IDENTITY_INSERT is set at execute or run time and not at parse time.
|
|
|
|
|
Is it possible to some how pass IN a recordset to a stored procedure? I want to be able to do something like the following:
Alter Procedure uspBillClient
@RS Recordset
As
Begin
Update Bills
Set BillID = (Select MAX(BillID) From Bills) + 1
Where HoursID In RS
End
Thanks in advance for any help.
Jamie Nordmeyer
Portland, Oregon, USA
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
