CARREGANDO A VARIAVEL PARA STOREDPROCEDURE

QUASAR23 25/02/2011 13:39:34
#366590
Bom pessoal to com um problema simples mais não consigo resolver
Tenho esse codigo de pesquisa q executa uma storedprocedure de pesquisa eu nã consigo jogar o valor de uma variavel prala para ser rederencia na pesquisa

Public Function pesquisar(ByVal NomeProcedure As String, ByVal Variavel As String)
Dim pesquisa As Boolean
Dim con As New SqlConnection(Conecxao)
Dim comando As New SqlCommand(NomeProcedure, con)
Dim da As New SqlDataAdapter(comando)

comando.CommandType = CommandType.StoredProcedure

comando.Parameters.AddWithValue([Ô]@nome[Ô], Variavel)


Try
con.Open()
pesquisa = comando.ExecuteNonQuery
da.Fill(ds, NomeProcedure)
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]erro[Ô])
Finally
con.Close()

End Try

Return pesquisa
End Function


Me ajudem ai obrigado
PEGUDO 25/02/2011 14:07:01
#366598 Resposta escolhida
Aqui vai um exemplo de uma chamada para uma Stored procedure

[txt-color=#0000f0]Dim[/txt-color] C [txt-color=#0000f0]As[/txt-color] ADODB.Connection

C.Open(Conexao)

C.Execute([txt-color=#e80000][Ô]call Minha_Procedure ([Ô][/txt-color] & Variável & [txt-color=#e80000][Ô])[Ô][/txt-color])

Se sua variável for do tipo string, não esqueça das aspas simples antes e depois da variável
QUASAR23 25/02/2011 16:19:37
#366611
Oi
Mais sera que funciona assim eu to trabalhando com o SQL
vc colocou como ADODB

Obrigado.
QUASAR23 25/02/2011 16:32:12
#366613
Ola fera consegui o codigo ficou assim da pesquisa, com essa função eu so preciso fazer a storedprocedure e não preciso fazer o codigo novamente so para o nome e a variável de pesquisa e pronto...


[txt-color=#0000f0] Public Function[/txt-color] pesquisar(ByVal NomeProcedure As String, ByVal Variavel As String)
Dim pesquisa As Boolean
Dim con As New SqlConnection(Conecxao)
Dim comando As New SqlCommand(NomeProcedure, con)
comando.CommandType = CommandType.StoredProcedure

comando.Parameters.Add(New SqlParameter([Ô]@nome[Ô], SqlDbType.VarChar, 50))
comando.Parameters([Ô]@nome[Ô]).Value = Variavel ---------------------------------- esse comando aqui carrega aqui carrega a variável...

Dim da As New SqlDataAdapter(comando)

Try
con.Open()
pesquisa = comando.ExecuteNonQuery
da.Fill(ds, NomeProcedure)
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]erro[Ô])
Finally
con.Close()
End Try

Return pesquisa
[txt-color=#0000f0] End Function[/txt-color]



Vlw fera pela atenção....
Tópico encerrado , respostas não são mais permitidas
Voltar