Graymalkin

Isso não invalida o que eu disse, já que para cada instrução For... Next você terá o número de iterações (e o número total de iterações será a multiplicação desses valores). No entanto, acho que você nem precisa disso. Aliás, não entendi porque você colocou essa instrução em um Timer, já que, pelo que entendi, ela vai ser executada apenas uma vez. De qualquer forma, naquele "For pos = 0 To 39" você poderia colocar (dentro do loop) o "progressbar1.value = progressbar1.value + 1" e antes do loop definir que progressbar1.max é igual a 39. Não vai representar todo o processo, mas pelo menos vai representar a parte mais demorada. Abraços, Graymalkin

Tenta abrir o banco de dados (se não for muito grande) em um editor de textos comum (como o Edit, por exemplo) e veja se é possível fazer a leitura diretamente (como texto mesmo). Talvez dê certo e bastará que você crie as rotinas de importação. Abraços, Graymalkin

Não sei se vai servir para o seu caso, mas com o código abaixo é possível obter todas as pastas dentro de uma determinada pasta: pastainicial = "c:\temp\" pasta = Dir(pastainicial, vbDirectory) Do While pasta <> "" If GetAttr(pastainicial & pasta) And vbDirectory Then Debug.Print pastainicial & pasta End If pasta = Dir Loop No exemplo acima, coloquei o caminho para aparecer na janela Immediate, mas você pode fazer o que quiser com ele. Abraços, Graymalkin

Realmente, execução dinâmica de código não existe no VB. No entanto, para o que você quer, pode-se usar o Microsoft Script Control (marque-o na opção Components do menu Project). Após colocá-lo no form, coloque isso no evento Click de um botão: sString = "(2 + 3) * 2" MsgBox ScriptControl1.Eval(sString) Execute e veja o resultado. Abraços, Graymalkin

O nome da sua Textbox é (ou era) realmente Text1? Se você colocar Text1.Text e não existir nenhuma textbox com esse nome, ele realmente dará erro. Porém, se você escrever apenas Text1, e também não existir textbox alguma com esse nome, ele não dará erro pois achará que se trata de uma variável qualquer. Abraços, Graymalkin

Você não especificou se está usando ADO ou DAO, no entanto, o método seria o mesmo, ou seja, utilizar o operador LIKE e uma string com caracteres coringas em uma SQL. Exemplo: SELECT * FROM tabela WHERE nome LIKE '%teste%' Se não me engano, você também pode usar somente "nome LIKE '%teste%'" em um Find ou FindFirst. E no lugar do '%' usar '*'. Abraços, Graymalkin

Coloque o seguinte no evento ItemCheck da ListView: Dim it As ListItem For Each it In ListView1.ListItems it.Checked = False Next it Item.Checked = True Acho que isso aí resolve o seu problema. Abraços, Graymalkin

Obrigado, PiGmEu. E o post referido é o seguinte: http://scriptbrasil.com.br/forum/index.php?showtopic=23059 Abraços, Graymalkin

Acho que você não entendeu o que eu disse na outra mensagem, pois encontrei duas inconsistências no que você disse: em uma instrução For...Next você sempre específica um valor máximo e se você usa ListCount como o valor final, esse será o seu valor máximo. Portanto... ProgressBar1.Max = objeto.ListCount Abraços, Graymalkin

Crie um arquivo de lote (.bat) e execute-o através da função Shell(). Abraços, Graymalkin

Se o seu programa funcionar do jeito que estou imaginando (redirecionando os dados recebidos e enviados através de uma porta) não entendi qual a sua necessidade (já que o próprio programa redireciona, portanto basta você enviar apenas a quantidade máxima de dados). Explique melhor o que você realmente precisa. Abraços, Graymalkin

Muito pelo contrário. Apesar de Text ser a propriedade padrão de toda e qualquer TextBox é muito mais correto explicitá-la (por mais indiferente que isso possa parecer). Abraços, Graymalkin

Sim, seria o mesmo. Abraços, Graymalkin

Ah sim, agora compreendi. Mas, no seu caso, VB não serve. O ideal é você usar ASP ou PHP (como foi sugerido). Para criar o banco de dados você pode usar o Access ou MySQL, o que for melhor para ti. Usando ASP você vai programar em VBScript que é fácil e é bastante semelhante ao VB (inclusive a forma de fazer a pesquisa no banco de dados). Qualquer dúvida, 'stamos aí. Abraços, Graymalkin

Ah, mas você não tinha falado nisso. Para tal, você tem duas opções: ou usar os métodos AddNew e Update do objeto Recordset (no seu exemplo, este se chama "tabela") ou usar o método Execute do objeto Connection (no seu exemplo, este se chama "con"). Para o primeiro caso, seria algo assim: tabela.AddNew tabela.fields("nome").value = "um nome" tabela.fields("senha").value = "uma senha" tabela.Update Para o segundo caso seria: con.Execute "INSERT INTO tabela (nome, senha) VALUES ('um nome', 'uma senha');" Abraços, Graymalkin

Ops, perdão. Esqueci de especificar que o rs tratava-se de um Recordset. Não sei como você está implementando seu código, mas tudo que você tem que saber é que a propriedade Max guarda o valor máximo da barra de progresso e a propriedade Value guarda o valor atual (a quantidade já preenchida). Se você definir que Max=100 então Value irá aceitar valores entre 0 e 100. No exemplo anterior eu defini que Max é igual a quantidade de registros do Recordset (podem ser 10, 20, 32, etc.) e percorri todo o Recordset, acrescentando +1 à propriedade Value a cada iteração. Abraços, Graymalkin

Não entendi a parte do "atrapalhar" . Ainda não está dando certo? A qual erro você se refere? Abraços, Graymalkin

Quando você cria a tabela você já especifica. Quando você está lá no Access e cria um campo do tipo Texto já define que o tipo de dados do campo é Text; quando cria um campo do tipo Número, já o define de acordo com o seu tamanho como Integer, Long Integer, Single, Double, etc. Não há necessidade de fazer nada especial em relação a isso. Apenas comentei sobre os tipos de dados para que você pudesse entender que é necessário que os dados que são fornecidos pelo usuário e os dados dos campos sejam do mesmo tipo. Por isso, você não pode comparar um campo Text com 123 (exemplo: NOME = 123) e sim com '123' (exemplo: NOME = '123'); de forma análoga, um campo numérico não pode ser comparado com uma string (exemplo: TOTAL = '145') mas sim com um número (exemplo: TOTAL = 145). O mesmo vale para os demais tipos. Abraços, Graymalkin

Sinceramente não entendi. Você usou a analogia de um site com acesso restrito querendo dizer que quer fazer o mesmo em um programa feito no VB6, ou você quer efetivamente fazer isso pelo VB6? Se puder, explique mais detalhadamente. Abraços, Graymalkin

Realmente não dá. Se isso fosse possível o form não poderia ser chamado de modal e perderia totalmente sua principal função. Abraços, Graymalkin

Por exemplo, se você tem um Recordset cheio de registros e deve processá-los de alguma maneira, você poderia fazer: progressbar1.max = rs.RecordCount progressbar1.value = 0 do while not rs.Eof 'faz algo com o registro progressbar1.value = progressbar1.value + 1 doevents rs.movenext loop Se você queria um exemplo, acho que esse serve. Abraços, Graymalkin

Os tipos de dados são como no VB. Por exemplo, em VB, você não tem variáveis dos tipos string, integer, long, double e boolean? Do mesmo jeito, em uma tabela, você tem campos de certos tipos, como text, integer, double, currency, etc. Abraços, Graymalkin

Os nomes dos campos são mesmo nome e senha? O primeiro erro referia-se aos tipos dos dados (creio que ambos, ou pelo menos o campo nome, seja(m) do tipo texto). Assim como no código em VB devemos colocar as strings entre "" (aspas duplas), em uma SQL devemos colocar strings entre '' (aspas simples). Daí, aquela sentença SQL seria: sql = "Select * from tabela where nome = '" & x & "' and senha = '" & y & "'" Abraços, Graymalkin

Dê um exemplo de como está fazendo isso. Acredito que sua dúvida ficará mais clara dessa forma. Abraços, Graymalkin

Realmente não estou vendo nada de errado em seu código. Mas, só é necessário definir DataSource e DataField. Tente definir apenas estas duas e veja se dá certo. Abraços, Graymalkin