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 Dieser Tipp wurde bereits 13.849 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. |
||||||||||||||||
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. |