Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Makro ODBC Connect + Abfrage
zurück: formatierung oben bündig weiter: Problem mit Rows(":").Select Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Brosi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Nov 2004, 11:34
Rufname:


Makro ODBC Connect + Abfrage - Makro ODBC Connect + Abfrage

Nach oben
       

Hallo,

ich habe folgenden Code um mich zu einer zentralen DB zu verbinden, darauf Abfragen zu machen und anschließend an Excel zurückzugeben.

Wenn ich das Makro ausführe erhalte ich folgende Fehlermeldung:

Laufzeitfehler '3265': Anwendungs- oder objektdefinierter Fehler

[code]Private Sub cmdTest_Click()

Dim cnOra As ADODB.Connection
Dim rsOra As ADODB.Recordset
Dim db_name As String
Dim UserName As String
Dim Password As String

Set cnOra = New ADODB.Connection
Set rsOra = New ADODB.Recordset

db_name = "*"
UserName = "*"
Password = "*"

cnOra.Open "DSN=" + db_name + ";UID=" + UserName + ";PWD=" _
& Password + ";"
rsOra.CursorLocation = adUseServer

rsOra.Open "select Test_ID from Test", cnOra, adOpenForwardOnly

While Not rsOra.EOF
Worksheets("Sheet1").Range("A1") = rsOra![BS]
rsOra.MoveNext
Wend

rsOra.Close
rsOra.Open "select Test2_ID from Test2", cnOra, adOpenForwardOnly

While Not rsOra.EOF
Worksheets("Sheet1").Range("A2") = rsOra![SP]
rsOra.MoveNext
Wend

rsOra.Close
cnOra.Close
Set rsOra = Nothing
Set cnOra = Nothing

End Sub[/code]


Weiß jemand, wo der Fehler liegt?

Vielen Dank schon mal im Voraus

Beste Grüsse
Christian
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Wenn Abfrage nach einem Teil einer Zelle 4 Biky 1312 18. Jun 2006, 18:16
Gast Wenn Abfrage nach einem Teil einer Zelle
Keine neuen Beiträge Excel Formeln: Makro mit ausgeblendeten Tabellenblättern? 4 Gerony 1143 02. Jun 2006, 12:53
ransi Makro mit ausgeblendeten Tabellenblättern?
Keine neuen Beiträge Excel Formeln: Makro durch Funktion starten 11 Borsty22 12858 01. Apr 2006, 18:35
Hübi Makro durch Funktion starten
Keine neuen Beiträge Excel Formeln: doppelte wenn abfrage 5 unbelievable 7485 12. Feb 2006, 18:06
unbelievable doppelte wenn abfrage
Keine neuen Beiträge Excel Formeln: makro beim öffnen starten und werte auswählen 0 werner100 637 24. Nov 2005, 13:30
werner100 makro beim öffnen starten und werte auswählen
Keine neuen Beiträge Excel Formeln: Abfrage einer Excelzelle nach bestimmten Zeichen 15 This is Real 4511 09. Nov 2005, 16:11
fridgenep Abfrage einer Excelzelle nach bestimmten Zeichen
Keine neuen Beiträge Excel Formeln: HILFE" brauche dringend eine Formel oder Makro" 2 norbert10296 934 28. Okt 2005, 16:39
jvakleve61 HILFE" brauche dringend eine Formel oder Makro"
Keine neuen Beiträge Excel Formeln: Wenn Abfrage 13 SonicOne 925 19. Okt 2005, 19:12
Gast Wenn Abfrage
Keine neuen Beiträge Excel Formeln: Automatische JA/Nein Abfrage 2 bonifazius 925 13. Okt 2005, 10:55
bonifazius Automatische JA/Nein Abfrage
Keine neuen Beiträge Excel Formeln: SVERWEIS- Abfrage auf Text -Wiedergabe einer Nummer 2 helpNeeded 1358 29. Jul 2005, 13:31
helpNeeded SVERWEIS- Abfrage auf Text -Wiedergabe einer Nummer
Keine neuen Beiträge Excel Formeln: automatisches Speichern des Tabellenblatts mit Makro 6 Frank vhet 842 11. Mai 2005, 13:14
Frank vhet automatisches Speichern des Tabellenblatts mit Makro
Keine neuen Beiträge Excel Formeln: Makro per Button ausführen lassen und if then problem 5 Darwin 3877 09. Mai 2005, 14:57
Darwin Makro per Button ausführen lassen und if then problem
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum