"Jan M. Nelken" <Unknown.User@Invalid.Domain> wrote in message
news:41654EED.5020009@Invalid.Domain...[color=blue]
> Odd Bjørn Andersen wrote:
>[color=green]
> > When our application tries to send a parameter of the type adDBTimeStamp[/color][/color]
to[color=blue][color=green]
> > DB2 we an error message saying
> >
> > SQLSTATE 22007 An invalid datetime format was detected; that is, an[/color][/color]
invalid[color=blue][color=green]
> > string representation or value was specified.
> >
> > We get this message after upgradeing to DB2 Enterprise Edition V8.1[/color][/color]
fixpack[color=blue][color=green]
> > 6. On db2 version 7.2 it worked fine.
> >[/color]
>
> Please post an example of string used and code demonstrating this problem.[/color]
A[color=blue]
> very short VB program inserting a timestamp value to a table defined with[/color]
one[color=blue]
> column f type timestamp would be sufficient.
>
> Jan M. Nelken[/color]
This is out VB program where the error occurs. As you can see it first sets
the parameter, and then executes a stored procedure. I have also included
the declarations for the stored procedure.
We don't want to make any changes to the code since this is working fine in
V7 of DB2. And I cannot see why an upgrade of DB2 should trigger a rewrite
of code. Is there anything else we should be aware of and which have changed
since V7, for instance setting of environment variables or settings in the
db2cli.ini file ?
THE VB CODE:
public function ........ ()
On Error GoTo errorhandling:
Dim rs As ADODB.Recordset
Dim cmd As Command
Dim param As ADODB.Parameter
Dim RetVal As Date
Set cmd = New ADODB.Command
cmd.ActiveConnection = mConn
cmd.CommandText = vardb + "HentServerTid"
cmd.CommandType = adCmdStoredProc
--> Set param = cmd.CreateParameter("tid", adDBTimeStamp, adParamOutput)
cmd.Parameters.Append param
Set cmd.ActiveConnection = mConn
--> Set rs = cmd.Execute
RetVal = CDate(cmd("tid"))
FinnDatoTid = RetVal
Set rs = Nothing
Exit Function
And this the declaration for the stored procedure:
#include <memory.h> /* for memcpy() */
#include <string.h>
#include <sqlenv.h>
#include <sql.h>
#include <sqlda.h>
#include <stdio.h>
SQL_API_RC SQL_API_FN HentServerTid(
void *reserved1,
void *reserved2,
struct sqlda *inout_sqlda,
struct sqlca *ca)
{
/* Declare Host Variables */
EXEC SQL BEGIN DECLARE SECTION;
--> char tid[27] = {'\0'};
EXEC SQL END DECLARE SECTION;
/* Declare a local SQLCA */
EXEC SQL INCLUDE SQLCA;
EXEC SQL WHENEVER SQLWARNING CONTINUE;
EXEC SQL WHENEVER SQLERROR GOTO error_exit;
short length;
....
--
Regards
-----------
Odd Bjørn Andersen
ErgoSolutions AS
Postboks 4364 Nydalen, 0402 Oslo
Telefon 23 14 50 00, Telefaks 23 14 50 01
Direkte tlf.nr. 23 14 46 73, Mobilnr 970 84597
www.ergogroup.no 
