Graymalkin

Em geral os dados são passados para os sites de busca pelo método GET, então fica escrito na própria barra de endereços. Por exemplo, do Google é: http://www.google.com/search?q=Python Onde no lugar de "Python" eu poderia escrever qualquer outra coisa que quisesse procurar. Portanto, você fará apenas a página montar esse endereço de acordo com o que você quer procurar. É claro que existem alguns pormenores no caso, mas você se deparará com eles e saberá resolver. Qualquer dúvida, poste aqui. Abraços, Graymalkin

Com a API GetTextExtentPoint32 você pode obter o tamanho de uma string em pixels. Porém, recomendaria a você usar uma fonte de tamanho fixo (como a Courier New) já que assim você poderá contar a quantidade de caracteres e estabelecer um máximo por linha. Abraços, Graymalkin

Por coincidência mexi com FSO nesse fim de semana (para fazer meu avatar ficar aleatório) e acho que posso te ajudar. O seguinte código lista todos os arquivos de uma determinada pasta. <% Set k = CreateObject("Scripting.FileSystemObject") Set pasta = k.GetFolder(Server.MapPath("stuff/avatares")) For Each arquivo In pasta.Files pos = instrrev(arquivo, "\") if pos>0 then nome = right(arquivo, len(arquivo)-pos) Response.Write(nome & "<br />") end if Next %> Acho que com isso aí você já tem condições de fazer uma ListBox e no final bastará juntar o arquivo escolhido com a pasta de origem. Abraços, Graymalkin

Observe que você bota: Dim rs As New ADODB.Recordset 'e depois: sql = "SELECT * FROM usuarios WHERE codigo='" & Codigo.Text & "' " A consulta sql tem a seguinte sintaxe: Select nomedocampo FROM nomedatabela WHERE condicoes Acontece que o nome da tabela, é o nome da tabela que você declarou no código VB. Você não declarou nenhum recordset com o nome de usuarios. Faça assim: sql = "Select * from rs WHERE codigo='" & Codigo.Text & "';" Rodrigo Editado: Só uma pergunta... Por que você usa: Dim rs As New ADODB.Recordset E depois: Set rs = CreateObject("ADODB.Recordset") ? Se você dimensionou rs como um recordset, não precisa setar ele de novo, eu acho. Na verdade, não. O nome da tabela é o nome real da tabela no banco de dados. Nós usamos o nome do recordset para identificar um conjunto de registros de uma tabela, dentro do VB. Lembre-se que a SQL é uma string, portanto tudo que está escrito ali é interpretado literalmente. Se você escrever "SELECT * FROM rs" o retorno será todos os registros de uma tabela realmente chamada "rs" (não o Recordset que está no programa). Portanto está correto o "SELECT * FROM usuarios" desde que a tabela dele se chame realmente "usuarios". Quanto a instanciar um Recordset, existem duas maneiras: dim rs as ADODB.recordset ... set rs = CreateObject("ADODB.Recordset") Ou simplesmente: dim rs as new ADODB.Recordset Ele não está usando nenhuma forma nem outra, mas sim uma mistura das duas. Entretanto, não existe problema algum em fazer isso também. Abraços, Graymalkin

Isso é realmente o que está na propridade Name da caixa de texto? Quando você digita "Codigo." aparece a listagem de propriedades e métodos da caixa de texto? Abraços, Graymalkin

Ops, eu falei errado mesmo. O correto seria: public Verifica as string Daí sim você pode digitar Form1.Verifica. Abraços, Graymalkin

Qual o nome da caixa de texto? Graymalkin

Ops... realmente. Esqueci do objeto Connection ali no Open. O correto seria: rs.Open sql, cn, 2, 3 Valeu Aragorn! Abraços, Graymalkin

A API BitBlt faz justamente isso, copiar a tela ou um pedaço dela para um dispositivo de contexto (DC). Fiz um exemplo simples aqui. Em um módulo, coloque as seguintes declarações: Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Public Declare Function GetDesktopWindow Lib "user32" () As Long Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Em um form, coloque uma picturebox (Picture1) e no evento Click de um botão coloque o seguinte código: Picture1.AutoRedraw = True Picture1.Height = Screen.Height Picture1.Width = Screen.Width h = GetDC(GetDesktopWindow()) BitBlt Picture1.hDC, 0, 0, ScaleX(Screen.Width, 1, 3), ScaleY(Screen.Height, 1, 3), h, 0, 0, vbSrcCopy SavePicture Picture1.Image, "c:\teste.bmp" O código acima capturará a tela e a colocará na picturebox, em seguida irá salvar a figura como "c:\teste.bmp". Abraços, Graymalkin

Daquele mesmo jeito que você falou sobre o "session no Where" no outro tópico. Exemplo: sql = "SELECT * FROM tabela WHERE codigo=" & txtCódigo.text & ";" rs.open sql, 2, 3 Abraços, Graymalkin

Uma vez declarada a variável no General Declarations (aquela parte lá do topo da janela de código)... Dim Verifica as String ... você pode chamá-la de qualquer lugar da seguinte maneira (por exemplo): text1.text = Form1.Verifica Veja que é só colocar o nome do form + . + nome da variável. Abraços, Graymalkin PS: Quando você quiser um outro assunto diferente do tópico original, poste outro tópico.

Leia novamente o que disse no outro post (em especial a parte em negrito): Se você declarar "Coleção" em cada um dos forms, a mesma só existirá para aquele form. Já quando você declara no módulo (apenas uma vez) ela vale para ambos os forms. Abraços, Graymalkin

Você pode fazer assim: For i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) Then List1.RemoveItem i End If Next i Abraços, Graymalkin

Como assim "enabled"? Habilitado? Por padrão todas as caixas de textos já são habilitadas. Para desabilitá-las você usa a propriedade Enabled definindo-a para False. É isso mesmo que você quer? Ou você quis dizer "selecionado"? Abraços, Graymalkin

Ah, isso não é nada demais. Todos os retornos de uma Session são Variants, que podem ser concatenadas. O exemplo que você deu seria o mesmo que: usuário = Session("login") rs.Open "SELECT * FROM usuarios WHERE login = '" & usuário & "'" Portanto, você pode ver que não existe diferença. Uma vez que a variável "usuário" tem o valor, você pode concatená-la com qualquer outra string; isso não é uma exclusividade de uma Session. No caso de uma coleção, seria necessário você declará-la assim (de preferência em um módulo): dim Coleção as new collection Daí, quando o usuário fizesse o login, você usaria (supondo que txtLogin é uma caixa de texto onde o usuário digitou o login dele): Coleção.Add txtLogin.text, "login" A partir daí, você poderia fazer igual ao exemplo: rs.Open "SELECT * FROM usuarios WHERE login = '" & Coleção("login") & "'" Abraços, Graymalkin

O que seria esse "session no Where"? Pode dar um exemplo? Ah, lembrei de uma coisa que é bem parecida com a Session, que são as Collections (Coleções). A utilização lembra bastante o modo de uso de uma Session (pelo menos para resgatar um valor previamente guardado), mas ainda assim, as coleções não tem a mesma finalidade das Sessions (as coleções só guardam o que você quiser guardar; não tem variáveis fixas que são preenchidas automaticamente). Abraços, Graymalkin

Não, não tem. O que se pode fazer é armazenar informações em variáveis públicas em módulos (que serão visíveis para o projeto todo). Para isso, basta você adicionar um Módulo (Module) e declarar as variáveis da seguinte maneira: public usuário as string Daí, em qualquer lugar que você alterar ou quiser o valor de "usuário" bastará fazer como com qualquer variável local. Abraços, Graymalkin

Foi o que eu tinha falado 8 posts atrás: E em relação a aparecer automaticamente na tela, a dica também já está acima. Abraços, Graymalkin

Coloque o código todo aqui novamente. Abraços, Graymalkin

Supondo que você tem o seguinte endereço: http://www.site.com.br/paginabusca.asp?pag=5 Você pode obter o valor de "pag" da seguinte maneira: pagina = int(Request.QueryString("pag")) Com isso, você já tem o suficiente para fazer o que quer. O restante depende do seu conhecimento de VBScript e ADO. Qualquer dúvida, 'stamos aí. Abraços, Graymalkin

Não, o Data dá esse erro porque a versão do Access deve ser diferente da 97 (2000 ou 2003). O Data só aceita até o Access 97. Com ADO não existe esse problema, já que você está utilizando o Jet 4. E, no caso do ADO, não dá erro algum? Simplesmente não aparece nada? Abraços, Graymalkin

Receba o número da página como um dos parâmetros. Por exemplo, se a consulta tem qualquer quantidade de itens e você recebeu como parâmetro "pagina" o valor 4, deverá mostrar os itens de 40 (4*10) até 50 (40+10 ou (4+1)*10). E para os links "anterior" e "próximo" bastará se valer do mesmo valor (a anterior é "pagina"-1, ou seja, 4-1=3) e a posterior é "pagina"+1, ou seja, 4+1=5). Abraços, Graymalkin

E quando você clica no botão não acontece nada? Nenhum erro? Graymalkin

Será que não daria para extender só por mais uma semana (tipo, para o dia 29)? O meu projeto está quase pronto, mas tem ainda algumas coisas que pensei aqui e creio que não daria tempo de fazer de hoje para amanhã. Infelizmente, só disponho de tempo nos fins-de-semana, portanto só peguei no projeto no último Domingo (foi quando vi qual era o projeto) e nesse Sábado (hoje), e pegarei amanhã. Se não der, tudo bem. Obrigado e abraços, Graymalkin

Não use Select Case nesse caso. Tanto o Select Case quanto o ElseIf executam apenas um dos blocos mesmo que uma condição apareça mais de uma vez. Além disso, os nomes dos campos não deveriam ser diferentes? Afinal de contas, de qual "field" ele deverá retornar o valor quando você requisitá-lo? Abraços, Graymalkin