Graymalkin

O que é melhor? Desligar o motor do carro sempre que parar em um semáforo ou mantê-lo em funcionamento? Obviamente que a performance (tempo de resposta) e o consumo (mais baixo) são melhores se você mantê-lo em funcionamento. Então, repare no tempo e custo de processamento que é necessário para estabelecer uma conexão com o servidor e depois disso executar a consulta e nos mesmos pontos quando a conexão já está estabelecida e somente a consulta é efetuada. Além disso, quando você diz "boas práticas de programação" você deve ter imaginado bancos de dados baseados em arquivo (como Access ou dBASE) onde é aconselhável mantê-los fechados já que sinistros (problemas de escrita/leitura, desconexão abrupta da rede, desligamento por falta de energia, etc.) podem danificar este tipo de arquivo quando o mesmo está aberto. Porém, estamos falando aqui de um banco de dados cliente-servidor (MySQL, PostgreSQL, SQL Server, etc.) onde este tipo de problema não acontece (por parte dos clientes) já que toda a comunicação é feita pela rede e interpretada pelo servidor (que ignora quaisquer comandos inválidos possivelmente causados por problemas externos). Sacou? ;) Graymalkin

Declare o objeto assim... Dim WithEvents objeto As Classe ... onde o "pulo-do-gato" é a palavra-chave WithEvents. Abraços, Graymalkin

Tente no evento KeyPress verificando quando se pressiona ENTER (13), pois a maioria dos leitores envia um ENTER após o código. Seria algo assim: if keyascii=13 then 'aqui você faz a busca endif Abraços, Graymalkin

Os arquivos .h *não* são bibliotecas. São arquivos de cabeçalho (do inglês, HEADER) e servem somente ao propósito de declarar funções sem realmente implementá-las (ou seja, sem colocar o código que elas executarão). Então, acho melhor você rever seus conceitos e procurar saber o que realmente se quer no trabalho proposto. Abraços, Graymalkin

Eu particularmente prefiro abrir a conexão apenas uma vez durante toda a existência da aplicação, portanto eu criaria uma classe com um método Abrir() (para abrir a conexão) e um método Executar() (para executar uma instrução SQL qualquer e me devolver um DataSet). Daí, no meu form principal (ou em um módulo) eu criaria uma instância pública desta classe para utilização dentro do programa. Mas, é claro, esta é apenas uma forma de se fazer isso. Abraços, Graymalkin

Seja bem-vindo novamente, Denis! Abraços, Graymalkin

Você postou no local errado, não? Acho que isso está mais para JavaScript. Se for o caso, me avise que eu movo o tópico. Abraços, Graymalkin

Este controle não tem uma propriedade do tipo MaxLength? Ou você pode usar o evento KeyDown para verificar a quantidade de caracteres existentes e dependendo disso você cancela ou não a tecla digitada (presente no argumento e). Abraços, Graymalkin

Se tiver, vai ser uma função do banco e não do OleDB. Abraços, Graymalkin

Acho que a sua dúvida é pertinente ao *banco de dados* utilizado e não a .NET Framework. Qual é o banco para eu poder mover o seu tópico? Abraços, Graymalkin

Qual o erro que dá? Abraços, Graymalkin

Dê uma olhada no NotifyIcon. Abraços, Graymalkin

"Pendência" realmente tem filhos? Você pode postar um exemplo do XML que você está lendo? Abraços, Graymalkin

Como você está fazendo exatamente? Qual o código usado? Abraços, Graymalkin

Para simular o pressionamento você pode usar a função SendKeys.Send() e para rodar em segundo plano você pode usar um Timer ou um Thread. Abraços, Graymalkin

Coloque um Stop no código e vá acompanhando passo-a-passo (com o F8) para verificar se entra no loop dos protestos ou não. Abraços, Graymalkin

O conteúdo é XML? Se for, não basta gravar em um arquivo texto o document.innerhtml? Abraços, Graymalkin

Experimente usar o método ToString() para converter para string. Abraços, Graymalkin

Ela geralmente fica junto com a "\" (perto do SHIFT): | Abraços, Graymalkin

Mas, qual é o problema? Dá algum erro? Abraços, Graymalkin

Seria algo assim: Dim célula As DataGridViewCell Dim i As Integer = 0 For Each r As DataGridViewRow In dg.Rows célula = r.Cells(i) If célula.Value = "blá" Then r.Selected = True End If Next Onde "dg" é a DataGridview, "i" é o índice da coluna desejada (começando de zero) e ""blá"" é o texto a ser procurado. Abraços, Graymalkin

O novo site é: http://www.graymalkinsoftware.net Abraços, Graymalkin

Bom, eu nunca fui fã de apostilas, então por que não vai tentando fazer algo e se as dúvidas surgirem você posta aqui? Abraços, Graymalkin

Então, experimente fazer: For Each pendência In oResposta.context.childNodes If pendência.baseName = "Pendencias" Then txt = "PENDENCIAS..........:" & pendência.Text & vbCrLf & txt vprotestos = "" For Each protesto In pendência.childNodes If protesto.baseName = "Protestos" Then For Each dados In protesto.childNodes vprotestos = vprotestos & dados.nodeName & ": " & dados.text & vbcrlf Next End If Next End If Next Não testei aqui, mas veja se dá certo e se é o que você quer. Abraços, Graymalkin

Use o For Each... Next para percorrer coleções. O código vai ficar muito mais limpo e também é bem mais prático. For Each pendência In oResposta.context.childNodes If pendência.baseName = "Pendencias" Then txt = "PENDENCIAS..........:" & pendência.Text & vbCrLf & txt For Each protesto In pendência.childNodes If protesto.baseName = "Protestos" Then 'blá End If Next End If Next Agora, o que você quer exatamente com o código abaixo? v_protestos = "DATA................:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "NUMERO CARTORIO.....:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "CODIGO NATUREZA.....:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "DESCRICAO NATUREZA..:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "VALOR...............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "LOCALIDADE..........:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "ESTADO..............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "CIDADE..............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "SUB JUDICE..........:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "DATA CARTA ANUENCIA.:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos Cada um dos dados é um nó? Abraços, Graymalkin