title image


Smiley Re: Abfrage aus Access in VB5 drucken?
Hi dominik!



Wenn du mit "Abfrage mit Bedingung" eine parametrisierte Abfrage meinst, dann geht das, wie unten gezeigt:







Option Explicit

Option Compare Text



Sub TranslateInit(ViewModus As Integer)

Set qdfTranslation = DB.QueryDefs("qdfTranslation")         'Abfrage mit 3 Parametern

'Übersetzungstabelle aller SQL-Begriffe für diesen ViewModus holen

qdfTranslation("ViewModus") = ViewModus                 'Integer-Parameter "ViewModus"

qdfTranslation("IsTable") = True                                 'Bool-Param "IsTable"

qdfTranslation("IsField") = True                                 'Bool-Param "IsField"

Set rsGes = qdfTranslation.OpenRecordset(dbOpenSnapshot)

End Sub





 Code eingefügt mit Syntaxhighlighter 1.16



Das Beispiel benutzt eine DAO-Database, oder machst du das anders?

Es greift auf das QueryDef-Objekt "qdfTranslation" zu (eine Abfrage in meiner Datenbank), und übergibt ihr zunächst die 3 Parameter, bevor das Recordset geöffnet werden kann.

Hoffnung trügt.

(eigentlich dürfte man im Spotlight-VB-Forum keine Fragen stellen, wenn man nicht vorher auf ActiveVB geguckt hat)




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: