vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Datenbanken · SQL-Server   |   VB-Versionen: VB5, VB623.12.05
Neuen Benutzer in SQL-Datenbank anlegen

Mit dieser Funktion lassen sich neue Benutzer in SQL-Datenbanken erstellen.

Autor:   Dieter OtterBewertung:  Views:  13.825 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Mit diesem Code lassen sich unter Zuhilfenahme des ADODB-Connection Objekts neue Benutzer in einer Datenbank des MS SQL-Servers (oder MSDE) anlegen.

Option Explicit
 
' Connection-Objekt
Public oConn As ADODB.Connection
' Verbindung zum SQL-Server herstellen
Public Function SQLServerOpenConnection(ByVal sServer As String, _
  ByVal sDatabaseName As String, _
  ByVal sUserName As String, _
  ByVal sPassword As String) As Boolean
 
  Dim sConn As String
 
  On Error GoTo ErrHandler
  If oConn Is Nothing Then
    Set oConn = New ADODB.Connection
 
    ' Connection-String zusammenstellen
    sConn = "Provider=SQLOLEDB.1;" & _
      "Initial Catalog=" & sDatabaseName & ";" & _
      "Data Source=" & sServer & ";" & _
      "Persist Security Info=False;" & _
      "Connect Timeout=45"
 
    With oConn
      .CursorLocation = adUseClient
      .Open sConn, sUserName, sPassword
 
    End With
  End If
  On Error GoTo 0
 
  SQLServerOpenConnection = True
  Exit Function
 
ErrHandler:
  MsgBox "Es ist ein Fehler beim Öffnen der Datenbank aufgetreten." & _
    vbCrLf & CStr(Err.Number) & vbCrLf & Err.Description
End Function
' Neuen Benutzer in der SQL-Datenbank erstellen
Public Function SQLServerAddUser(oConn As ADODB.Connection, _
  ByVal sUserName As String, _
  ByVal sPassword As String, _
  ByVal sDatabaseName As String) As Boolean
 
  On Error GoTo ErrHandler
 
  ' Neuen Benutzer zur Datenbank hinzufügen
  oConn.Execute "USE Master"
  oConn.Execute "EXEC sp_addlogin " & sUserName & "," & _
    sPassword & "," & sDatabaseName
 
  oConn.Execute "USE " & sDatabaseName
  oConn.Execute "EXEC sp_adduser " & sUserName
 
  On Error GoTo 0
  SQLServerAddUser = True
  Exit Function
 
ErrHandler:
  MsgBox "Beim Hinzufügen des Users ist ein Fehler aufgetreten." & vbCrLf & _
    CStr(Err.Number) & " " & Err.Description
End Function

Beispiel für den Aufruf:

' Verbindung zum SQL-Server herstellen
If SQLServerOpenConnection("localhost", "DATENBANKNAME", "sa", "pwd") Then
  ' Neuen Benutzer erstellen
  If SQLServerAddUser(oConn, "Dieter", "geheim", "DATENBANKNAME") Then
    MsgBox "Neuer Benutzer wurde hinzugefügt!"
  End If
  oConn.Close
End If



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.