AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Problems with String-Report-Parameter

Ein Thema von Muehle · begonnen am 30. Nov 2006
Antwort Antwort
Muehle

Registriert seit: 24. Nov 2006
Ort: 92331 Parsberg
24 Beiträge
 
Delphi 2005 Architect
 
#1

Problems with String-Report-Parameter

  Alt 30. Nov 2006, 12:23
I'm using Reportmanager 2.4 e from Sourceforge.

I've a Report with the following Select :
SQL-Code:
SELECT m.id, m.vorname, m.nachname, m.email,tm.User,t.Bezeichnung
FROM mitarbeiter as m
left JOIN termine_mitarbeiter as tm ON m.id = tm.User
left JOIN termine as t ON tm.termin=t.id
where m.nachname like Concat(:mitarbeiternamebeg,'%')
order by m.id Asc;
mitabeiternamebeg is my Parameter, value e.g. 'M'. In the Preview
the Report is working fine, and there are all Records with
nachname beginning with e.g. M.

But now I'm setting the Parameter as Char or Widechar in a Delphi-
Program, using the Library reportman.ocx, dated from the 18.05.05.

The Constant-Value of PARTYPE_CHAR=256.

It s all working fine , but there's no Output in the resulting Pdf-
File. What s wrong, Im using a Mysql-Database ???

There's no Problem with Integer or Float - Type. But String-Types aren't
working.

*************************************
I'm using the following Delphi-Code :
*************************************
*************************************
Delphi-Quellcode:
begin
ReportHandle := rp_open(PChar(ReportFile));
if ReportHandle = 0 then
raise Exception.Create(rp_lasterror());

try

if Assigned(Params) then

for Index := 0 to Params.Count - 1 do

begin

// jetzt alle uebergebenen Parameter setzen
thePar := TDialogReportParameter(Params.Objects[Index]); //
als Objekt liegen TDialogReportParameter vor
S:= thePar.Wert;

Result := 0;
case thePar.Typ of

.............


PARTYPE_CHAR:
Result := rp_setparamvalue(ReportHandle, PChar
(thePar.Name), thePar.Typ, @S);

..........


end;

if Result = 0 then
raise Exception.Create(rp_lasterror());

end;


Result := rp_execute(ReportHandle, PChar(Output), 0, 1);

//S:='Test Druckausgabe';
//Result := rp_print(ReportHandle, PChar(S),1, 1);

if Result = 0 then
raise Exception.Create(rp_lasterror());

finally

Result := rp_close(ReportHandle);
if Result = 0 then
raise Exception.Create(rp_lasterror());

end;

end;
:gruebel:

[edit=SirThornberry]Delphi-Tags and SQL-Tags set - Mfg, SirThornberry[/edit]
G.M.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz