Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ODBC Datenquelle abfragen

ODBC Datenquelle abfragen
SteffenS
Hallo Zusammen,
wie kann ich mit VBA abfragen ob eine bestimmte ODBC Quelle vorhanden und erreichbar ist,
bevor ich eine Abfrage starte.
Danke im Voraus.
Steffen Schmerler

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
SourceDataFile oder SourceConnectionFile
22.04.2010 22:39:03
NoNet
Hallo Steffen,
um welche Art von ODBC-Verbindung handelt es sich denn ? Mit welcher Datei ist Deine Mappe verknüpft ?
Je nach Art könnte z.B. eine der beiden Anweisungen die Quelldatei ermitteln :
strDatei = ActiveSheet.QueryTables(1).SourceDataFile
oder :
strDatei = ActiveSheet.QueryTables(1).SourceConnectionFile
Mit folgender Anweisung könntest Du prüfen, ob die Datei existiert :
If Dir(strDateiname)"" then
Evtl. hilft auch folgende Anweisung :
strDatei = ActiveSheet.QueryTables(1).Connection
Das Ergebnis kannst Du dann per Split(strDatei,";") "zerlegen", um daraus den Pfad der verknüpften Datei auszulesen...
Hope that helps,
Gruß NoNet
Anzeige
ich hole meine Daten dynamisch
22.04.2010 23:37:06
SteffenS
mein Code ist z.B.:
WS.Cells.ClearContents
With WS.QueryTables.Add(Connection:="ODBC;DSN=" & odbcn & ";DB=" & dbname & ";HOST=" & hname & ";SERV=sqlexec;SRVR=" & hserver & ";PRO=sesoctcp;UID=" & bname & ";PWD=" & bpswd, Destination:=WS.Range(dbdest))
.CommandText = Array("SELECT ...........")
.Name = "db_abfrage"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
'Datenbankverweis löschen
WS.Cells.QueryTable.Delete
Wie kann ich also vor der Abfrage abfragen ob die Datenquelle (ODBC Treiber zur einer Linux)
vorhanden und erreichbar ist?
Danke nochmal
VG
Steffen
Anzeige
SourceDataFile oder SourceConnectionFile
22.04.2010 22:39:44
NoNet
Hallo Steffen,
um welche Art von ODBC-Verbindung handelt es sich denn ? Mit welcher Datei ist Deine Mappe verknüpft ?
Je nach Art könnte z.B. eine der beiden Anweisungen die Quelldatei ermitteln :
strDatei = ActiveSheet.QueryTables(1).SourceDataFile
oder :
strDatei = ActiveSheet.QueryTables(1).SourceConnectionFile
Mit folgender Anweisung könntest Du prüfen, ob die Datei existiert :
If Dir(strDateiname)"" then
Evtl. hilft auch folgende Anweisung :
strDatei = ActiveSheet.QueryTables(1).Connection
Das Ergebnis kannst Du dann per Split(strDatei,";") "zerlegen", um daraus den Pfad der verknüpften Datei auszulesen...
Hope that helps,
Gruß NoNet
Anzeige
Danke
26.04.2010 20:54:06
SteffenS
Euch :-)

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige