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.
