vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Access: Bug - Abfragen total unsichtbar machen 
Autor: JOMA
Datum: 02.07.03 11:09

Hallo Dietmar!

Danke für Deine Mühe!!! Ich verwende im Gegensatz zu Dir ADOX. Die
Access-Datenbank wird nur von VB geöffnet und ist sonst nicht nochmals
geöffnet. Wo hast Du das Refresh ausgelöst, in VB per Code oder
in der Entwicklungsumgebung von Access??? Was für ein Refresh, auf
welcher Ebene? Bei mir verwende ich
per Code Cat.Procedures.Refresh. Der Witz ist ja, andere Proceduren
werden korrekt unter Abfragen in Access angezeigt, nur eben nicht die
UNION! Kannst Du das Ganze mal mit ADOX reproduzieren?

Bis bald
Jörg


'********************************************
Public Type procedurestruktur
name As String
command As String
'******************************************
Dim procedure As procedurestruktur
Dim Cat As ADOX.Catalog
Dim s_fehler_datei As String

Cat ---> muss noch belegt werden
procedure ---> muss noch belegt werden

Call CreateFunktion(Cat, procedure, s_fehler_datei)

'******************************************
Public Sub CreateFunktion(Cat As ADOX.Catalog, _
procedure As procedurestruktur, _
s_fehler_datei As String)
Dim cmd As New ADODB.command
Dim s_ausgabe_gesamt As String

On Error GoTo CreateProcedureError

cmd.ActiveConnection = Cat.ActiveConnection
cmd.CommandText = procedure.command

s_ausgabe_gesamt = procedure.name + vbCrLf + _
procedure.command

If s_ausgabe_gesamt <> "" Then
'frm_msgbox.Show vbModal
End If

Cat.Procedures.Append procedure.name, cmd

'Evtl. Fehler protokollieren
If Err.Number <> 0 Then
Call write_errorlogfile(s_fehler_datei, _
"CreateFunktion", _
Err.description)
Err.Clear
End If

Cat.Procedures.Refresh

Set cmd = Nothing
Exit Sub

CreateProcedureError:
On Error Resume Next
Resume
End Sub
0
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Access: Bug - Abfragen total unsichtbar machen752JOMA01.07.03 20:40
Re: Access: Bug - Abfragen total unsichtbar machen419Dietmar02.07.03 09:17
Re: Access: Bug - Abfragen total unsichtbar machen410JOMA02.07.03 11:09
Re: Access: Bug - Abfragen total unsichtbar machen386Dietmar14.07.03 15:12

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel