jntk

:huh: Pessoal, estou com um "big problem" com o meu D-link 604. Preciso atualizar o firmware dele, mas no site da dlink (.com) não da suporte para a versão do meu modem (HW: B1 - FW: 1.62 b2): "If your D-Link router has firmware version 1.6x, you have a European version and will not work with firmware listed at this site. Please contact D-Link International for a office near you." Legal, né? No site d-link (.com.br) tem vários firmware que não funcionam com a minha versão... Eu ligo no suporte da d-link, fico um tempão aguardando, e depois cai a linha. Resumindo.... PORCARIA DE D-LINK!!!! Alguém tem, ou sabe onde encontrar esse firmware.... (Ah.., já usei o google...rs) No aguardo....

:huh: Pessoal, existe alguma forma de habilitar o Terminal Server (mstsc) para "multiplos usuários"? O que acontece é, quando uma pessoa está logada e eu logo, eu acabo "derrubando" essa pessoa... Sei que se for o mesmo usuário (mesmo login) isso não acontece, mas se são usuários diferentes (login diferente), ele acaba fazendo isso. Aguardo um Help....

:huh: Já tentou usar o componente MaskEdBox? Project->Componentes->Microsoft Masked Edit Control Abraço...

:huh: Aproveitando este mesmo tópico, tenho uma dúvida. Como faço para "caminhar" pelas colunas do arquivo TXT? Por exemplo: Quero chegar a coluna 22 e verificar se tem o número 0. Valeu....

:huh: Microsoft Visual Basic.... Ele pode ser encontrado junto com o pacote Microsoft Visual Studio... Abraço...

:huh: Pessoal, consegui descobrir como realizar isso. Segue abaixo o código: arquivo = Dir(pasta) t = 0 Do While arquivo <> "" t = t + 1 arquivo = Dir Loop MsgBox t Se alguém souber outra forma, postem por favor... Valeu...

Se não me engano, o Corel PhotoPaint, que acompanha o Corel Draw, faz isso. Abraços, Graymalkin Legal!!! Testei, e o Corel PhotoPaint realiza conversões em lote sim.... (Usei a versão 11) Valeu Graymalkin Certo, mas como faço pra inserir essa ocx? Ela já está no VB? ou tem que baixar?

:huh: Pessoal, como faço para contar quantos arquivos existem em uma determinada pasta? Tentei algo como a função "Dir" mas não obtive muito sucesso... No aguardo....

Foi mal... Somente este código... If KeyAscii <= 48 Or KeyAscii >= 57 Then KeyAscii = 0 Valeu Graymalkin

:huh: Pessoal, como faço para que um TextBox na hora da digitação aceite somente números? Não aceite simbolos e/ou letras... No aguardo...

:huh: Pessoal, estou com um pequeno problema. Estou desenvolvendo um software o qual vou cadastrar cerca de uns 3000 ou mais produtos com foto cada um. O problema é, que estou inserindo o Controle "Image" no meu formulário, e as minhas imagens todas estão no formato TIF, e esse controle não aceita TIF, só aceita JPG, BMP, etc... Existe algum outro controle, ou alguma outra forma de eu conseguir inserir essas imagens no formato TIF? Se não, alguém conhece algum programa que converta arquivos TIF para JPG em lote? (porque pra abrir 3000 arquivos e salvar um por um, ninguém merece..rs..) No aguardo....

Pessoal, criei minha aplicação a qual rodou normalmente em meu pc, mas quando instalei em outra máquina acusou um erro. O erro aparece quando tento acessar um determinado relatório feito em Crystal Reports, o qual tem um "poup up" para a inserção de um período de data. Os outros relatórios funcionam perfeitamente. Erro: Run-Time error '50003' Application-defined or object-defined error No aguardo....

Graymalkin, é isso ai mesmo que eu precisava. Valeu cara!!! Ainda bem que neste forum existem pessoas que estão dispostas a ajudar. Abraço. Podem fechar o tópico.

Fmza, mano sem problemas sei que estou meio que "abusando", mas é que estou montando 2 sistemas em VB, e mais um progama em VB, e mesmo com duas apostilas do lado e alguns tutoriais, surgem muitas dúvidas. E que não quer ser chato sou eu... E o que eu quero não é a data atual do sistema, e sim a data que um arquivo qualquer, um DOC, um XLS, o que for, eu saiba, pelo VB quando ele foi criado. Se ele foi criado em 20034, em 2005, e o horário. Desculpem todos pelas inúmeras perguntas, dúvidas, e insistências. Abraço à todos.

Como fazer com que ao "examinar" um determinado arquivo, qualquer que seja, eu consiga jogar a data e hora que ele foi criado em uma variável? Exemplo, se eu tenho um arquivo: C:\programa\aquivo.exe E eu quero jogar em uma variável qualquer a data em que esse arquivo foi gerado. (10/2/2006) & (15:00) No aguardo...

Perfeito, era isso mesmo que eu queria. Valeu. Só uma curiosidade o que seria o Chr(10)?

Como efetuar uma quebra de linha? tentei usar: Chr(13) Mas não funcionou. Ele só colocou um simbolo. No aguardo.

Agora como faço para o VB reconhecer espaços? Pois entre um número e outro tem muito espaço. Como dominuir ou ignorar o espaço depois de um determinado número. No arquivo está algo como: "3011029.....................03196...............................................1.000.....................14.20000............................................" Reconheça os pontos como espaços, (pois postei com espaço e houve uma função que removeu o mesmo, e tive de editar) Aguardo por mais ajuda...

Achei o erro!!! Estava mandando abrir o arquivo, mas não indicando o caminho do mesmo. Resolvi fazendo assim: arq = "C:\teste\" & arquivo Open arq For Binary As #n Ao invés de: Open arquivo For Binary As #n

Tente algo como: 'declarando as variáveis' Dim db As Database Dim sql As String Dim dyn As Dynaset 'indicar o banco de dados Set db = DBEngine.Workspaces(0).OpenDatabase("C:\Data\database.mdb", False, False) 'indicar o sql sql = "select * from controle order by campo" Set dyn = db.CreateDynaset(sql) 'carregar no combo Do While Not dyn.EOF combo.AddItem dyn.Fields("campo") dyn.MoveNext Loop O item "campo", é o campo de sua tabela que você quer ordenar em ordem alfabética. Abraço,

Tente mudar o tipo de dados do seu banco para texto normal. Isso provavelmente acontece porque, o campo número do banco de dados só aceita números, e não aceita simbolos / letras, como por exemplo: () - Abraço...

Cara, você pode tentar algo que coloque um atalho na pasta "Inicializar" do windows. Isso é uma idéia, por código não sei como faria.

Muuuitoo bom, valeu cara. Os dois códigos funcionam corretamente, só que separados. Tentei mesclar os dois códigos mas não consegui. Ele não acha o valor dentro do arquivo, não sei o que fiz ou deixei de fazer. Dim loc As String loc = item.Text pasta = "c:\teste\*.txt" arquivo = Dir(pasta) n = FreeFile() Do While arquivo <> "" 'MsgBox arquivo 'Open "C:\011029.TXT" For Binary As #n Open arquivo For Binary As #n conteúdo = Input(LOF(n), n) Close #n linhas = Split(conteúdo, vbCrLf) linhadesejada = "" For Each linha In linhas posição = InStr(1, linha, loc) If posição > 0 Then linhadesejada = linha Exit For End If Next linha If linhadesejada <> "" Then MsgBox linhadesejada arquivo = Dir Else MsgBox "Não achou!" arquivo = Dir End If Loop Se puderem me ajudar mais uma vez, ficarei grato.

Eu faço um pouco diferente: 'declaração de variáveis Dim db As Database 'indicar o banco de dados Set db = DBEngine.Workspaces(0).OpenDatabase("C:\database.mdb", False, False) Mas isso funciona com o mdb 97... Abraço

Talvez isso lhe ajude: http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=4420 Abraço.