Hirdetés
Új hozzászólás Aktív témák
-
Notes
senior tag
Sziasztok!
Report-ot gyártok éppen. Két Paradox táblából szedem ki az adatokat, két Query-vel (pl. Q1,Q2) Az a gondom, hogy (tudtommal) a QuickRep-nek csak egy DataSet jellemzője lehet, így az egyik Query nem érvényesül, csak amelyik ide be van állítva. A másikhoz tartozó QRDBText egyszerűen nem jelenik meg, illetve a QRExpr nullát ad vissza. Hogy lehet ezt megoldani? -
Notes
senior tag
Köszi! Végre életet leheltél a fórumba!
Végül így oldottam meg (Thx to prog.hu community!):
Begin
Close;
Clear;
Add('SELECT *');
Add('FROM TranzTabla');
Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');
If LekerdFelhComboBox.ItemIndex>0 Then
Add ('AND (Felhasznalo= '+ Quotedstr(LekerdFelhCombobox.text)+')');
If LekerdPartnerComboBox.ItemIndex>0 Then
Add ('AND (Partner= ' + Quotedstr(LekerdPartnerCombobox.text)+')');
If LekerdCimletCombobox.Itemindex>0 Then
Add ('AND '+ VPDataModule.TranzTabla.Fields[(LekerdCimletComboBox.ItemIndex)+5].FieldName +' is not null');
Prepare;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;
Open;
end;
end;
Ez egy DBGrid-re irányítva hibátlanul működik. De ha a Query-t egy Reportra teszem és annak az OnPreview eseményekor hívom meg a fenti kódot, akkor mindig csak a feltételeknek elsőként megfelelő rekord jelenik meg, de az annyiszor, ahány rekord megfelel az SQL statement-nek. Nem tudom ez így érthető-e?
Az egyik könyvben azt olvastam, hogy a Query-hez kapcsoljak DataSource-t is. Minek? Lehet közvetlenül is hivatkozni rá nem? -
Notes
senior tag
No elkezdtem SQL-ezni. A SELECT utasítás egyszerűségéből fakadó sikerélmények után ( :) ) Kicsit elakadtam. Az alábbi kód a form-on lévő ComboBox-ok adatai alapján szűri a táblát. Pontosabban nem szűri... 'Parameter 'Felhaszn' not found-al leáll futás közben. Mit rontottam el?
With Query1, SQL Do
Begin
Close;
Clear;
ParamByName('Felhaszn').AsString:=LekerdFelhComboBox.Text;
ParamByName('Partn').AsString:=LekerdPartnerComboBox.Text;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;
Add('SELECT *');
Add('FROM TranzTabla');
Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');
If LekerdFelhComboBox.ItemIndex>0 Then
Add ('AND (Felhasznalo= :Felhaszn)');
If LekerdPartnerComboBox.ItemIndex>0 Then
Add ('AND (Partner= :Partn)');
Open;
end;
end;
Illetve átolvastam 3 könyvet, de a Prepare helyes használatát nem sikerült megértenem (leginkább akkor működik minden jól, ha nem használom...) Erről is jó lenne egy kis útbaigazítás.
Köszi!
[Szerkesztve] -
-
Notes
senior tag
Milyen ID-ket?
De ha már itt tartunk ez az egész Form arról szól, hogy egy táblából feltöltök combobox-kat (mezőnként egy box), aztán egy lekérdez megnyomásásval a user csak azokat a rekordokat kapja vissza egy reportban, amiknek a tartalma megegyezik a comboboxok tartalmáva. Persze a dolog nem ilyen egyszerű, mert egy dátumtól-ig szűrés mindenképpen van a többi szűrés viszont csak akkor, ha a combobox előtti checkbox-ot kipipálja a felhasználó. Na képzelheted azt az Acces ágat az OnFilterRecord eseménykezelőben... mire azt összehozom... Azt hiszem erre mondják, hogy tipikus SQL megoldást kívánó dolog, de azt nem vágom. Valami ötlet? -
Notes
senior tag
-
Ez egy DBLookUPComboBox (Utálom ezeket a hosszú neveket...) És annak már tényleg nincs ItemIndex tulajdonsága. Akkor marad a jó öreg ComboBox, meg egy kis kódolás a feltöltésére.
Új hozzászólás Aktív témák
- Microsoft Surface Laptop 5 13,5" Fekete i7-1265U 16GB 512GB magyarbill 1 év garancia
- Telefon felváráslás!! Samsung Galaxy S22/Samsung Galaxy S22+/Samsung Galaxy S22 Ultra
- Jabra Speak2 75 MS Teams USB-bluetooth hangszóró
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
- Akció! Hordozható GAMER Monitor! MSI MAG162V ! 15.6 1920x1080 FULLHD! Bolti ár fele!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest