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

ODBC-Verbindung per VBS

Frage Entwicklung VB for Applications

Mitglied: AndyAh

AndyAh (Level 2) - Jetzt verbinden

12.04.2011, aktualisiert 13.04.2011, 8494 Aufrufe, 10 Kommentare

ODBC-Verbindung per VBS

Hi NG,

wie kann ich eine ODBC-Verbindung zu einem SQL-Server per VBS erstellen?

Gruß
Andy
Mitglied: keksdieb
12.04.2011 um 09:37 Uhr
Moin Andy,

Kurze Frage, kurze Antwort:

Schau die die Funktion CreateObject("ADODB.Connection") mal an.

Hier ist der Nachfolger von DAO beschrieben: Link

Grüße Keksdieb
Bitte warten ..
Mitglied: AndyAh
12.04.2011 um 09:44 Uhr
Hi,

danke für die Antwort; Ich habe mich wohl falsch ausgedrückt.
Die ODBC-Verbindung (DSN-Verbindung) exitiert noch nicht und soll erst angelegt werden.

Gruß
Andy
Bitte warten ..
Mitglied: keksdieb
12.04.2011 um 09:58 Uhr
erm...

Auch das wird auf der verlinkten Seite erkärt...

01.
Option Explicit 
02.
Dim Cn As New ADODB.Connection 
03.
 
04.
Private Sub Form_Load() 
05.
    With Cn 
06.
    'Meistens Cursor auf Client außer für SEHR große Arbeiten 
07.
        .CursorLocation = adUseClient 
08.
 
09.
    ' Sperrungen (hier keine bei Multiuser) 
10.
        .Mode = adModeShareDenyNone 
11.
 
12.
    ' DB-Provider (hier Access 2000) 
13.
        .Provider = "Microsoft.Jet.OLEDB.4.0" 
14.
        .ConnectionString = "Data Source=C:\Temp\Test.mdb" 
15.
        .Open 
16.
    End With 
17.
End Sub
Bitte warten ..
Mitglied: AndyAh
12.04.2011 um 10:06 Uhr
Hi,

nochmal ich. Wie sieht das denn in Visual Basic Script aus?

Gruß
Andy
Bitte warten ..
Mitglied: keksdieb
12.04.2011 um 10:24 Uhr
genauso wie mein Codeschnipsel oben...
Bitte warten ..
Mitglied: bastla
12.04.2011 um 11:54 Uhr
@keksdieb
Nicht wirklich - und das beginnt schon bei den fehlenden Konstanten (zu finden in "C:\Programme\Gemeinsame Dateien\System\ado\adovbs.inc") ...

Ungetestet daher eher:
01.
Const adUseClient = 3 
02.
Const adModeShareDenyNone = &H10 
03.
 
04.
Set Cn = CreateObject("ADODB.Connection") 
05.
With Cn 
06.
    'Meistens Cursor auf Client außer für SEHR große Arbeiten 
07.
    .CursorLocation = adUseClient 
08.
 
09.
    ' Sperrungen (hier keine bei Multiuser) 
10.
    .Mode = adModeShareDenyNone 
11.
 
12.
    ' DB-Provider (hier Access 2000) 
13.
    .Provider = "Microsoft.Jet.OLEDB.4.0" 
14.
    .ConnectionString = "Data Source=C:\Temp\Test.mdb" 
15.
    .Open 
16.
End With
Grüße
bastla
Bitte warten ..
Mitglied: keksdieb
12.04.2011 um 14:20 Uhr
hui...

Danke für die Korrektur :D
Und entschuldigung für die Fehlinformation @ Andy

Bei mir waren die Konstanten aber von Haus aus dabei... (Win2003 Server).
Ich habe jedenfalls nicht bewusst was installiert...

Ich suche die alten Scripte mal raus.


Grüße Keksdieb
Bitte warten ..
Mitglied: bastla
12.04.2011 um 14:24 Uhr
@keksdieb
Bei mir waren die Konstanten aber von Haus aus dabei... (Win2003 Server).
Dabei im Sinne von "als Datei im angegebenen Ordner vorhanden" helfen sie aber wenig - sie müssen im Script deklariert werden, indem entweder der gesamte Dateiinhalt oder eben selektiv die verwendeten Konstanten am Anfang des Scripts eingefügt werden.

Grüße
bastla

[Edit]
Da halten sich die vordefinierten Konstanten in engen Grenzen.
Für Grenzgänger: http://msdn.microsoft.com/en-us/library/ydz4cfk3%28vs.71%29.aspx
[/Edit]
Bitte warten ..
Mitglied: Biber
12.04.2011 um 14:27 Uhr
Moin koksdieb,

brauchst nicht zu suchen - das ist eine ganz natürliche Erscheinung, das diese Konstanten in VBS nicht definiert sind.
Woher auch?

"Skripte" kommen aus der prozeduralen Welt und gehen davon aus, dass du auch einem unbebauten Acker anfängst von Grund auf.

Da halen sich die vordefinierten Konstanten in engen Grenzen.

Grüße
Biber
Bitte warten ..
Mitglied: keksdieb
12.04.2011 um 14:41 Uhr
okay,

jetzt bin ich dabei...

@Bibor: ich wollte nur in den alten Scripten nachvollziehen, was ich damals getan habe (man lernt ja nie aus)

@bastla: ich habe deine ersten Post komplett falsch verstanden. Ich bin davon ausgegangen, dass unter "C:\Programme\Gemeinsame Dateien\System\ado\adovbs.inc" was installiert wurde und dass du das expliziet bemängelt hast.

Grüße Keksdieb
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBS-ODBC-Verbindung-Insert-wird nicht ausgefuehrt
gelöst Frage von Huan90VB for Applications5 Kommentare

Hallo liebe Administrator-Gemeinde, ich habe ein Problem mit einem VB-Script (ich hoffe, da bin ich hier an der richtigen ...

Bibliotheken & Toolkits
Keine Verbindung über ODBC (Firebird) über ein Netzlaufwek
Frage von marcthesharkBibliotheken & Toolkits4 Kommentare

Hallo Zusammen, ich versuche vergeblich eine Verbindung zu einer Datenbank auf einen Netzlaufwerk herzustellen. Habe ein Laufwerk hinzugefügt auf ...

Microsoft Office
ODBC Verbindung Problem mit Excel
Frage von 3jojojoMicrosoft Office5 Kommentare

Hallo Leute Ich habe ein Problem mit Excel 2007. Ich importiere Daten direkt von einem SQL Server mit der ...

Windows Server
SQL Server ODBC Verbindung
Frage von gookchannelWindows Server3 Kommentare

Hallo zusammen, ich habe eine SQL Server Datenbank unter einem anderen Namen wiederhergestellt. Ich würde nun gerne eine ODBC ...

Neue Wissensbeiträge
MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 5 StundenMikroTik RouterOS4 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 6 StundenSicherheit

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Administrator.de Feedback

Entwicklertagebuch: Die Startseite wurde überarbeitet

Information von admtech vor 8 StundenAdministrator.de Feedback9 Kommentare

Hallo Administrator User, mit dem Release 5.7 haben wir unsere Startseite überarbeitet und die Beiträge und Fragen voneinander getrennt. ...

Vmware

VMware Desktopprodukte sind verwundbar

Information von Penny.Cilin vor 13 StundenVmware

Die VMware-Anwendungen zum Umgang mit virtuellen Maschinen Fusion, Horizon Client und Workstation sowie die Plattform NSX sind verwundbar. Davon ...

Heiß diskutierte Inhalte
Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail
Frage von ahstaxVisual Studio24 Kommentare

Hallo, ich möchte gerne ein vb.net-Tool schreiben, das am Ende eine Outlook-E-Mail erzeugt. Grundsätzlich ist mir klar, wie das ...

Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server16 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows Netzwerk
Netzwerk Neustrukturierung
Frage von IT-DreamerWindows Netzwerk16 Kommentare

Hallo verehrte Community und Admins, bei uns im Haus steht eine Neustrukturierung an. Dafür benötige ich von euch ein ...

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Frage von AkcentWindows 1015 Kommentare

Hallo, habe hier einen Windows 10 Rechner der von einem User umgefallen wurde (Beine übers Knie, an den PC ...