Graymalkin

O equivalente ao App.Path é o Application.StartupPath. Abraços, Graymalkin

Isso mesmo. Não tem jeito, oras. Foi o que eu disse acima, a listbox só guarda itens (linhas) e não "colunas"... Quando você clica em uma das linhas, você *não* está clicando no nome ou no RG e sim em uma linha (somente!). Sim, ele mostra porque a SQL, nesse caso, fica: "SELECT * FROM alunos WHERE nome LIKE '%' ORDER BY nome;", já que "dado" é vazio ("") ao juntar com "%" fica só o "%" mesmo. De fato, procurar por "%" vai retornar todos os nomes. Então, creio que por aí você já tenha uma idéia sobre o que deve ser feito. Abraços, Graymalkin

Qual o seu Visual Studio? O 2003? Quando você instalou o VS, o IIS já estava instalado e funcionando? A pasta onde você está colocando o arquivo .aspx está habilitada para a versão 1.1? Este último você pode ver em: Painel de Controle -> Ferramentas Administrativas -> Internet Information Services -> pedir Propriedades da pasta desejada e olhar a aba ASP.NET. Abraços, Graymalkin

Como assim, "como é gerado"? Algoritmos para criptografia são definidos pelo usuário e podem fazer o que ele quiser para "ocultar" uma informação. Anagramas, troca de caracteres, incrementação de bits, alterações baseadas em chaves, alterações baseadas em posicionamento (par, ímpar, primos, etc.) ou o que mais lhe vier a cabeça são possibilidades para um algoritmo de criptografia. Abraços, Graymalkin

O problema na outra rotina é que falta incrementar o I dentro do loop mais interior. Caso contrário, ele não vai sair de 0. Quanto a acelerar o processo, como a rotina de descriptografia é a mesma que a de criptografia, continua valendo o que eu disse 5 posts acima. Abraços, Graymalkin

Como assim? Uma list só guarda "itens", ou seja, cada linha daquela é um "item". Como você está adicionando o nome e o RG? No mesmo item (ambos na mesma linha)? Abraços, Graymalkin

Na verdade ela não concatena, apenas insere no final do arquivo. Quando você faz: a = "tes" a = a & "te" Ao fazer a & "te" você estará gerando uma *nova string* e estará atribuindo a mesma à a. O processo *não é* simplesmente chegar no final de "a" e enxertar o novo pedaço, por isso é que o processo vai ficando cada vez mais demorado a medida que a string vai crescendo. Isso se tratando de strings. No caso do Put, a nova string simplesmente é colocada no final do arquivo e não importa o que havia antes (ela nem sequer olha isso), por isso que o processo é bem mais rápido. Sacou? Graymalkin

Você não vai achar um tutorial especificamente sobre isso. Tutoriais, em geral, explicam como utilizar os recursos disponíveis e você deverá organizá-los de forma a fazer o que precisa. Agora, se é isso que você quer fazer (listar os nomes de acordo com o que foi digitado na caixa Text5) pra quê tanta complicação? Veja: Private Sub Text5_Change() Dim dado As String Dim rsTemp As New ADODB.Recordset List1.Clear dado = Text5.Text With rsTemp .Open "Select * From alunos where nome LIKE '" & dado & "%' order by nome", cn, adOpenStatic, adLockReadOnly If Not .EOF Then List1.ToolTipText = "Clique em um dos nomes disponiveis para verificar dados completos." Else List1.ToolTipText = "Nenhum nome disponivel . " End If Do While Not .EOF List1.AddItem .Fields("nome").Value .MoveNext Loop End With End Sub Substitua o seu Text5_Change() por este acima e veja o resultado. Abraços, Graymalkin

Veja a quantidade strings que você está manipulando... acho que realmente vai ficar difícil acelerar esse processo (a não ser fazendo ele em C... ). Sim, nesse caso seria melhor utilizar o modo binário e a instrução Put ao invés do Print. Abraços, Graymalkin

Onde você inicializa "alunos"? Você só pode utilizá-lo depois de tê-lo inicializado. Isso ocorre em List1_Click, porém você está tentando utilizá-lo em Text5_Change. Não sei qual é a sua idéia, mas do jeito que está, você deve primeiro dar um clique na List1 para depois poder escrever algo na Text5. E, você precisa estudar um pouquinho mais a estrutura de um programa (principalmente objetos, escopos, orientação a eventos). Abraços, Graymalkin

Nessa função o tamanho da string não influencia em nada. Ele é utilizado apenas para percorrer a string. Portanto, não existe problema algum em concatenar as partes separadas, juntar tudo e depois descriptografar. Veja esse teste que fiz aqui: k = Criptografia("teste1") j = Criptografia("teste2") Debug.Print Criptografia(k & j) Veja que juntei k e j antes de descriptografar e a saída é correta. Abraços, Graymalkin

Qual é a sua função? Abraços, Graymalkin

Ué?! Eu falei ali em cima: Ou seja, é só ir no General Declarations (onde *você* declarou o "cn" e o "rs" - você nunca se perguntou por quê eles estão ali? ) e coloque o "alunos" também: dim alunos as Recordset Sacou? Graymalkin

Criptografa cada parte, ué?! Não vai dar no mesmo? Ou seja: print #n, criptografia(banco(x, y, z)) A não ser que a sua função de criptografia utilize o tamanho da string nos cálculos para criptografar. Nesse caso, aí complica. Abraços, Graymalkin

Claro, "alunos" não existe ali. Só existe lá no List1_Click. Você deve ter em mente o escopo de variáveis dentro do VB. Declare ela no General Declarations e o seu código funcionará. Abraços, Graymalkin

Sim, cadê a conexão ali? No segundo parâmetro de Open você deve informar a conexão (um ADODB.Connection que você cria anteriormente). No seu caso, é o "cn" que você declarou lá no General Declarations e que abrir no Form_Load. Abraços, Graymalkin

Ah, sim! De fato. Nesse caso então, a solução acima não é viável. Mas, já experimentou escrever diretamente no arquivo ao invés de concatenar em uma string para depois fazer isso? Abraços, Graymalkin

Em qual linha? Seja mais específico, por favor. Sempre poste a mensagem do erro (já que os números de erro não significam nada para mim [eu vou ficar guardando número na cabeça?! ] ) e a parte do código em que o erro ocorre. De preferência, poste a rotina completa em que o erro ocorre ou pelo menos do começo da rotina até a linha do erro. Abraços, Graymalkin

Ela não tem limite, mas você tem. Veja: For Y = 0 To 100 For X = 0 To 50 For Z = 0 To 20 conteudo = conteudo & banco(Y, X, Z) Next Z Next X Next Y Uma vez que você definiu os valores nos Fors ali o número de iterações (loops) *é* fixo, ou seja, 101*51*21. Então, sua string deverá ter este tamanho, ou seja: conteúdo = string(101*51*21, chr(0)) Se você fizer algo como: For Y = 0 To limite1 For X = 0 To limite2 For Z = 0 To limite3 conteudo = conteudo & banco(Y, X, Z) Next Z Next X Next Y Sua string será então: conteúdo = string(limite1*limite2*limite3, chr(0)) Dá no mesmo. Sacou? Graymalkin

Qual é, exatamente, o erro? Abraços, Graymalkin

Para este existem vários. Se você quer aplicativos utilitários, você tem o L.A.M.E. e o Blade. E diversos players de música fazem isso, como o MusicMatch Jukebox, por exemplo. E, se você procurar, também encontra OCXs e bibliotecas para isso. Abraços, Graymalkin

Dê uma olhadela aqui: http://www.modpython.org/ Abraços, Graymalkin

Dê uma olhada no 7º post deste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=44682 Abraços, Graymalkin

Sim, este mesmo. Abraços, Graymalkin

Sim, eu entendi o que você quer. Porém, o jeito mais próximo que achei foi esse, que replica a mesma imagem por toda a listview. Abraços, Graymalkin