Hi everybody
I want to add sqlusers from VB6 on sql server but everything i try is going bad.
I log like sa and using ADO to connect but what to do next, how can i use stored procedure sp_addlogin, sp_grantdbaccess or ADOX to create new users and logins on sqlserver2000.

Here is what i tryed, but is not working:

Dim cnLogin As New ADODB.Connection
Dim cmd As ADODB.Command
cnLogin.Open "Provider=" & strProvider & ";User ID=" & strSQLUserID & ";Password=" & strSQLPassword & "Initial Catalog=master;Data Source=" & strServer

Set cmd = New ADODB.Command
    With cmd

        .ActiveConnection = cnLogin
        .CommandType = adCmdStoredProc
        .CommandText = "sp_addlogin"
        .Parameters(1) = Trim(txtIme.Text)
        .Parameters(2) = txtSifra.Text
        .Parameters(3) = "database"
        .Execute


        .CommandText = "sp_grantdbaccess"
        .Parameters(1) = Trim(txtIme.Text)
        .Execute

    End With

Thanks

Hi there,

You should add a ; right before the Initial catalog, because currently you have an invalid Connection String.

You may also need to close your connection, and then reopen it using the Database database as the Initial Catalog, as sp_grantdbaccess adds the user to the current database. Not sure about that, though.

Cheers,

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

In addition to this, you can use the following code for the grantDBAccess sproc:


' Open your connection, using the database as the initial catalog.
cnLogin.Open "Provider=" & strProvider & ";User ID=" & strSQLUserID & ";Password=" & strSQLPassword & ";Initial Catalog=database;Data Source=" & strServer

cnLogin.Execute ("EXEC sp_grantdbaccess '" & Trim(txtIme.Text) & "'")

Imar

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

thanks Imar