---
title: "Sökning From till Tom"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/122034-sökning-from-till-tom"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "BGM"
published: "2005-02-08T21:05:35.000Z"
updated: "2005-02-13T16:58:52.000Z"
replies: 5
views: 291
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/122034-sökning-from-till-tom"
---

# Sökning From till Tom

## #1 — BGM, 2005-02-08T21:05Z

Hej och tack Staffan jag fick följande kod av LarsG i WebForum SQL men när jag lägger in den i SQL Componenten, Delphi får jag den inte att fungera Alltså (:D) fungerar inte. Jag har provat med =:D och LIKE:D utan att lyckas. Är det någon som begriper bättre!

BGM

SELECT foo
FROM bar
WHERE
(:D)
 BETWEEN
foo and baz

Skiver jag så här fungerar koden:
SELECT foo
FROM bar
WHERE
 14
 BETWEEN
foo and baz

Men jag vill kuna välja vilket värde.

Här är koden för knappen.:
procedure TForm1.Button1Click(Sender: TObject);
var
 D : Smallint	; // D Nr
 begin
     Query1.Close;
     D:=StrToInt(Edit1.Text);
     Query1.Params\[0\].AsInteger := D;
     Query1.Open;
 end;

Permalänk: https://www.webforum.nu/p/122034

## #2 — Hardrocker, 2005-02-09T09:55Z

Jag har faktiskt aldrig använt mig av param funktionen på TQuery utan brukar lägga in allt i TQuery.SQL.

Alltså nåt sånt här:

```
aQuery := TQuery.Create(self);
aQuery.SQL.Add('select foo from bar where ');
aQuery.SQL.Add(Edit1.text);
aQuery.SQL.Add(' between foo and baz');
aQuery.Open;
```

Permalänk: https://www.webforum.nu/p/1549224

## #3 — BGM, 2005-02-10T19:33Z

Hej

Jag har skrivit in Din kod under en knapp och fått OK, men när jag kör vill SQL  componenten ha kod i SQL - vilken.

Jag använder Paradox och BDS

På något sätt har jag inte fårr grepp om hur du vill att det skall se ut 

BGM

Permalänk: https://www.webforum.nu/p/1550026

## #4 — Hardrocker, 2005-02-11T13:19Z

Du måste koppla aQuery till en databaskomponent som i sin tur kopplar till din paradoxdatabas.

TQuery är till för att köra via BDE (Borland Database Engine), vilket kräver att du lägger upp ett bdealias i bde administrator. Du hittar alla bdegrejorna under BDE-fliken på verktygspaletten.

Om du vill köra via ADO så använder du dig av motsvarande ADO-komponenter osv.

Vilken version av Delphi använder du dig av?
Mitt exempel är för Delphi 7.

Permalänk: https://www.webforum.nu/p/1550406

## #5 — BGM, 2005-02-12T19:08Z

Hej

Det du skriver har jag nog grep om, jag har skapat flera SQL-frågor genom att lägga dessa i TQuery´SQL plus en kod i knapen.

Vad jag inte förstår är behövs ingen TQuery eller ingen kod i SQL.

Du jar inget enkelt exempel där jag kan se hur Du menar.

Själv använder Delphi 6.

BGM

Permalänk: https://www.webforum.nu/p/1550953

## #6 — Hardrocker, 2005-02-13T16:58Z

Tyvärr så har jag inget lite exempel som jag kan skicka iväg men jag ska försöka förklara vad jag menar.

Med aQuery := TQuery.Create(Self) så skapar jag ett TQueryobjekt. Man kan lika gärna placera ut en TQuery på formuläret och använda sig av den istället.

Med SQL.Add så lägger man till sql-koden i aQuery. För att rensa bort det som ligger i SQL så använder man SQL.Clear.

aQuery.Open kör frågan och retunerar resultatet. Om frågan inte ska retunera något, man kanske gör en insert så är det bättre att köra execSQL.

Följande exempelkod fungerar mot SQL Server.

```
aQuery := TQuery.Create(Nil);
aQuery.Database := MyDatebase; //Ansluter den mot min databaskomponent.
aQuery.SQL.Add('select * from sysobjects');
aQuery.Open;
While not aQuery.Eof do
  ShowMessage(aQuery['name']);

aQuery.Close;
```

Hoppas att detta hjälper dig en bit på vägen.

Permalänk: https://www.webforum.nu/p/1551394

---

Tråden på webben: https://www.webforum.nu/amne/programmering/122034-sökning-from-till-tom