Passar valor para consulta com TOP


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Passar valor para consulta com TOP

ATS

OURINHOS
SP - BRASIL

Postada em 22/08/2005 09:59 hs

Como faço para passar um valor para uma consulta que utiliza o comando TOP tipo:

SELECT TOP 500

Ao inves de digitar o valor (500) diretamente na consulta eu gostaria que a consulta pegasse este valor em uma textbox onde o valor é digitado pelo usuário, só que não estou conseguindo passar este valor para a consulta.

SELECT TOP txtValor

VACA

LIMEIRA
SP - BRASIL

Postada em 22/08/2005 10:18 hs

como naum?
c por um akso tah fazendu assim:
<variavel de consulta>= "Select Top '" & <txt_box> & "' <blablablalbalbla>"
?

"Quando estou fraco, aí então é que sou Poderoso"

ATS

OURINHOS
SP - BRASIL

Postada em 22/08/2005 10:29 hs

Estou fazendo assim:

rstTabela.Open "SELECT TOP '" & txtRegistros & "' tblCadProd.CodigoProduto, " _
      & "tblCadProd.Grupo, tblCadProd.CodigoBarras, tblCadProd.DescricaoProduto, " _
      & "tblCadProd.Autor, tblCadProd.Editora, tblCadProd.Assunto, " _
      & "tblCadProd.Setor, tblCadProd.ISBN, tblCadProd.QuantidadeEstoque, " _
      & "tblCadProd.EstoqueMinimo, tblCadProd.PrecoCusto, " _
      & "tblCadProd.PrecoVenda, tblCadProd.DataAquisicao, " _
      & "tblCadProd.MargemLucro, tblCadProd.CodigoInterno , tblCadProd.Edicao, " _
      & "tblCadProd.Pagina, tblCadProd.Ano, tblCadProd.Idioma, tblCadProd.foto, " _
      & "tblCadProd.Classe, tblCadProd.Classificacao, tblCadProd.DataUltimoReajustePreco, " _
      & "tblCadProd.ProdutoInativo, tblCadProd.NaoImpProdTabPreco, " _
      & "tblCadProd.Observacao from tblCadProd " _
      & "WHERE tblCadProd.Grupo LIKE 'Livros' " _
      & "ORDER BY tblCadProd.DescricaoProduto;", cnnEstoque, adOpenKeyset, adLockPessimistic, adCmdText

So que não esta dando certo, mas se eu tiro o: '" & txtRegistros & "' e coloco um numero qualquer tipo: 100 ou qualquer outro numero funciona.

VACA

LIMEIRA
SP - BRASIL

Postada em 22/08/2005 10:56 hs

eh acess certo? tira as apas simples e dah um cdbl no txt. tenta tb tirar isso rst.open jogar numa variavel separada e usar no set rst = db.openrecordset (<variavel>), sendo db a variavel de conecçao com o bando de dados e ve se isso dah certo
qq coisa meu msn eh mduscov@hotmail.com

"Quando estou fraco, aí então é que sou Poderoso"

ATS

OURINHOS
SP - BRASIL

Postada em 22/08/2005 13:22 hs

Deu certo muito obrigado.

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

Postada em 22/08/2005 13:27 hs

Amigos,

Posso dar uma opinao soh?

Procurem usar o Set rst = db.OpenRecordset somente qdo precisarem de desempenho... Se vcs forem abrir o recordset para apenas ler os dados, e fechar em seguida...

Mas se forem usar ele pra qq outra coisa, procurem semrpe usar o metodo Open do recordset.... isso eh recomendacao da micro$oft com relação a segurança...

Mas minha opniao principal eh Morte ao DAO... vamos migrar pra ADO, ADOX, ADO.Net, ect... quem nao se atualiza, o mercado exclue....

Flw!

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR