Prikazi cijelu temu 24.09.2013-20:32
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


Subject: Temp Query
Da nebi pravili mnostvo Querya, mozete jedan koristiti vise puta.
Napravite neki Query o zelji samo mu ime mora biti TempQ.
DownloadIzvorni kod (Visual Basic):
  1. Function QueryTemp(SQL As String) As Boolean
  2. Dim Db As Database
  3. Dim QTemp As QueryDef
  4.  
  5. On Error GoTo Greska
  6. Set Db = CurrentDb
  7. Set QTemp = Db.QueryDefs("TempQ")
  8. QTemp.SQL = SQL
  9. QueryTemp = True
  10. Izlaz:
  11. Exit Function
  12. Greska:
  13. QueryTemp = False
  14. End Functio
n
Pokrenite ovu proceduru te nakon toga pogledajte svoj Query.

DownloadIzvorni kod (Visual Basic):
  1. Function PozivQ()
  2. Dim SQL As String
  3. Dim I As Boolean
  4. SQL = "SELECT * FROM MsysObjects"
  5. I = QueryTemp(SQL)
  6. End Function

Pozdrav