Start / FAQ / FAQ 0057: Wie verbinde ich meine Anwendung mit einer SQL-Server-Datenbank?
 
Startseite Up-/Download Tutorials Club Das Team
Rubriken Foren Bücher Tips 'n Tricks Suche


FAQ 0057: Wie verbinde ich meine Anwendung mit einer SQL-Server-Datenbank?


  Frage

Wie verbinde ich meine Anwendung mit einer SQL-Server-Datenbank?

Inhalt

Microsoft SQL Server Classic und MSDE
Microsoft SQL Server 2005

  Microsoft SQL Server Classic und MSDE

Bei ActiveVB gibt es ein paar Tutorials, die unbedingt gelesen werden sollten:
Der große ADO-Kurs, ADO, DB-Programmierung

'   Settings für die Connection
Const cstrSQLServer As String = "localhost"
Const cstrDatabase As String = "Users"
Const cstrUsername As String = "selber"
Const cstrPassword As String = "nopwd"

Set DB = New ADODB.Connection

With DB
    .Provider = "SQLOLEDB.1"
    .Properties("Persist Security Info").Value = False
    .Properties("Initial Catalog").Value = cstrDatabase
    .Properties("Data Source").Value = cstrSQLServer
    '   Falls die Windows-Authentifizierung verwendet werden soll, muß
    '   der folgende Eintrag entkommentiert werden, "User-ID" und 
    '   "Password" müssen dann auskommentiert werden
    '.Properties("Integrated Security").Value = "SSPI"
    .Properties("User ID").Value = cstrUsername
    .Properties("Password").Value = cstrPassword
    .Open
    Debug.Print .ConnectionString
    .Close
End With

'   Datenbank-Objekt entfernen
Set DB = Nothing

Listing 1: ADO-Connection für SQL Server Classic und MSDE

  Microsoft SQL Server 2005

 Neu Die oben genannten Tutorials sind auch in Kombination mit MS SQL Server 2005 hilfreich, weil sie weitere grundlegende Dinge neben der Verbindung erklären.

'   Settings für die Connection
Const cstrSQLServer As String = "localhost"
Const cstrDatabase As String = "Users"
Const cstrUsername As String = "selber"
Const cstrPassword As String = "nopwd"

Set DB = New ADODB.Connection

With DB
    .Provider = "SQLNCLI.1"
    .Properties("Persist Security Info").Value = False
    .Properties("Initial Catalog").Value = cstrDatabase
    .Properties("Data Source").Value = cstrSQLServer
    '   Falls die Windows-Authentifizierung verwendet werden soll, muß
    '   der folgende Eintrag entkommentiert werden, "User-ID" und 
    '   "Password" müssen dann auskommentiert werden
    '.Properties("Integrated Security").Value = "SSPI"
    .Properties("User ID").Value = cstrUsername
    .Properties("Password").Value = cstrPassword
    
    .Open
    Debug.Print .ConnectionString
    .Close
End With

'   Datenbank-Objekt entfernen
Set DB = Nothing

Listing 2: ADO-Connection für SQL Server 2005


Erstellt: 08.09.2003
Aktualisierung: 29.07.2007
  Autor: Helge Rex
E-Mail: faq@ActiveVB.de



Copyright © 1998-2007 by ActiveVB
Alle Rechte vorbehalten.