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, 8075 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
ODBC Verbindung Problem mit Excel (5)

Frage von 3jojojo zum Thema Microsoft Office ...

VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

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

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...