Graymalkin

Use ADO via código ou o controle ADODC no lugar do Data. Abraços, Graymalkin

Movendo para Access. Graymalkin

Tem um problema sério no seu código. Você está usando o mesmo DataControl para adicionar e para fazer a pesquisa (ao mesmo tempo). Provavelmente você está chamando o AddNew (que posiciona o cursor em um novo registro, em branco). Daí, naquele seu código você faz um FindFirst (que posiciona o seu cursor no registro encontrado ou em EOF caso não encontre). Ao fazer isso você está finalizando o seu AddNew. O ideal no caso seria fazer a pesquisa antes de chamar o AddNew, porque você não pode mexer no cursor da tabela enquanto está adicionando um registro. Sacou? ;) Graymalkin

Você tem que usar no valor que vem do site dos Correios. Onde está parte ali no código acima? Graymalkin

Você deveria usar a função printf() e não printif(), não? Abraços, Graymalkin

Dê uma olhada na propriedade/coleção Fields do seu ADODB.Recordset. Você deve poder fazer algo assim: For Each campo In rs.Fields Response.Write campo.Name & " - " & campo.Type Next Certo? ;) Graymalkin

Coloque uma imagem de fundo nele. Não uso a ToolBar, mas como você sabe qual é espeficamente aquele controle? Abraços, Graymalkin

Cevvedana, eu tenho que concordar com o D4n1l0d, não dá pra te ajudar com a informação que você passou. Você tem que pelo menos postar a parte do código em que ocorre o problema. Abraços, Graymalkin

Sim, eu sugerir justamente isso. É exatamente esta a idéia de um protocolo que estou desenvolvendo para um P2P (tipo eMule) só que sem servidor. No caso, todos os clientes possuem listas mais-ou-menos atualizadas e a medida que novos clientes vão sendo inter-conectados eles passam adiante esta informação para seus próprios clientes. Abraços, Graymalkin

Dê uma olhada na função GetKeyState da API Win32. Você deverá encontrar exemplos dela aqui mesmo no fórum. Abraços, Graymalkin

Vão ser mostrados com a aspa simples. O único problema da aspa simples em uma instrução SQL é que ela também é utilizada para delimitar strings. Imagine o seguinte: INSERT INTO tabela (Nome) VALUES ('Carlos Sant'Anna'); Note que a string parece terminar na primeira aspa que fecha (depois do "t"), só que queremos que ela termine depois do último "a". No caso, dobrar a aspa simples é a maneira de se dizer que a string não termina ali e sim que o caracter de aspa simples é que é o que queremos. Veja a diferença: INSERT INTO tabela (Nome) VALUES ('Carlos Sant''Anna'); Sacou? ;) Graymalkin

De fato, falei besteira. É que tudo indicava que String era um tipo por valor. Realmente String está implementada no namespace System como uma *classe* e não como uma estrutura, daí a sua característica de ser uma referência. Os demais tipos são implementados como estruturas (Int32, Int64, Double, etc.). Mas, é fácil explicar porque ele se comporta como um valor no caso em questão. Lembre-se da declaração de uma função: Viu o ByVal em negrito? É ele que indica que o tipo de passagem, por valor ou por referência. O parâmetros de MsgBox() são todos por valor. Experimente criar uma função (ou rotina) com passagem por referência (ByRef) e altere a string e você verá a diferença. Agora, o que você quer seria possível se existisse a possibilidade herdar do tipo System.ValueType. Mas, aparentemente não se pode herdar de nenhuma classe disponível no namespace System (mas como um Enum pode, creio que esse limite só seja imposto para tipos definidos pelo usuário). Abraços, Graymalkin

Interessante o exercício! :) Nunca tinha visto antes, mas solucionei aqui em menos de 5 minutos. Então, como a idéia é fazer você pensar para chegar a solução, não tem graça eu entregar o código assim de bandeja... Portanto, é melhor se eu explicar o funcionamento dos operadores >> e &. O operador & (E bit-a-bit) compara os bits de dois valores retornando a operação lógica E realizada entre eles. Ou seja, se for 0 E 1 vai dar 0, já que a regra do "E" é que só dá 1 quando ambos os valores são 1. Por exemplo, se fizermos uma operação E bit-a-bit entre 5 e 2 teremos 0, já que: 5 em binário 101 2 em binário 010 -------------------- 5 E 2 ===== 000 Já se fizermos entre 7 e 2 teremos o valor 2, já que: 7 em binário 111 2 em binário 010 -------------------- 7 E 2 ===== 010 Compara-se cada bit do primeiro com cada bit do segundo valor, resultando em 0 ou 1. Para ficar mais claro, vai mais um exemplo, 9 E 7 que resulta em 1: 9 em binário 1001 7 em binário 0111 -------------------- 9 E 7 ===== 0001 Agora o operador de deslocamento de bit para a direita (>>) funciona exatamente como seu nome sugere, ou seja, ele desloca ("empurra") os bits para a direita, incluindo n zeros e retirando n bits do final. Por exemplo, se fizermos... 9 >> 1 ... vamos ter 4, já que 9 em binário é 1001 e se deslocarmos 1 bit para a direita teremos 0100, o que em decimal é 4. Se fizessemos 9 >> 2 deslocaríamos 2 bits e então teríamos o valor 2 (0010). Sacou? ;) Agora é só matutar aí como fazer a contagem. Abraços, Graymalkin

Então, talvez fosse mais simples você ter uma máquina central que estaria mantendo uma lista dos computadores disponíveis. Esta teria um endereço fixo e assim cada cliente que estivesse on-line iria notificá-la. E todos os clientes poderiam requisitar dela uma lista dos outros clientes disponíveis. Abraços, Graymalkin

Em relação a classes, você pode dar uma lida neste post: http://scriptbrasil.com.br/forum/index.php...ost&p=57753 E, por acaso, há muito tempo atrás, eu já fiz um exemplo de árvore em VB usando classes. Você pode baixá-lo aqui: http://www.gs.kitbr.com/stuff/BTree.zip Abraços, Graymalkin

Dobre a aspa simples, ou seja, repita ela duas vezes. Isso ocorre porque a aspa simples é o delimitador de strings. Ou seja, "Sant'anna" deverá ser "Sant''anna" para ser inserido. Note que '' (duas aspas simples) não é o mesmo que " (uma aspa dupla). Para tanto você pode usar a função Replace() para substituir todas as ocorrências de aspas simples por duas aspas simples: Dim chamada, txt, data, nome, hora, SQL chamada = Request.Form("titulo") txt = Replace(Request.Form("journalItem"), "'", "''") data = Request.form("data") nome = Request.form("nome") hora = Request.form("hora") If chamada = "" or txt = "" Then Response.redirect "publicando.asp" SQL = "INSERT INTO posts (titpost, post, datapost, autorpost, horapost) VALUES ('" & chamada & "', '" & txt & "','" & data & "','" & nome & "','" & hora & "')" ConnDB.Execute(SQL) Response.Redirect "publicando.asp?erro=1" Abraços, Graymalkin

Dê uma olhada neste componente: http://www.martin2k.co.uk/vb6/tips/vb_35.php Nunca usei, já que não tenho uma webcam, mas parece que ele faz o serviço. Abraços, Graymalkin

Acho que daria para você sobrescrever o método Close() para não fechar e sim somente fazer com ele desapareça (usando o método Hide()). Daí, no seu Open() você iria verificar se ele já existe e se está fechado, para então mostrá-lo na tela (usando o método Show()). Abraços, Graymalkin

Provavelmente está caindo nas pastas bin\Release ou bin\Debug. Você pode verificar pelas propriedades do projeto (na opção Compile). Abraços, Graymalkin

Não, o VB6 não é de graça igual ao VB2005. Mas, você deverá encontrar bons tutoriais de sockets para VB2005 ou VB.NET. E se for o caso, poste a sua dúvida na sala de .NET. Abraços, Graymalkin

Esse código é para o Visual Basic 6.0 e não o Visual Basic 2005 (que é bem diferente, por ser baseado na plataforma .NET). Até tem como adaptar esse código para o VB2005, mas eu recomendaria a você procurar uma solução nativa para sockets neste ambiente (o namespace System.Net.Sockets). Abraços, Graymalkin

Na verdade são só 254 possibilidades (0 é para a máscara e 255 para broadcast), mas sim, certamente levaria um tempinho bom. O ideal mesmo seria utilizar uma alternativa mais nativa para receber os computadores da rede, mas desconheço se existe alguma função da API Win32 específica para isso. Então, acho que esse "quebra-galho" de gravar o resultado do net view em um arquivo texto seria o mais utilizável no caso. Abraços, Graymalkin

Os nomes estão certos? Graymalkin

Ah, agora eu entendi. Só que você não leu bem... eles *não* pedem para estabelecer a conexão *com* Python: Você precisa estabelecer uma conexão com o servidor de modo que você possa digitar os comandos no seu computador e que eles sejam executados lá (no servidor). Como é dito ali, esse tipo de conexão depende do servidor utilizado, e como exemplo cita-se o SSH para servidores baseados em UNIX. Qual o servidor usado no caso? E você viu se ele atende todos os requisitos descritos em: https://www.google.com/webmasters/tools/doc...-generator.html (na seção Before you begin)? Abraços, Graymalkin

É por isso que mesmo no VB eu sempre uso os parênteses. :) Abraços, Graymalkin