AJUDA COM PARAMETROS

SANROMAN 06/06/2015 12:47:40
#447475
Boa tarde

Gostaria de saber como usar parâmetros para o código abaixo:

[code vbnet] Private Sub VendaComanda()

Dim sqlCon As New SqlConnection(strCmd)
Dim strSql As String = [Ô]SELECT CodProd, Produto, PrecoUnitario, Qtde, Valor, DataVenda, ComandaNum, CodFunc, Atendente, HoraEnt, HoraSaida, Ocupantes, Credito, NomeCliente, CPF, CodCliente [Ô] & _
[Ô]FROM TB_VendaComanda [Ô] & _
[Ô]WHERE ComandaNum = [ô][Ô] & txtNumComanda.Text & [Ô][ô][Ô]

Dim sqlCmd As New SqlCommand(strSql, sqlCon)
Dim dr As SqlDataReader
listProdComanda.Items.Clear()

sqlCmd.Connection.Open()
dr = sqlCmd.ExecuteReader

While dr.Read

Dim lvItem As New ListViewItem(New String() {dr.GetValue(0).ToString, dr.GetString(1).ToString, dr.GetDecimal(2).ToString([Ô]N[Ô], nfi), dr.GetInt32(3).ToString, dr.GetDecimal(4).ToString([Ô]N[Ô], nfi)})
Me.listProdComanda.Items.Add(lvItem)
txtDataVendaComanda.Text = dr([Ô]DataVenda[Ô]).ToString
txtNumComanda.Text = dr([Ô]ComandaNum[Ô]).ToString
txtCodFuncComanda.Text = dr([Ô]CodFunc[Ô]).ToString
txtAtendenteComanda.Text = dr([Ô]Atendente[Ô]).ToString
txtHoraEntComanda.Text = dr([Ô]HoraEnt[Ô]).ToString
txtHoraSaidaComanda.Text = dr([Ô]HoraSaida[Ô]).ToString
txtOcupantesComanda.Text = dr([Ô]Ocupantes[Ô]).ToString
txtCreditoComanda.Text = dr([Ô]Credito[Ô]).ToString
txtNomeClienteComanda.Text = dr([Ô]NomeCliente[Ô]).ToString
txtCPFClienteComanda.Text = dr([Ô]CPF[Ô]).ToString
txtCodClienteComanda.Text = dr([Ô]CodCliente[Ô]).ToString
End While

sqlCon.Close()
dr.Close()

somarValorItensComanda()
creditoFinal()
somarQtdeItensComanda()

End Sub [/code]

Desde já agradeço qualquer ajuda.
TUNUSAT 07/06/2015 03:19:37
#447489 Resposta escolhida
SANROMAN,

Não entendi a pergunta.

A Sub acima (VendaComanda) está fazendo a busca em um banco de dados SQL Server de uma query (strSql) e preenchendo alguns campos texto e no final rodando algumas Subs ou Funções... é isso.

[][ô]s,
Tunusat.
SANROMAN 07/06/2015 10:20:12
#447490
Bom dia TUNASAT

Sim e exatamente isso.

E que estou tentando melhorar meu código e gostaria de não utilizar mais campos texto ( [Ô]WHERE ComandaNum = [ô][Ô] &[txt-color=#e80000] txtNumComanda.Text [/txt-color]& [Ô][ô][Ô]) em query.

Isso é possível?.

Tenha um bom domingo.
FILMAN 07/06/2015 11:55:18
#447492
Esse tópico aqui pode lhe ajudar! O banco utilizado é MySQL, mas é a mesma expressão para SQL Server, adapte no seu código!

http://vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=447403&pagina=1
OMAR2011 07/06/2015 12:25:39
#447494
E que estou tentando melhorar meu código e gostaria de não utilizar[txt-color=#e80000] mais campos texto[/txt-color] ( [Ô]WHERE ComandaNum = [ô][Ô] & txtNumComanda.Text & [Ô][ô][Ô]) em query.
Acredito que esta falando sobre [txt-color=#e80000]Textbox,[/txt-color]
O Sentido de uma busca é você digitando para buscar no banco algo parecido ou igual digitação.Então,não tem sentido você eliminar.Veja o Site do google,tem escrita e
busca por voz.
Olhe isto
http://www.macoratti.net/sql_inj.htm
http://www.macoratti.net/09/07/c_adn_7.htm
TUNUSAT 07/06/2015 13:42:19
#447495
SANROMAN,

Desculpa! Agora entendi!
Você quer tirar a QUERY do seu código fonte e colocar em uma STORED PROCEDURE passando somente o parâmetro da cláusula WHERE.
Eu acho isso legal, só não gosto de passar a regra de negócio para dentro do Banco de Dados senão vira uma tremenda bagunça depois para fazer manutenção.

Bacana! Nas respostas acima o pessoal já mostrou como fazer para modificar seu código. Mas você...
Já montou sua Stored Procedure no SQL Server? Caso a resposta seja [Ô]Não[Ô], segue alguns exemplos:

===============================================================================
Criação e Uso de Stored Procedures
http://imasters.com.br/artigo/223/sql-server/criacao-e-uso-de-stored-procedures/
===============================================================================
Introdução às Stored Procedure com SQL Server 2000/2005
http://www.devmedia.com.br/introducao-as-stored-procedure-com-sql-server-2000-2005/2213
===============================================================================
Dominando Stored Procedures
http://www.devmedia.com.br/dominando-stored-procedures/7904
===============================================================================
Como criar uma Stored Procedure Select, insert, delete e/ou update. SQL SERVER
https://webmaicon.wordpress.com/2009/01/18/como-criar-uma-stored-procedure-select-insert-delete-eou-update/
===============================================================================
CREATE PROCEDURE (Transact-SQL)
https://msdn.microsoft.com/pt-br/library/ms187926.aspx
===============================================================================
PD - Criar Stored Procedure de Inserir (Básica) no SQL Server 2008
https://www.youtube.com/watch?v=7qWOLKItjJ0
===============================================================================
PD - Criar Stored Procedure de Inserir, Alterar e Excluir em uma Única no SQL Server 2012
https://www.youtube.com/watch?v=LIT_ubDOXNs
===============================================================================

[][ô]s,
Tunusat.
SANROMAN 07/06/2015 14:03:47
#447496
Boa tarde amigos

Muito obrigado a todos pela ajuda.

Pesquisarei em todos os links postados.

Tenham um ótimo dia.
Tópico encerrado , respostas não são mais permitidas
Voltar