A97 Count SQL

[christianwank]

Hallo,

ich will in VB in A97 ein SQL ausführen. Vorher will ich aber prüfen wieviele Datensätze ich nach dem Ausführen erhalten werde. Sind es 0 Datensätze will ich das SQL gar nicht erst ausführen.

[MoBaB]

sorry,

versteh gerade net genau was du brauchst.

(vielleicht isses noch zu früh)

gehts um das vb oder brauchst du ne sql-abfrage?

[christianwank]

Ich habe das SQL schon. Ich will es in Access 97 mittels VBA als RecordSource einem Bericht zuweisen.

Reports![rpt_termine].RecordSource = sql

Vorher will ich aber wissen wieviel Datensätze mir dabei angezeigt werden.

[developer]

Originally posted by christianwank

Ich habe das SQL schon. Ich will es in Access 97 mittels VBA als RecordSource einem Bericht zuweisen.

Reports![rpt_termine].RecordSource = sql

Vorher will ich aber wissen wieviel Datensätze mir dabei angezeigt werden.

Dann durchsuch doch deinen SQL String nach z.B. "," und zähl diese.

Würde wohl eher in die VB- Ecke passen.

[christianwank]

Warum die Kommas zählen. Verstehe ich nicht.

Ich möchte doch wissen wieviel Tuppel als Ergebnissmenge das SQL liefert. Nicht wieviele Spalten.

[Peregrin]

hi,

du kannst mit der sql-anweisung "select count(*) from tabelle where bedingung " die anzahl datensaetze fuer bedingung ermitteln.

je nach dbms kann auch das (mit ado) de eigenschaft recordset.recordcount (oder so aehnlich) das gewuenschte ergebnis liefern. haengt dann allerding wirklich von dem eingesetzten dbms ab...

hoffe geholfen zu haben.

[Meenzer]

Hallo!

Beim Bericht gibt es ein Ereignis 'Bei Ohne Daten' ( so heisst es beider deutschen Version ), wo Du ein Ereignis einfügen kannst, wenn der Bericht keine Daten hat.

Eine andere Möglichkeit ist wie schon erwähnt ein Recordset voher zu öffnen und zu schauen, ob es Daten enthält. ZB:

--------------------------------

Dim rs as Recordset

set rs = currentdb.openrecordset(DEINSQL,dbopensnapshot)

if rs.recordcount = 0 then

msgbox "Keine Daten

else

'Bericht öffnen

end if

rs.close

------------------------------

Gruss