Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

SQL Statement Syntax Oracle Excel VBA

Frage Entwicklung Datenbanken

Mitglied: firsty78

firsty78 (Level 1) - Jetzt verbinden

20.03.2008, aktualisiert 31.03.2008, 14858 Aufrufe, 6 Kommentare

Hallo zusammen,

ich befinde mich im VBA Editor und möchte per ODBC eine Oracle 9 Datenbank abfragen und die Daten in Excel ausgeben. Folgenden Code verwende ich

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

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

db_name = "Oracle"
UserName = "User"
Password = "pw"


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

rsOra.Open _
" select E.* " _
& " from (Infor_relEs E left join Infor_relAc A " _
& " on E.Datenfelder_1 = A.MNr) " _
& " where E.Satzart = 'UA' ", cnOra, adOpenForwardOnly _

i = 1
While Not rsOra.EOF
Worksheets("Oracle").Cells(i, 1) = rsOra![Datenfelder_1]
rsOra.MoveNext
i = i + 1
Wend

rsOra.Close
cnOra.Close
Set rsOra = Nothing

Die Datenbank wird gefunden nur das SQL Statement scheint einen Fehler zu haben, den ich einfach nicht finde. Im jetzigen Zustand kommt die Meldung "[Oracle][ODBC][Ora]ORA-00942: table or view does not exist.

Wo liegt mein Fehler?

Vielen Dank
Mitglied: Biber
22.03.2008 um 18:15 Uhr
Moin firsty78,

falls Dein verwendeter User nicht gleichzeitig der Owner des Schemas ist, dann solltest Du den Schema-Namen mit angeben, z.B. "...from UnserSchema.Infor_relEs E..."

[OT]
Abgesehen davon halte ich Dein SQL für ...na ja, sagen wir mal syntaktischen Overkill.

Wenn Ziel der Aktion ist, alle Datenfelder_1 in einer Excel-Spalte aufzulisten mit dem Kriterium, dass die Satzart gleich 'UA' ist und dass sich ein LEFT JOIN an irgendeine andere Tabelle flanschen lässt...

...dann reicht auch ein...
01.
 select Datenfelder_1 from UnserSchema.Infor_relEs where Satzart = 'UA';
[/OT]

Grüße
Biber
Bitte warten ..
Mitglied: firsty78
31.03.2008 um 11:02 Uhr
Hallo Biber,

vielen Dank für Deine Antwort und sorry für die späte Rückmeldung. Hatte Urlaub, Umzug, kein Internet,...

Wenn Du von einem "syntaktischen Overkill" sprichst meinst Du dann, dass mein komplettes Statement irgendwie "schrottig" ist? Oder meinst Du, dass es etwas überdimensioniert ist? Ich habe den left join, da ich aus der relac ebenfalls Daten laden möchte.

Gruß,
firsty
Bitte warten ..
Mitglied: Biber
31.03.2008 um 11:13 Uhr
Moin firsty78,

Oder meinst Du, dass es etwas überdimensioniert ist?
Dies meinte ich.
Ich habe den left join, da ich aus der relac ebenfalls Daten laden möchte.
Davon ist aber nichts zu sehen. Oben steht nur ein "select E.*", wobei E der Alias für die Tabelle Infor_relEs ist. Die Felder der geJOINten Tabelle A (= Infor_RelAc) erblicken nie das Tageslicht beziehungsweise sind nicht im Resultset enthalten.

Aber eigentlich ist das ein Nebenschauplatz.
Was macht denn das Hauptproblem? Wollen wir das erst abhandeln?

Grüße
Biber
Bitte warten ..
Mitglied: firsty78
31.03.2008 um 12:22 Uhr
Hallo Biber,

das Problem hängt tatsächlich mit dem User zusammen. Ich habe den User ausgetauscht und die Feldbezeichnungen abgeändert und der Import funktioniert - fast - korrekt.

Folgendermaßen sieht es im Moment aus:

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

db_name = "Oracle"
UserName = "User"
Password = "pw"
StrSelect = "Select E.Datenfelder_1 ArtNr1, A.KTxt Bez from relEs E left join relAc A on E.Datenfelder_2 = A.MNr where Satzart ='UA'"

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

rsOra.Open StrSelect, cnOra, adOpenForwardOnly

i = 1
While Not rsOra.EOF
Worksheets("Oracle").Cells(i, 1) = rsOra![ArtNr1]
Worksheets("Oracle").Cells(i, 2) = rsOra![Bez]
rsOra.MoveNext
i = i + 1
Wend

rsOra.Close
cnOra.Close
Set rsOra = Nothing

"ArtNr1" enthält den korrekten Wert aus der relEs, wohingegen der Wert von "Bez" NULL ist.

Gruß,
firsty
Bitte warten ..
Mitglied: Biber
31.03.2008 um 12:51 Uhr
Hmmm, firsty87,

kann das daran liegen, dass Du die aktuelle Relation über "Datenfelder_2=A.Mnr" bildest statt wie oben über "Datenfelder_1"??

Grüße
Biber
Bitte warten ..
Mitglied: firsty78
31.03.2008 um 14:24 Uhr
Oje oje, ich schäme mich!!

Das war es, jetzt klappt alles wunderbar - ZAUBEREI!!

Vielen Dank.

Grüße,
firsty
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Excel VBA In Userform Maske Text nach Eingabe löschen (1)

Frage von kluthi69 zum Thema Microsoft Office ...

Microsoft Office
Unterordner durchsuchen Excel VBA (1)

Frage von schwalbepilot zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA: Automatische Konvertierung von Textdatei (.txt) zu Exceldatei (.xlsx) (7)

Frage von Booster07 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA Tabelleblätter kopieren und Umbenennnen (8)

Frage von Florian86 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Windows Server

Exchange 2010 Active Directory und Windows Server 2016

(4)

Erfahrungsbericht von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Internet
gelöst Mitarbeiter surft auf unerwünschter Seite - Wie damit umgehen? (44)

Frage von sabines zum Thema Internet ...

Netzwerke
Wie erstelle ich ein Intranet (19)

Frage von Leonardnet zum Thema Netzwerke ...

LAN, WAN, Wireless
gelöst Eintägige Netzwerkunterbrechung trotz Backupleitung (15)

Frage von iAmbricksta zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2012 R2 - Zugriff Verweigert bei jeglicher Tätigkeit (13)

Frage von DarkLevi zum Thema Windows Server ...