Graymalkin

Qual a linha do erro? Abraços, Graymalkin

Teoricamente sim. Automatizando o IE você pode fazer de forma automática quase tudo que faria manualmente no browser. Abraços, Graymalkin

Uma busca no Google pelo código de erro me revelou isso aqui: http://www.devnewsgroups.net/group/microso...topic14258.aspx O cara conseguiu solucionar um problema semelhante ao seu. Abraços, Graymalkin

Exato. Posicione o cursor de texto *dentro* da sua rotina (entre o Sub XXXX e o End Sub) e depois tecle F5 para executar *ela*. Realmente, se você não estiver com o cursor nela, vai aparecer a janela te pedindo para escolhar qual você quer executar. Abraços, Graymalkin

Logo de cara atribua um dos elementos à variável intermediário, daí você pode remover a condição que testa este elemento. Exemplo: intermediario := a; if (a < b) and (b < c) then intermediario := b else if (a < c) and (c < b) then intermediario := c; Certo? ;) Graymalkin

Você quer substituir uma tecla por outra? Creio que não seja possível fazer isso em outra aplicação, pelo menos não via código. Tem sim como você ativar uma tecla de acordo com outra, mas a teclada originalmente não será cancelada. Para tal fim, dê uma procurada sobre as funções relacionadas ao teclado na API Win32. Se a troca for definitiva você pode dar uma olhada na minha dica deste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=53615 Abraços, Graymalkin

Ainda não entendi qual é o problema... quando você quer chamar esta rotina? É por um botão? Se for, não é só colocar ele no form e colocar o código no seu evento click? Abraços, Graymalkin

Mas, dá algum erro ou coisa do tipo? Se sim, qual a mensagem? Abraços, Graymalkin

Sim, coloque o código dentro de uma rotina (Sub) e execute-a. Abraços, Graymalkin

http://www.crfsp.org.br/sngpc/frequentes.htm Você leu isso? Abraços, Graymalkin

Deve ter alguma configuração no MySQL para permitir o acesso. Eu não uso o MySQL, mas no PostgreSQL a permissão é feita através de um arquivo de configuração que eu tenho que editar. Deve ser um esquema parecido. Experimente olhar a documentação do MySQL. Abraços, Graymalkin

1) Existe dependência entre as três partes? É até possível abrir o mesmo projeto nas três máquinas e modificá-lo, mas vocês não vão conseguir executá-lo ao mesmo tempo. Isso porque a cada compilação o arquivo executável é sobrescrito e não é possível fazer isso enquanto o mesmo está sendo executado (na própria ou em outra máquina). O ideal seria se os três trabalhassem em partes independentes do sistema e que houvesse um projeto que unisse as três partes. Mas, dê uma olhada também no SourceSafe da Microsoft já que eu *acho* que ele pode gerenciar esse tipo de coisa (desenvolvimento cooperativo): http://msdn2.microsoft.com/en-us/vstudio/aa718670.aspx 2) No lugar de localhost você vai colocar o IP ou nome da máquina onde o servidor está instalado. Abraços, Graymalkin

Acho que você postou na sala errada, não? Aqui é a sala de .NET e como não tem o cabeçalho stdfx no seu código, creio que você não esteja usando Managed C++. Se for o caso, eu movo seu tópico para C++. Abraços, Graymalkin

O VB não tem nenhum tipo de opção para converter de 16 bits para 8 bits (ou vice-versa), mas aqui tem uma solução para este problema: http://www.experts-exchange.com/Programmin...Q_10146062.html Abraços, Graymalkin

Células são no Excel... no Access lidamos com registros e campos. Veja um exemplo de como percorrer todos os registros de uma tabela e de como fazer a separação: Dim tabela1 As Recordset 'Obtendo todos os registros da tabela "Tabela1" Set tabela1 = CurrentDb.OpenRecordset("SELECT * FROM Tabela1") 'Percorrendo a tabela Do While Not tabela1.EOF Debug.Print tabela1.Fields("campo").Value valor = tabela1.Fields("campo").Value caracter = "" nvalor = "" For i = 1 To Len(valor) últchr = caracter caracter = Mid(valor, i, 1) If últchr <> "" And ((IsNumeric(últchr) And Not IsNumeric(caracter)) Or (IsNumeric(caracter) And Not IsNumeric(últchr))) Then nvalor = nvalor & "-" & caracter Else nvalor = nvalor & caracter End If Next Debug.Print nvalor tabela1.MoveNext Loop Os dados serão mostrados na janela Imediata. Abraços, Graymalkin

Até onde me lembro não é possível atualizar tabelas em um arquivo do Excel usando o mecanismo JET. Para tal fim eu aconselharia a utilização de automação do Excel. Abraços, Graymalkin

Não sei se serve para o seu caso, mas aqui tem como fazer o contrário (do MS SQL para o Pg): http://people.planetpostgresql.org/mha/ind...PostgreSQL.html Abraços, Graymalkin

Você também pode fazer assim: txtNome.Text = Iif(IsNull(TbCli!NOME), "", TbCli!NOME) Ou seja, se for nulo, retorna "", caso contrário retorna o valor do campo. Abraços, Graymalkin

Que problema estranho... Não tenho a mínima idéia do que seja, mas já experimentou usar System.Object ao invés de object? São a mesma coisa, mas não custa tentar, né? Abraços, Graymalkin

Você não está pegando tudo que o usuário digita... você está pegando o que ele digita no form. Você deve estar usando o evento KeyPress (ou KeyUp ou KeyDown), certo? Então, estes eventos são chamados para cada tecla digitada no form. Você precisa de uma função para pegar as teclas digitadas independente do seu form, portanto dê uma olhada nas funções GetAsyncKeyState ou GetKeyState da API Win32. Abraços, Graymalkin

Veja se isso serve: Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.Navigate "https://www.banifinvest.com.br/tr/econofinance/hp_login_ie_bi.jsp" Do While ie.Busy DoEvents: DoEvents: DoEvents Loop Set formulário = ie.Document.Form formulário.edt_login.Value = "teste" formulário.edt_senha.Value = "senha" formulário.Submit Abraços, Graymalkin

Em WebBrowser1.DocumentText você tem uma string com o código HTML da página, e pode usar o método IndexOf() para verificar a existência de uma determinada string dentro desta. Abraços, Graymalkin

A digitação da senha é em uma página HTML? Ou é naquela janela de autenticação do próprio IE? Porque se for na página dá pra fazer preencher a senha automaticamente. Abraços, Graymalkin

Dê uma procurada sobre a função BitBlt ou as funções GetPixel e SetPixel. Abraços, Graymalkin

Com o WebBrowser é fácil de fazer. Veja um exemplo de como logar no Orkut e chegar na página de recados: WebBrowser1.Navigate ("http://www.orkut.com/") Do While Not WebBrowser1.ReadyState = WebBrowserReadyState.Complete Application.DoEvents() Loop Dim formulário As HtmlElement = WebBrowser1.Document.GetElementById("gaia_loginform") Dim usuário As HtmlElement = WebBrowser1.Document.GetElementById("Email") Dim senha As HtmlElement = WebBrowser1.Document.GetElementById("Passwd") If formulário IsNot Nothing Then usuário.SetAttribute("value", "Seu e-mail") senha.SetAttribute("value", "Sua senha") formulário.InvokeMember ("submit") Do While Not WebBrowser1.ReadyState = WebBrowserReadyState.Complete Application.DoEvents() Loop End If WebBrowser1.Navigate("http://www.orkut.com/Scrapbook.aspx") Bastaria então dar um refresh de tempo em tempo checando se aparece um recado novo na página. Abraços, Graymalkin