Jump to content


Photo

Web Service


  • Faça o login para participar
1 reply to this topic

#1 _lost_

_lost_

    Novato no fórum

  • Usuários
  • 23 posts
  • Sexo:Não informado

Posted 30/10/2006, 15:47

Olá amigos,

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.


#2 MACUL

MACUL

    Doutor

  • Usuários
  • 770 posts
  • Sexo:Masculino
  • Localidade:SP

Posted 31/10/2006, 16:05

Qual é o problema ?
*************** M ** A ** C ** U ** L ***************

*************************************************




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq