Como crear un login desde vb .net para sql2005
Hola amigo, soy nuevo en este sitio y necesito una ayuda.
Mi necesidad es que quiero crear login para una base de datos en sql 2005 pero desde una aplicación en vb.net 200, tengo este código pero este me fuunciona solamente con sql 2000 y yo lo necesito para sql 2005
Dim Consulta As String
Dim ObjCommand As SqlCommand
Consulta = "Grant select,insert,update, delete on TblProductos to [" & Me.TxtUsuario.Text & "]" & _
" Grant select,insert,update,delete on TblVendedores to [" & Me.TxtUsuario.Text & "]" & _
" Grant select,insert,update,delete on TblUsuario to [" & Me.TxtUsuario.Text & "]"
Try
Cnn.Open()
ObjCommand = New SqlCommand
ObjCommand.CommandText = "sp_addlogin"
ObjCommand.CommandType = CommandType.StoredProcedure
ObjCommand.Connection = Cnn
ObjCommand.Parameters.Add("@loginame", SqlDbType.NVarChar, 50).Value = Me.TxtUsuario.Text
ObjCommand.Parameters.Add("@passwd", SqlDbType.NVarChar, 50).Value = Me.TxtContrasena.Text
ObjCommand.Parameters.Add("@defdb", SqlDbType.NVarChar, 50).Value = "Facturacion"
ObjCommand.ExecuteNonQuery()
'
ObjCommand = New SqlCommand
ObjCommand.CommandText = "sp_grantdbaccess"
ObjCommand.CommandType = CommandType.StoredProcedure
ObjCommand.Connection = Cnn
ObjCommand.Parameters.Add("@loginame", SqlDbType.NVarChar, 50).Value = Me.TxtUsuario.Text
ObjCommand.ExecuteNonQuery()
'
ObjCommand = New SqlCommand
ObjCommand.CommandText = Consulta
ObjCommand.CommandType = CommandType.Text
ObjCommand.Connection = Cnn
ObjCommand.ExecuteNonQuery()
guardarNuevo()
Catch ex As Exception
End Try
El problema con este código es que me tira un error para sql 2005 de password
Mi necesidad es que quiero crear login para una base de datos en sql 2005 pero desde una aplicación en vb.net 200, tengo este código pero este me fuunciona solamente con sql 2000 y yo lo necesito para sql 2005
Dim Consulta As String
Dim ObjCommand As SqlCommand
Consulta = "Grant select,insert,update, delete on TblProductos to [" & Me.TxtUsuario.Text & "]" & _
" Grant select,insert,update,delete on TblVendedores to [" & Me.TxtUsuario.Text & "]" & _
" Grant select,insert,update,delete on TblUsuario to [" & Me.TxtUsuario.Text & "]"
Try
Cnn.Open()
ObjCommand = New SqlCommand
ObjCommand.CommandText = "sp_addlogin"
ObjCommand.CommandType = CommandType.StoredProcedure
ObjCommand.Connection = Cnn
ObjCommand.Parameters.Add("@loginame", SqlDbType.NVarChar, 50).Value = Me.TxtUsuario.Text
ObjCommand.Parameters.Add("@passwd", SqlDbType.NVarChar, 50).Value = Me.TxtContrasena.Text
ObjCommand.Parameters.Add("@defdb", SqlDbType.NVarChar, 50).Value = "Facturacion"
ObjCommand.ExecuteNonQuery()
'
ObjCommand = New SqlCommand
ObjCommand.CommandText = "sp_grantdbaccess"
ObjCommand.CommandType = CommandType.StoredProcedure
ObjCommand.Connection = Cnn
ObjCommand.Parameters.Add("@loginame", SqlDbType.NVarChar, 50).Value = Me.TxtUsuario.Text
ObjCommand.ExecuteNonQuery()
'
ObjCommand = New SqlCommand
ObjCommand.CommandText = Consulta
ObjCommand.CommandType = CommandType.Text
ObjCommand.Connection = Cnn
ObjCommand.ExecuteNonQuery()
guardarNuevo()
Catch ex As Exception
End Try
El problema con este código es que me tira un error para sql 2005 de password
1 Respuesta
Respuesta de emperador20
1