Top-Themen

Aktuelle Themen (A bis Z)

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

Vbscript ADODB.connection funktionniert nicht

Frage Entwicklung VB for Applications

Mitglied: lionne

lionne (Level 1) - Jetzt verbinden

21.03.2011 um 12:42 Uhr, 5872 Aufrufe, 6 Kommentare

Hallo Zusammen,

ich versuche eine Verbindung zur Oracle Datenbank zu bauen, leider funktioniert nicht und bekomme auch keine Fehlermeldung. Kann jemand mir sagen was falsch ist?

Danke im Voraus
Lionne

01.
Dim	sql_command, resultSet 
02.
 
03.
Dim meinUser, meinPassword, meinedb 
04.
 
05.
meinUser			=	"db_1" 
06.
meinPassword		=	"einpwd" 
07.
meinedb				=	"P4711" 														 		 
08.
 
09.
'----------------------------------------------------------------------------------------------- 
10.
Sub set_link() 
11.
 
12.
 Set db = createobject ("ADODB.connection") 
13.
 	db.open meinedb,meinUser,meinPassword 
14.
 	 
15.
 	sql_command = "SELECT mitarbeitername, mitarbeitervorname FROM Mitarbeitertabelle WHERE emp_id = '4900'" 
16.
	 
17.
	'MSGBOX ( db.Execute(sql_command)(0)) 
18.
	Set resultSet = db.Execute(sql_command) 
19.
	On Error Resume Next 
20.
	resultSet.MoveFirst 
21.
	 
22.
	Do While Not resultSet.eof 
23.
		WScript.Echo resultSet("mitarbeitername") & " , " & resultSet("mitarbeitervorname") 
24.
	 
25.
  resultSet.MoveNext 
26.
Loop 
27.
 
28.
resultSet.Close 
29.
db.Close 
30.
Set db = Nothing 
31.
 
32.
WScript.Quit(0) 
33.
		 
34.
End Sub
Mitglied: 60730
21.03.2011 um 13:03 Uhr
moin,

19. On Error Resume Next

bedeutet . im fehlerfall einfach stupide weitermachen
Kommentiere die Zeile mal raus und schau dir das feedback an.

Gruß
Bitte warten ..
Mitglied: lionne
21.03.2011 um 13:15 Uhr
Hallo,

ich habe die Zeile auskommentiert, es kommt nicht raus. Keine Ergebnisse und keine Fehlermeldung.

Gruß
Lionne
Bitte warten ..
Mitglied: Pjordorf
21.03.2011 um 14:51 Uhr
Hallo,

Zitat von lionne:
ich habe die Zeile auskommentiert, es kommt nicht raus. Keine Ergebnisse und keine Fehlermeldung.
Ich will mich nicht mit meiner unwissenheit zu sehr aus dem Fenster hängen, aber wird denn deine Routine (Sub) Set_Link überhaupt aufgerufen?

Gruß,
Peter
Bitte warten ..
Mitglied: lionne
21.03.2011 um 15:33 Uhr
Hallo Peter,

ich rufe mein Script über die Kommandozeile: cscript //nologo test.vbs

Gruß
Lionne
Bitte warten ..
Mitglied: Biber
21.03.2011 um 21:52 Uhr
Moin lionne,

ganz langsam jetzt und keinen Schreck bekommen, aber...

Es sind noch ein oder zwei kleine Verständnisproblemchen in deinem Skript erkennbar.

Zuerst das Positive und Aufbauende für dich.
Wie schon Pjordorf dezent andeutete, wird die elfengleiche Lauffähigkeit eines VBSkript-Sub erst dadurch einem Publikum erkennbar,
dass jemand -gleich welchen Geschlechts, welcher Religion und welcher politischen Gesinnung, dieses auch aufruft.
Wenigstens ein einziges Mal im Leben, auch wenn dieses Ziel nicht den den Leidensdruck bei der Erfindung der Subs erzeugt hat.

Also
Bitte in die jetzt leere Zeile 8 einfach ein "set_link" (ohne Anführungszeichen) schreiben, dann fliegt das erstmal, was du da POCemonen wolltest.


Aber dann...
Bitte einmal -meinetwegen über Suchmaschinenbefragung nach "VBS-Tutorial" oder "VBSkript sub" 10 Minuten nachlesen,
wie Haupt- und Sub-Programme zusammenspielen sollen.

Im Prinzip ist die beliebteste Variante die, das ein Hauptprogramm quasi wie eine Inhaltsangabe am Anfang steht mit

[Pseudocode] 
{ <globale variablendeklaration> } 
 
ErstBefülleMeineVariablen 
 
CreateMyObjectA 
CreateMyObjectB 
... 
rufEinSub "mitEiner Variablen" 
 
RufEinAnderesSub (mitEinemObjectA) 
 
... Wenn dies  
       then das  
    else wattduwutt... 
 
... 'etc. 
 
DestroyMyObjectB 
DestroyMyObjectA 
 
MachDemEinEnde(Rückgabewert) ' also Quit()/exit()... wie immer es heisst. 
 
<--- Und hier ist das Hauptprogramm und der Programmfluss zu Ende...  
hier können noch Unterprogramme/Subs/Functions folgen ---> 
[/Pseudocode]
Dieser grobe Rahmen ist bei dir ein bisschen aus den Fugen geraten.

Und im zweiten Schritt...
Nenne ein Sub in deinem Schnipsel doch nicht "set_link", wenn es weder etwas mit "set" noch mit "link" zu tun hat
und der Unterstrich dazwischen eigentlich auch keine gedankliche Verbindung dazwischen konstruieren kann.
Nenn es "FrageMitarbeiterTabelleAb" oder wie auch immer, aber nicht "set_link".


Grüße
Biber
Bitte warten ..
Mitglied: lionne
22.03.2011 um 00:42 Uhr
Hallo zusammen,

danke für die Zahlreiche Tipps. Ich habe die Lösung gefunden.

@Biber
Mein sub heisst "set_Link", weil ich die Aufgabestellung es so verlangt(speichern eines bestimmtest Link in der Datenbank).

Wenn ich hier im Forum Frage stelle, versuche immer diese umzuformulieren bzw. umzubenennen, damit mein Mentor nicht draufkommt, dass es von mir ist, falls er auch im Internet nach Informationen sucht.
Natürlich hätte ich für diesen Falls auch den Subname geändert, aber mir war nur die Verbindung zu der Datenbank wichtig.

Danke nochmal
Lionne
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBScript und OR
gelöst Frage von InvisanVB for Applications5 Kommentare

Hi zusammen, derzeit bastel ich ein bisschen in VBScript rum. Leider habe ich mit dem OR Operator einige Probleme. ...

Windows Installation
Answer File für WIN 7 funktionniert nicht richtig
gelöst Frage von CrazyNekoWindows Installation12 Kommentare

Moin zusammen Ich bin aktuell gerade daran Notebooks über WDS aufzusetzen aber das Ding will nicht wie ich es ...

Microsoft Office
Outlook VBScript
gelöst Frage von NebellichtMicrosoft Office5 Kommentare

Hallo, seit ein paar Wochen werden keine VBScripte hinter den (Benutzerspezifschen) Outlook Formularen ausgeführt. Hat jemand eine Lösung parat ...

Batch & Shell
Arbeiten mit INI Files in VBScript
Anleitung von FriemlerBatch & Shell11 Kommentare

In letzter Zeit habe ich hier im Forum des Öfteren Fragen gesehen, wie man aus einer INI-Datei Werte liest ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 15 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 20 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 20 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 1 TagInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server18 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Windows XP
Windows XP Aktivieren geht nicht
Frage von tetikmiroWindows XP13 Kommentare

Hallo Ich habe einen Windows XP mit einen vCenter Converter umgezogen auf eine ESXI. Soweit funktioniert dies auch ohne ...

Blogs
Immer wiederkehrende PHP Fehlermeldung bei Wordpress UTF-8 - ASCII
gelöst Frage von vcdweltBlogs11 Kommentare

Hi, seit einiger Zeit wird mein error_log meines Wordpress Blogs mit immer der gleichen Fehlermeldung überschwemmt. 14-Dec-2017 08:18:05 UTC ...

Switche und Hubs
Redundante L2 LWL Leitung über 2 Standorte - Spanning Tree - HP Equipment
gelöst Frage von ResolvSwitche und Hubs10 Kommentare

Hallo, ich stehe vor der Herausforderung eine Redundante L2 LWL Leitung über 2 Standorte herzustellen. Grundsätzliches Switching Know How ...