Estou desenvolvendo um web service de validação de usuários, porém nõa tenho uma grande experiência em dot.net, fiz um código aqui, mas não sei se esta correto gostaria da ajuda de vocês para resolver este problema.
OBS: Para validação utilizo uma procedure em um banco de dados Oracle que recebe dois valores(usuário e senha) e me devolve um valor,1 - permitido,0 - negado.
Dim oOleDbConnection As OleDbConnection Dim obj_cmd As OleDbCommand Dim obj_param As OleDbParameter Dim sConnString = _ "Provider=MSDAORA;" & _ "Data Source=*****;" & _ "User ID=*****;" & _ "Password=******" oOleDbConnection = New OleDb.OleDbConnection(sConnString) oOleDbConnection.Open() If oOleDbConnection.State = ConnectionState.Open Then TextBox1.Text = "Conectado" 'oOleDbConnection.Close() Else TextBox1.Text = "Não conectado" End If obj_cmd = New OleDbCommand(sConnString) obj_cmd.CommandType = CommandType.StoredProcedure obj_cmd.CommandText = "prc_valida_user_agro" obj_param = obj_cmd.Parameters.Add("p_usuario", OleDbType.VarChar, 5) obj_param.Direction = ParameterDirection.Input obj_param = obj_cmd.Parameters.Add("p_senha", OleDbType.VarChar, 5) obj_param.Direction = ParameterDirection.Input obj_param = obj_cmd.Parameters.Add("p_retorno", OleDbType.VarChar, 5) obj_param.Direction = ParameterDirection.Input 'Passando parâmetros obj_cmd.Parameters("p_usuario").Value = TextBox2.Text obj_cmd.Parameters("p_senha").Value = TextBox3.Text 'Recebendo o resultado TextBox1.Text = obj_cmd.Parameters("p_retorno").Value 'Executa a Stored Procedure obj_cmd.ExecuteNonQuery()
O código acima não é do web service, é vb plataforma desktop, preciso fazer antes assim, podem me ajudar ?
Agradeço desde já !
Edição feita por: _lost_, 30/10/2006, 18:08.