search

mrpostiga / fenixsql

simple admin tools for firebird sql database
Other
0 stars 1 forks source link

TFBLDataset Error #2

Closed GoogleCodeExporter closed 8 years ago

GoogleCodeExporter commented 8 years ago 
What steps will reproduce the problem?
1. TFBLDataset do not resolve select with left join null

What is the expected output? What do you see instead?
When click Active = True show the error "Access Violation"

What version of the product are you using? On what operating system?
FBLib 0.86

Example:
Table FATHERS
1 - JOHN

Table SONS (is Empty)

SQL
select * from fathers f
left join sons s on f.id_father = s.id_father

Original issue reported on code.google.com by fernban...@gmail.com on 18 Feb 2013 at 4:14

GoogleCodeExporter commented 8 years ago 
I'm solved the problem

in file fbldataset.inc
changed

     SQL_TEXT:
         begin
          TempStr := FDsql.FieldAsString(i);
          Move(TempStr[1],(bData)^,FDsql.FieldSize(i))
         end;     

for
     SQL_TEXT:
         begin
          TempStr := FDsql.FieldAsString(i);
          if TempStr <> '' then
            Move(TempStr[1],(bData)^,FDsql.FieldSize(i)) 
          else
            Move('',(bData)^,FDsql.FieldSize(i));
         end;

Original comment by fernban...@gmail.com on 18 Feb 2013 at 5:27

GoogleCodeExporter commented 8 years ago 
Attach File Solved

Original comment by fernban...@gmail.com on 18 Feb 2013 at 4:31

Attachments:

GoogleCodeExporter commented 8 years ago 
thank you for patch

Original comment by fenis...@gmail.com on 6 Mar 2013 at 9:28