[Access/VB] Query verwijderen *

[voodoo202]

Ik heb al vele pagina bezocht

bijv: http://www-tcsn.experts-e...MS_Access/Q_20715595.html

Maar het lukt niet. Ik heb in acces een query gemaakt. Deze staat er vast in. Nu verandert deze query regel matig, hij moet bijvoorbeeld een andere pk_waarde laten zien enz.

Nu wil ik dus vanuit VB die query verwijderen en opnieuw aanmaken via VB. Maar alleen het verwijderen kom ik al niet.


ik heb bijv. deze code geprobeerd, maar werken, niet echt.

code:

'In a module
Function AddQuery(QueryName As String, SQL As String, Optional ReplaceExisting As Boolean = True) As Boolean
   Dim qdf As QueryDef
   
   'Check if the query already exists
   On Error Resume Next
   Set qdf = CurrentDb.QueryDefs(QueryName)
   If Not qdf Is Nothing Then
       If ReplaceExisting Then
           CurrentDb.QueryDefs.Delete QueryName
           Err.Clear
       Else
           GoTo ExitProc
       End If
   End If
   
   'Set up new query...
   Set qdf = New QueryDef
   qdf.Name = QueryName
   qdf.SQL = SQL
   
   '...and append it to the database query objects
   CurrentDb.QueryDefs.Append qdf
   
   AddQuery = CBool(Err = 0) 'Return a succesful result (if no errors)
   
ExitProc:
   Set qdf = Nothing
End Function



'Now to add a query to the database use code along these lines
   Dim blnSuccesful

   blnSuccesful = AddQuery(QueryName:="query1", SQL:="SELECT * FROM namen WHERE voornaam = 2", _
      ReplaceExisting:=True)

   'Check Query was succesfully created
   If Not blnSuccesful Then
       Msgbox "Error creating query"
   End If

[whoami]

Kan je misschien even duidelijker formuleren wat je wilt, wat er niet lukt, etc.... want nu is dit zo onsamenhangend verteld, dat ik er geen hol van snap.

[voodoo202]

Het probleem is dat ik dus niet weet hoe ik het zo moet maken dat hij een query uit een ACCES database verwijdert. Dus niet een hele tabel, maar alleen de query.

Of hoe ik de SQL statement van die query kan aanpassen.

[Cai]

waarom maak je een query aan??
Voer hem uit!

[voodoo202]

Ik gebruik namelijk crystal reports, die maakt gebruik van de velden in die query. Nu doe ik in acces de SQL view veranderen. Alleen nu wil ik dat VB dat voor mij doet, dus of die SQL view aanpast, of gewoon de hele Query verwijdert, en een nieuwe aanmaakt. (natuurlijk met dezelfde naam).

[voodoo202]

Of heeft iemand een passende oplossing om gegevens in crystal reports te kunnen selecteren. Dus als ik in VB 1 klant selecteer dat ik ook alleen maar zijn gegevens in dat rapport krijg, en niet die van andere.

[KingRichard]

Ik zie dat je je best doet, maar je uitleg wordt er niet duidelijker op.
Ik denk dat je gewoon een query wilt veranderen. In VBA doe je dat met
CurrentDb.QueryDefs("Querynaam").SQL = "SELECT * FROM MyTable"
Als je de code in je startpost echt wilt testen moet je de error trapping even uitzetten (zet een ' voor de regel On Error Resume Next).