www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Re: MySql Abfrage Beispiele mit VBS bzw WSH Script
Autor:  gfdgd
E-mail:  Antworten bitte nur in das Forum!
Datum:  29.07.2006 18:04:35
Subject:  Re: MySql Abfrage Beispiele mit VBS bzw WSH Script
Bezug zum Buch: 
Message:  Hier schonmal der Code für Zugriff auf einen Mysql Server per ODBC:
Wie man auf nen Exchange Kontakte Ordner zugreift weiß ich leider nicht!

Sub LogDateiInMSql(db_server, db_port, db_user, db_pass, db_name, anweisung)

     ' Übergebene Anweisung in Sql schreiben
     Sql = anweisung
   
     ' Verbindung zu MySql Server initialisieren
     Set conn=CreateObject("ADODB.Connection")
     strConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" _
               & "SERVER=" & db_server & ";" _
               & " DATABASE=" & db_name & ";" _
               & "UID=" & db_user & ";PWD=" & db_pass & "; OPTION=3"
     conn.Open strConnectString                               
                   Set rs=CreateObject("ADODB.recordset")
                    rs.Open Sql, conn          
     conn.Close
End Sub

Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 MySql Abfrage Beispiele mit VBS bzw WSH Script von Tekir  am 15.12.2005 10:41:22 PM
 Re: MySql Abfrage Beispiele mit VBS bzw WSH Script von gfdgd  am 29.7.2006 6:04:35 PM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2021