Matheus-vb6

Consegui fazendo uma gambiarra, porque são varias consultas, fiz uma tabela ler os dados e colocar em outra, ai depois vai para o grid.... não da para definir order by... a consulta é feita varias vezes num do while.. Abraços e vlw :)

O GOBACK e o GOFOWARD necessitam de tratamento de erros, já q se feito incorretamente trava o programa.... no caso, se n tiver pagina para voltar ou avançar.... Abraços :)

Ola Frata, Se não me engano, a propriedade que define a navegação é "Navigate" certo? No form_load, coloque : pagina = "http://www.uol.com.br" ' exemplo NOMENAVEGADOR.navigate pagina Teste e poste qualque duvida, Abraços :)

Li o seu codigo, o que eu uso esta bem parecido, porém a mecanica do programa funciona assim... uma consulta é feita varias vezes, contando quantos nomes aparecem na tabela pedidos.... depois uma nova consulta, faz com que verifique quantas vezes aparece cada um desses nomes, é tipo, pra saber quanto foi vendido de cada produto.... Código: Private Sub Form_Load() lstProdutos.Clear abrebanco Set rsdados = New ADODB.Recordset rsdados.Open "select Nome from pedidos group by nome order by nome", cn Do While rsdados.EOF = False lstProdutos.AddItem rsdados("Nome") rsdados.MoveNext Loop With grid .FixedRows = 1 .FixedCols = 1 .Cols = 4 .ColWidth(0) = 500 .ColWidth(1) = 2000 .ColWidth(2) = 800 .ColWidth(3) = 2500 .TextMatrix(0, 1) = "Quantidade vendida" .TextMatrix(0, 2) = "Código" .TextMatrix(0, 3) = "Nome do produto" End With fechabanco abrebanco For L = 0 To lstProdutos.ListCount - 1 Set rsdados = New ADODB.Recordset rsdados.Open "select count(nome) as x from pedidos WHERE nome='" & lstProdutos.List(L) & "'", cn If Len(rsdados("x")) = 1 Then lstQuantidade.AddItem "00" & rsdados("x") & "@#$$#@@" & lstProdutos.List(L) ElseIf Len(rsdados("x")) = 2 Then lstQuantidade.AddItem "0" & rsdados("x") & "@#$$#@@" & lstProdutos.List(L) Else lstQuantidade.AddItem rsdados("x") & "@#$$#@@" & lstProdutos.List(L) End If rsdados.Close Next L fechabanco With grid For L = 0 To lstQuantidade.ListCount - 1 texto = Split(lstQuantidade.List(L), "@#$$#@@") .Rows = .Rows + 1 .TextMatrix(L + 1, 0) = texto(0) .TextMatrix(L + 1, 1) = texto(1) Next L End With End Sub Abraços :D

Boa noite gente... Estou fazendo um código que vai ler os dados de uma tabela e passar para um grid, porém ele está listando assim: 004 012 056 E eu gostaria de uma ordem decrescente... 056 012 004 o código que usei foi esse With grid For L = 0 To lstQuantidade.ListCount - 1 texto = Split(lstQuantidade.List(L), "@#$$#@@") .Rows = .Rows + 1 .TextMatrix(L + 1, 0) = texto(0) .TextMatrix(L + 1, 1) = texto(1) Next L End With Seria algum step no for? Abraços :D

Q feio.... em forum durante o trabalho? kkkkk então cara... eu consegui fazer ele contar por esse codigo, só estou adaptando com o grid, n dei resolvido aqui ainda porque n sei se vai funcionar como eu quero no grid.... usei esse codigo rsdados.open "select count(nome) as x from pedidos where..... Abraço :D

Boa tarde... você poderia postar umas imagens do seu programa? não entendi o que você quis dizer.... Você quer restrigir acesso de formularios? Abraço

Boa tarde... Estou desenvolvendo uma aula online, onde tenho q verificar o conteudo digitado... Se o conteudo tiver certo, o movie clip do fundo vai pro 2, que é verde, se tiver errado, fica vermelho(quadro 3).... Porém não estou obtendo sucesso, sou iniciante na area de flash, uso actionscript2.... onClipEvent(enterFrame){ if(_root.texto.texto == "a"){ _root.fundo.gotoAndStop(2); } else{ _root.fundo.gotoAndStop(3); } } alguém pode me ajudar no erro? Abraço

Deu certo cara... valeu :D Tópico resolvido

Boa tarde Cara, fazer exatamente isso dai eu não sei, mas eu faria o "main.exe" verificar em um banco de dados se a Coluna positivo estava habilitada, ai ele abriria, se não, ele não abriria (end) e pelo seu launcher você alteraria esse valor, e quando o jogo fosse fechado, retornava o valor pra negativo... Abraços :D

Ola pessoal, gostaria de saber como posso agrupar um campo, porém selecionando outros que irão ser utilizados... estou usando esse código Set rsdados2 = New ADODB.Recordset rsdados2.Open "select comanda,data,hora from pedidos WHERE telefone = '" & txtTelefone.Text & "' group by comanda", cn Do While rsdados2.EOF = False cmbPedidos.AddItem rsdados2("Comanda") & " - " & rsdados2("Data") & " - " & rsdados2("hora") rsdados2.MoveNext Loop Mas me retorna isso E se eu inverto o Data com hora, da o mesmo erro, porém escrito "hora" no lugar de data.... Está errada a sintaxe?? Abraços

Ola Galera.... estou fazendo uma aplicação onde preciso saber qual "produto" foi mais vendido, ou seja, quantas vezes ele se repete no banco de dados.. exemplo... vendi 30 A 50 B 25 C o programa teria que me listar em uma lista assim 50 B 30 A 25 C estou usando ADO e Access e acredito que tenho q usar o "group by" mas ele não conta... Abraço :D

Isso ai, confundi com o tool, vlw Kuroi :D

Funcionou cara :D, maldito For, um dia aprenderei kkkkk Resolvido

Voce deve estar usando .text certo?? tente validar pela .tooltiptext Abraço:)

Acho que falei errado, seria uma lista... os valores da lista são obtivos pelo banco de dados, só n sei ler a lista... (listbox)

Ola pessoal.... Vou resumir bem... Tenho que fazer uma impressao dos dados de cada linha da tabela.... exemplo: linha 1 - Matheus linha 2 - Teste só não sei como fazer o programa ler cada linha da tabela... eu gostaria de fazer com um do while... alguém pode ajudar?? Abraços

Achei o erro, fiz varios e varios testes, e era uma coisa bem simples... tem q por group by no "tipo também" rsdados.Open "select Nome,Tipo from produtos group by nome,tipo", cn Resolvido :)

Boa tarde pessoal, eu tenho que fazer uma consulta no banco, agrupando os valores pelo nome, porém preciso ler a tabela tipos também... Estou tentando usar esse codigo: rsdados.Open "select Nome,Tipo from produtos group by nome", cn Mas ele fala "Você tentou realizar uma consulta que não inclui a expressao 'tipo'", também tentei rsdados.Open "select * from produtos group by nome", cn Mas ai fala que não pode agrupar consultando por * Onde estou errando? Alguma solução? Abraço

Cara, poste o código que voce tentou usar para adicionar... eu não usei outro combobox e não usei toolbar, eu só mudei a indexação, exemplo... uma label oculta começa com valor 0 q no caso é o valor do objeto internet... quando ele anterna entre as abas, o valor dessa label vai se alterando, no "entrar" do combobox, você busca pela pg de web q tem o index da label.... Estou na pg 1, index =0 x=lblindex.caption web(x).navigate.... estou na pg 2 , index=2 x=lblindex.caption web(x).navigate Ta meio confuso, mas acho q da pra entende... qualque duvida posta ai... abraço

Pode nos o código que usou para pegar imagem da webcam? e também o que usou para salvar... abraço :)

Ola Flavio, Aqui eu executei o instaldor em modo de compatilbilidade XP e como adm, e foi normal... tenta ai Abraços

Testei na minha impressora(normal) e ela imprimiu normal. Pretendo usar o data report para listar os produto que foram comprados, exemplo: Produto - preço unit. - qnt - total Batata - 2.00 - 0.5(meio quilo) - 1.00 Seria basicamente isso... Acho que por hora ta resolvido, volto a falar aqui caso a impressora amarelinha falhe.

Boa tarde, Pessoal, estou com um projeto em que vou precisar imprimir nota fiscal de compra... Quando a gente faz compra em um mercado por exemplo, a gente pega aquela folinha amarela certo?? então... aquilo que eu gostaria de fazer... alguém pode me ajudar falando como redimensiono o papel? Se tenho q configura aquela impressora pequena, como vou fazer pra fazer a listagem e quantidade de produtos.... Existe algum componente que ajude? Abraços :D

no datareport coloque um image ou picture, não lembro qual dos q é...