Wie finde ich den vorherigen und nachfolgenden Record

[Josef_D]

Hallo Datenbankspezialisten,

ich suche Daten in einer MS SQL Datenbank in einer Tabelle mit momentan 20 exemplarischen Records. Ich finde über ein TADOQuery den gewünschten Record. Ich muß aber vom gefundenen Record aus den vorherigen Record in der Tabelle auch einlesen. Wie finde ich diesen ?
Wenn ich die RecNo des Queries auslese bekomme ich inmmer eine 1, tatsächlich ist jedoch die gefundene Zeile in der Originaltabelle die 14. Zeile und ich muß die 13. ebenfalls auslesen.

Wird jemand aus meiner Frage schlau und weiß Rat ?

Danke

[mkinzler]

In deiner Abfrage scheint es aber nur einen Datensatz zu geben, deshalb hat der die Nr. 1.

Wie sieht Deine Abfrage aus?

[Olli73]

Zitat von Josef_D:

Wenn ich die RecNo des Queries auslese bekomme ich inmmer eine 1, tatsächlich ist jedoch die gefundene Zeile in der Originaltabelle die 14. Zeile und ich muß die 13. ebenfalls auslesen.

Verabschiede dich einfach von der Vorstellung, dass jeder Datensatz in einer SQL-Datenbank eine feste (RecNo-)Nummer bzw. Position hat. Wenn du die Datensätze nummerieren willst, dann brauchst du ein Datenbankfeld das eine solche enthält. Dann kannst du eine SQL-Abfrage machen:

Code:

select * from MeineTabelle where MeinNummernFeld = 13

oder auch dafür sorgen, dass alle Daten in der gewünschten Reihenfolge erscheinen:

Code:

select * from MeineTabelle order by MeinNummernFeld

Dann kannst du dich auch mit Prior/Next in der Datenmenge bewegen.

[Josef_D]

Richtig, die Abfrage ergibt nur einen einzigen Datensatz. Aber ich benötige auch die Daten des vorherigen Records, dieser beinhaltet aber nicht den gesuchten Suchbegriff.

Die Abfrage lautet in etwa

qstring := 'SELECT [Time_ms],[MsgProc]'+
',[StateAfter]' +
',[MsgClass]' +
',[MsgNumber]' +
',[Var1]' +
',[Var2]' +
',[Var3]' +
',[Var4]' +
',[Var5]' +
',[Var6]' +
',[Var7]' +
',[Var8]' +
',[TimeString]' +
',[MsgText]' +
',[PLC]';
s := ' FROM [' + NameArchiv + inttostr(k) + '] ';
sub1 := 'Where var1 like ''%' + Edit3.Text + '%'''
qstring := qstring + sub1;

ADOQuery1.SQL.SetText(PWideChar(qstring));
ADOQuery1.Active := TRUE;

[DeddyH]

Was ist denn das Kriterium für den "vorherigen" Record?

[Josef_D]

Ein Kriterium für den vorherigen Record ist der gleiche TimeString bzw gleiches Time_ms wie bei der gefundenen Zeile. Mmh... ich könnte natürlich eine zweite Suche danach starten, aber das ist mir irgendwie nicht elegant genug , aber wenns nicht anders geht....

[DeddyH]

So richtig habe ich die Struktur zwar nicht verstanden, aber vielleicht hilft eine Subquery weiter in der Art

SQL-Code:

SELECT
  <FeldListe>
FROM
  <Tabelle>
WHERE
  TimeString =
  (
    SELECT
      TimeString
    FROM
      <Tabelle>
    WHERE
      var1 LIKE 'Wasweißich'
  )

[mkinzler]

Hat die Tabelle einen Primärschlüssel?

[Josef_D]

Die Tabelle wird von einem Siemens-Programm angelegt und hat keinen Primärschlüssel. Ich versuche gerade die Sache mit dem SubQuery, mal sehen ....

[Josef_D]

Das mit dem SubQuery hilft schon mal weiter, gute Idee, vielen Dank für die Hilfe.