The scenario:

Lazarus 0.9.25 svn: 16095M
fpc 2.2.2
Ubuntu 8.04 GTK2
SQLDb components
TIBConnection

The following query works well:

    qry02.SQL.Clear;
    qry02.SQL.Text:= 'select PASSWOR from USUARIOS where CODUSU = ' +
chr(39) + trim(pUsuario) + chr(39);
    trn02.Active:=true;
    qry02.Open;
    ContrasenaDB:=qry02.FieldByName('PASSWOR').AsString;         // <--
ContrasenaDB get the value from the query

But this one don't get the value of 'PASSWOR':

    qry02.SQL.Clear;
    qry02.SQL.Text:= 'select PASSWOR from USUARIOS where CODUSU = :pCODUSU';
    qry02.Params.ParamByName('pCODUSU').AsString:= trim(pUsuario);
    trn02.Active:=true;
    qry02.Open;
    ContrasenaDB:=qry02.FieldByName('PASSWOR').AsString;        // <---
ContrasenaDB is empty

(The second code was working with fpc 2.2.0 and the UIB components, with some changes. When upgrade to fpc 2.2.2 i began to replace de UIB with the default SQLDb componentes).

TIA.

Eduardo.

I have parameters working. Is the ParseSQL property set to 'True' ?

Michael.

Op maandag 18-08-2008 om 09:14 uur [tijdzone +0200], schreef Michael Van Canneyt:

That shoudn't make any difference. What if you use
params[0].asstring := ... ?

Joost

The first one has quotes around the data string you are comparing against, has the second one got the quotes too when it's passed to the database?

You should never put the quotes manually for parameters. The engine will do so if it is required.

Michael.

Joost van der Sluis escribi?:

First, thanks all for yours reply.

The ParseSQL has no effect.

Joost, the change you suggest don't work too.

I isolate the problem doing a simple program and the problem remains. Then make a copy of this simple program and change the components to Zeos. (6.6.3-stable) and works well.

I'll consider change the sqldb components for Zeos in my application as a possible solution. But the sqldb must be work (i think :-) ).

Thanks to all.

Eduardo.

Op maandag 18-08-2008 om 15:38 uur [tijdzone -0300], schreef Eduardo Lopez:

Offcourse, but then we have to find the problem. Parameters do work here, also in the testsuite. What happens if you remove the 'trim' in both cases? (Without the parameter and with?)

Joost

Joost van der Sluis escribi?:

I tried and nothing happens.
I prepare the sample proyect, if someone want to see it and can find what stupid thing i'm doing... ;-)

http://www.sistemasrpm.com.ar/soporte/test_param.tar.g

TIA.
Eduardo.

I get a permission denied error trying to access this URL, and the same when I add a .gz

Michael.

I can download:
http://www.sistemasrpm.com.ar/soporte/test_param.tar.gz

Vincent

Hehe, it's anti-robot measures. But I can circumvent that :-)

gru: >wget http://www.sistemasrpm.com.ar/soporte/test_param.tar.gz --09:43:58-- http://www.sistemasrpm.com.ar/soporte/test_param.tar.gz => `test_param.tar.gz'
Resolving www.sistemasrpm.com.ar... 201.216.232.68 Connecting to www.sistemasrpm.com.ar|201.216.232.68|:80... connected. HTTP request sent, awaiting response... 403 Forbidden 09:44:01 ERROR 403: Forbidden.

gru: >wget --user-agent=Konqueror
http://www.sistemasrpm.com.ar/soporte/test_param.tar.gz --09:44:53-- http://www.sistemasrpm.com.ar/soporte/test_param.tar.gz => `test_param.tar.gz'
Resolving www.sistemasrpm.com.ar... 201.216.232.68 Connecting to www.sistemasrpm.com.ar|201.216.232.68|:80... connected. HTTP request sent, awaiting response... 200 OK
Length: 2,842 (2.8K) [application/x-gzip]

100%[================================================================================>] 2,842 --.--K/s

09:44:54 (194.02 KB/s) - `test_param.tar.gz' saved [2842/2842]

Michael.

Can you please provide the CREATE statement for the table ? Without the correct table definition, it's hard to test.

Michael.

I'm sorry, my mistake :-)

Jua!.. this is my second stupid think.

Thanks to all.

Eduardo

Hehe, it's anti-robot measures. But I can circumvent that :-)

I'm sorry. The table has a basic structure:

CREATE TABLE USUARIOS
(
CODUSU Char(12) NOT NULL,
APENOMB Char(40) NOT NULL,
PASSWOR Char(12) NOT NULL,
CONSTRAINT PK_USUARIOS PRIMARY KEY (CODUSU)
);

Thanks. Eduardo.

Eduardo Lopez wrote

I'm sorry. The table has a basic structure:

CREATE TABLE USUARIOS
(
CODUSU Char(12) NOT NULL,
APENOMB Char(40) NOT NULL,
PASSWOR Char(12) NOT NULL,
CONSTRAINT PK_USUARIOS PRIMARY KEY (CODUSU)
);

Aha.
This is probably your problem. Try extending the parameter value so it has the declared length by padding it with spaces.

The other way is to declare the table as
CREATE TABLE USUARIOS
(
CODUSU VARChar(12) NOT NULL,
APENOMB VarChar(40) NOT NULL,
PASSWOR VarChar(12) NOT NULL,
CONSTRAINT PK_USUARIOS PRIMARY KEY (CODUSU)
);

Could you try this ?

Michael.

try UIB + FBDataset. Is very, very good.

2008/8/18 Eduardo Lopez

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.lazarus.freepascal.org/pipermail/lazarus/attachments/20080819/a6cec4f5/attachment.html

Yes!! It works now.!!

My challenge is now:

a) modify all my db structure or b) replace the sqldb components with zeos.

Thank you very much to all!!

Eduardo.

Eduardo Lopez wrote

I'm sorry. The table has a basic structure:

CREATE TABLE USUARIOS
(
CODUSU Char(12) NOT NULL,
APENOMB Char(40) NOT NULL,
PASSWOR Char(12) NOT NULL,
CONSTRAINT PK_USUARIOS PRIMARY KEY (CODUSU)
);

Aha.
This is probably your problem. Try extending the parameter value so it has the declared length by padding it with spaces.

The other way is to declare the table as
CREATE TABLE USUARIOS
(
CODUSU VARChar(12) NOT NULL,
APENOMB VarChar(40) NOT NULL,
PASSWOR VarChar(12) NOT NULL,
CONSTRAINT PK_USUARIOS PRIMARY KEY (CODUSU)
);

Could you try this ?

Michael.

Hi Osvaldo.

This was working with UIB and fpc 2.2.0.
When change to fpc 2.2.2 the UIB 2.1 don't work anymore.

I've tried the svn version of UIB, but i can't make it compile. Because it, i began to try the sqldb an zeoslib (with just a "new" stable release..)

Thanks!!. Eduardo.

Eduardo Lopez pisze:

c) write padding function

:-)

Or pad your parameters.

Meanwhile I think I know why the problem exists, I will consult with Joost for a test and possible solution.

After we've committed a fix, you can then remove the padding function.

Michael.

strutils?

Op dinsdag 19-08-2008 om 17:11 uur [tijdzone +0200], schreef Michael Van Canneyt:

The problem is fixed in trunk. If you don't want to use trunk, or find it too much of a hassle. You can just place the new 'ibconnection.pp' unit in the search-path of your project.
(http://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/packages/fcl-db/src/sqldb/interbase/ibconnection.pp?revision=11629)

Can you try and please give some feedback, so we know it's really solved?

Joost.