20-07-2020, Saat: 23:20
Merhaba;
Mysql db'den aşağıdaki kodlarla verileri listeliyorum. Seçtiğim bir üründen sadece bir tane rast gele gelmesini nasıl sağlarım?
FDQ.Connection := FDConnection1; FDQ.Active := False; FDQ.Close; FDQ.SQL.Clear; FDQ.SQL.Add('Select * From Urunler'); FDQ.SQL.Add('Where Durum Like ' + QuotedStr('%Yeni%')); FDQ.SQL.Add('And(Urunname Like ' + QuotedStr('%' + 'Kurşun Kalem' + '%')); FDQ.SQL.Add('Or Urunname Like ' + QuotedStr('%' + 'Tükenmez kalem' + '%')); FDQ.SQL.Add('Or Urunname Like ' + QuotedStr('%' + 'Dolma Kalem' + '%')); FDQ.SQL.Add(')'); FDQ.SQL.Add('Order By Must Asc'); FDQ.Prepared := True; FDQ.Open; while Not FDQ.Eof do begin LItem := ListView1.Items.Add; LItem.Data['Urunname'] := TrimLeft(FDQ.FieldByName('Urunname').AsString);
Mysql db'den aşağıdaki kodlarla verileri listeliyorum. Seçtiğim bir üründen sadece bir tane rast gele gelmesini nasıl sağlarım?
FDQ.Connection := FDConnection1; FDQ.Active := False; FDQ.Close; FDQ.SQL.Clear; FDQ.SQL.Add('Select * From Urunler'); FDQ.SQL.Add('Where Durum Like ' + QuotedStr('%Yeni%')); FDQ.SQL.Add('And(Urunname Like ' + QuotedStr('%' + 'Kurşun Kalem' + '%')); FDQ.SQL.Add('Or Urunname Like ' + QuotedStr('%' + 'Tükenmez kalem' + '%')); FDQ.SQL.Add('Or Urunname Like ' + QuotedStr('%' + 'Dolma Kalem' + '%')); FDQ.SQL.Add(')'); FDQ.SQL.Add('Order By Must Asc'); FDQ.Prepared := True; FDQ.Open; while Not FDQ.Eof do begin LItem := ListView1.Items.Add; LItem.Data['Urunname'] := TrimLeft(FDQ.FieldByName('Urunname').AsString);