Nobody?

I had what I thought was a Eureka moment, when I remembered the db was
created using 2.1, so I created a new one with 2.5 to get the latest ODS
- no difference... Bang goes that theory.

But an interesting thing is - if I run it from the IDE (C++ Builder
2010), I get the error, but if I run the exe directly it simply doesn't
pick up any rows (even though the params are correct and it should be
picking up rows)

In desperation, I've even had a look at MSSQL's free edition as an
alternative - Why I even thought that might be a reasonable road to go
down I don't know.

I am running out of time. I need to solve this _VERY_ soon

On Fri, 2010-11-19 at 09:37 +1100, Peter Faulks wrote:
> The function below used to work.
>
> The only changes I've made is to go from global XSQLDA's to declaring
> them locally.
>
> I get a numeric overflow error.
>
> When I hard code all the values into the SQL statement it works as
> expected.
>
> I've tried hard-coding the date and leaving the other two params, and as
> you can see hard-coding the date and trk and leaving one param.
>
> Is there something stupid that I'm doing wrong?
>
>
>
>
> //---------------------------------------------------------------------------
>
>
>
> #define START_READ_ONLY_TRANS { \
> if (isc_start_transaction(status, &read_only_trans, 1, &db, read_only_tpb_len, read_only_tpb)) \
> { \
> errorMsg_isc_interprete("isc_start_transaction"); \
> } }
>
> #define COMMIT_READ_ONLY_TRANS { \
> if (isc_commit_transaction(status, &read_only_trans)) \
> { \
> errorMsg_isc_interprete("isc_commit_transaction"); \
> } }
>
>
>
>
>
>
>
> void TFormMain::Function_that_doesnt_work_and_is_giving_me_a_ton_of_grief()
> {
> ISC_DATE Hrcdate;
> char HtrkStr[8], Hstrtime[16];
> short Hcatgry, Hraceno, Hrdist, Hstrs;
> int Hraceref, Hprzmny;
> SQL_VARCHAR(6) Hcls;
> SQL_VARCHAR(3) Hage;
> SQL_VARCHAR(4) Hsex;
> SQL_VARCHAR(61) Hracename;
>
> isc_stmt_handle stmt = NULL;
>
>
>
> strcpy(sqlBuff, "SELECT r.raceref, r.raceno, CAST(CAST(DATEADD(tz.diffmins MINUTE TO r.utc) AS TIME) AS CHAR(13)), "
> "r.dist, r.cls, r.age, r.sex, r.przmny, r.strs, r.racename "
> "FROM races r JOIN tracks t ON r.trk = t.trk JOIN timezones tz ON t.state = tz.state "
> "WHERE r.rcdate = '2009-05-01' AND r.trk = 'D''Ben' AND r.catgry = ? "
> "ORDER BY r.raceno ");
>
> /*
> strcpy(sqlBuff, "SELECT r.raceref, r.raceno, CAST(CAST(DATEADD(tz.diffmins MINUTE TO r.utc) AS TIME) AS CHAR(13)), "
> "r.dist, r.cls, r.age, r.sex, r.przmny, r.strs, r.racename "
> "FROM races r JOIN tracks t ON r.trk = t.trk JOIN timezones tz ON t.state = tz.state "
> "WHERE r.rcdate = '2009-05-01' AND r.trk = 'D''Ben' AND r.catgry = 1 "
> "ORDER BY r.raceno ");
> */
>
> XSQLDA *sqldaIn = (XSQLDA *) malloc(XSQLDA_LENGTH(1));
> XSQLDA *sqldaOut = (XSQLDA *) malloc(XSQLDA_LENGTH(10));
> sqldaIn->version = SQLDA_VERSION1;
> sqldaOut->version = SQLDA_VERSION1;
>
> sqldaIn->sqld = 1;
> sqldaIn->sqln = 1;
>
> sqldaOut->sqld = 10;
> sqldaOut->sqln = 10;
> START_READ_ONLY_TRANS
> if (isc_dsql_allocate_statement(status, &db, &stmt))
> {
> errorMsg_isc_interprete("isc_dsql_allocate_statement");
> }
> if (isc_dsql_prepare(status, &read_only_trans, &stmt, 0, sqlBuff, 3, sqldaOut))
> {
> errorMsg_isc_interprete("isc_dsql_prepare");
> }
> /*
> if (isc_dsql_describe_bind(status, &stmt, 1, sqldaIn))
> {
> errorMsg_isc_interprete("isc_dsql_describe_bind");
> }
> */
> /*
> tDateTime_2_ISC_DATE(&Hrcdate, DTraceDay);
> sqldaIn->sqlvar[0].sqltype = SQL_TYPE_DATE;
> sqldaIn->sqlvar[0].sqllen = sizeof(ISC_DATE);
> sqldaIn->sqlvar[0].sqldata = (char *)&Hrcdate;
> */
> //strcpy(HtrkStr, trks->Strings[LVmeetings->Selected->Index].t_str());
> /*
> strcpy(HtrkStr, "D'Ben");
> sqldaIn->sqlvar[0].sqltype = SQL_TEXT;
> sqldaIn->sqlvar[0].sqllen = strlen(HtrkStr);
> sqldaIn->sqlvar[0].sqldata = HtrkStr;
> //Hcatgry = (short) trks->Objects[LVmeetings->Selected->Index];
> */
> Hcatgry = 1;
> sqldaIn->sqlvar[0].sqltype = SQL_SHORT;
> sqldaIn->sqlvar[0].sqllen = sizeof(SQL_SHORT);
> sqldaIn->sqlvar[0].sqldata = (char *)&Hcatgry;
>
> // ShowMessage(String(ISC_DATE_2_Dd_dd_Mmm_YY(strFmtBuf, Hrcdate)) + String(", ") + String(HtrkStr) + String(", ") + String(Hcatgry));
> if (isc_dsql_describe(status, &stmt, 1, sqldaOut))
> {
> errorMsg_isc_interprete("isc_dsql_describe");
> }
>
> sqldaOut->sqlvar[0].sqldata = (char *)&Hraceref;
> sqldaOut->sqlvar[1].sqldata = (char *)&Hraceno;
> sqldaOut->sqlvar[2].sqldata = (char *)&Hstrtime;
> sqldaOut->sqlvar[3].sqldata = (char *)&Hrdist;
> sqldaOut->sqlvar[4].sqldata = (char *)&Hcls;
> sqldaOut->sqlvar[5].sqldata = (char *)&Hage;
> sqldaOut->sqlvar[6].sqldata = (char *)&Hsex;
> sqldaOut->sqlvar[7].sqldata = (char *)&Hprzmny;
> sqldaOut->sqlvar[8].sqldata = (char *)&Hstrs;
> sqldaOut->sqlvar[9].sqldata = (char *)&Hracename;
>
> if (isc_dsql_execute(status, &read_only_trans, &stmt, 1, sqldaIn))
> {
> errorMsg_isc_interprete("isc_dsql_execute");
> }
> int i = 0, fetch_stat;
> while ((fetch_stat = isc_dsql_fetch(status, &stmt, 1, sqldaOut)) == 0)
> {
> TabCtrlRaces->Tabs->AddObject(" " + String(Hraceno), (System::TObject*) Hraceref);
> LVraceDtls->Items->Add();
> LVraceDtls->Items->Item[i]->Data = (void *) Hraceref;
> LVraceDtls->Items->Item[i]->Caption = Hraceno;
> *(Hstrtime + 5) = '\0';
> LVraceDtls->Items->Item[i]->SubItems->Add(Hstrtime);
> LVraceDtls->Items->Item[i]->SubItems->Add(Hrdist);
> *(Hcls.data + Hcls.len) = '\0';
> *(Hage.data + Hage.len) = '\0';
> *(Hsex.data + Hsex.len) = '\0';
>
> sprintf(strFmtBuf, "%-5s %s %s", Hcls.data, Hage.data, Hsex.data);
> LVraceDtls->Items->Item[i]->SubItems->Add(strFmtBuf);
> sprintf(strFmtBuf, "%.1f", ((float)Hprzmny*0.001));
> LVraceDtls->Items->Item[i]->SubItems->Add(strFmtBuf);
> LVraceDtls->Items->Item[i]->SubItems->Add(Hstrs);
> *(Hracename.data + (int)Hracename.len) = '\0';
> LVraceDtls->Items->Item[i]->SubItems->Add(Hracename.data);
> i++;
> }
> ShowMessage(fetch_stat);
> LVraceDtls->Items->EndUpdate();
> COMMIT_READ_ONLY_TRANS
> isc_dsql_free_statement(status, &stmt, DSQL_drop);
> free(sqldaIn);
> free(sqldaOut);
> }