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

ODBC-Verbindung per VBS

Frage Entwicklung VB for Applications

Mitglied: AndyAh

AndyAh (Level 2) - Jetzt verbinden

12.04.2011, aktualisiert 13.04.2011, 8118 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Microsoft Office
Access DB: ODBC-Verbindung zu Datenbank fehlgeschlagen (2)

Frage von potshock zum Thema Microsoft Office ...

Microsoft Office
ODBC Verbindung Problem mit Excel (5)

Frage von 3jojojo zum Thema Microsoft Office ...

Debian
Keine Verbindung zwischen zwei Debian Maschinen (1)

Frage von Philippe27 zum Thema Debian ...

Heiß diskutierte Inhalte
DSL, VDSL
gelöst DSL 200m verlängern (15)

Frage von Angela44 zum Thema DSL, VDSL ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...

Windows Server
SBS 2011 Standard virtualisieren (11)

Frage von HeinrichM zum Thema Windows Server ...

Exchange Server
gelöst DHCP Sever MS Server 2012 Problem (10)

Frage von Florian86 zum Thema Exchange Server ...