Graymalkin

O uid aí no caso creio que signifique user identification, ou seja, o nome do usuário. Experimente retirar os espaços antes e depois dos "=" na string de conexão e veja se dá certo. Abraços, Graymalkin

Use a função Month() na SQL. Exemplo: SELECT * FROM tabela WHERE Month(campodata)=1; Abraços, Graymalkin

Se você está criptografando, creio que você deveria encriptar o texto todo, incluindo o ENTER e ao descriptografar o mesmo seria feito. Dessa maneira não haveria problema algum com o texto. Por exemplo, considere as seguintes funções: function Encripta(texto : string) : string; var i : integer; begin for i:=1 to length(texto) do texto[i] := chr(ord(texto[i])+5); Encripta := texto; end; function Desencripta(texto : string) : string; var i : integer; begin for i:=1 to length(texto) do texto[i] := chr(ord(texto[i])-5); Desencripta := texto; end; Basta chamar (para encriptar): memo1.Text := Encripta(Memo1.Text); E para desencriptar: memo1.Text := Desencripta(Memo1.Text); Independentemente do ENTER estar no texto, o mesmo é devidamente alterado e restaurado. Abraços, Graymalkin

Então, experimente reinstalar o VB. Se não der certo também, acho que o ideal seria você reinstalar o Windows (já que parece existir algo errado no Registry). Você também pode tentar executar o scanreg.exe para corrigir problemas no Registry, mas não sei se dá certo realmente. Abraços, Graymalkin

Aparece isso após marcar o Access lá? Se for, experimente reinstalá-lo. Abraços, Graymalkin

Ele não "interpreta", mas sim faz o recurso de syntax highlighting (ou seja, colore os diferentes elementos do código, dependendo da linguagem escolhida). Muito útil para desenvolver IDEs. Abraços, Graymalkin

Você está fazendo o normal: realmente só se usam as tabelas (e as consultas) de um banco de dados Access. Isso porque os relatórios e os formulários vão depender do próprio Access, que possivelmente não vai estar instalado no computador do cliente. De qualquer forma, isso é possível sim: http://www.macoratti.net/dica48.htm Abraços, Graymalkin

O quê, exatamente, não deu certo? Abraços, Graymalkin

Antes de postar, dê uma procurada no fórum, ok? Veja este post: http://scriptbrasil.com.br/forum/index.php...c=31605&hl=inet Ah, e registre-se aí no fórum. Abraços, Graymalkin

No Windows, geralmente, o ENTER é representado pela junção #13+#10 (se não me engano, a ordem é essa mesmo). Abraços, Graymalkin

Essas perguntas já passaram por aqui anteriormente. Experimente dar uma procurada pelo fórum e veja o que você acha. Abraços, Graymalkin

Faça assim: memo1.Text := memo1.Text + 'a'; Abraços, Graymalkin

Bom, li seu tópico e lembrei que já tentei fazer isso em VB há um tempo atrás. Como fiz isso por API e o Delphi tem um guia de APIs Win32, procurei algo a respeito e achei o seguinte: Pelo que li PRINTER_NOTIFY_INFO_DATA é uma estrutura que é retornada pela função FindNextPrinterChangeNotification, e se ela tem esses atributos acima, creio que não seja difícil fazer o que você quer. Bom, dê uma pesquisada aí, e qualquer coisa, 'stamos aí. Abraços, Graymalkin

Eu fiz assim (no evento OnKeyPress): if memo1.SelText<>key then if ansipos(key, memo1.Text)>0 then showmessage('Você digitou ' + key + ' o correto seria ' + memo1.SelText) else edit1.text := inttostr(strtoint(edit1.text)+1) else begin memo1.SelStart:=memo1.SelStart+1; memo1.SelLength := 1; end; key := #0; E no evento FormCreate eu coloquei: memo1.SelStart := 0; memo1.SelLength := 1; Supondo, é claro, que o texto "asdfg" já está na Memo1 (mas nada impede se usar o LoadFromFile() para carregar o texto e depois executar o código acima). Se quiser, baixe o código aqui: http://www.graymalkin.globalhosts.com.br/stuff/Digi.zip Abraços, Graymalkin

Certas impressoras jato-de-tinta realmente não começam a imprimir quando se usa esse tipo de impressão até que se aperte o botão de ejetar a página. Isso eu me lembro de impressoras HP, mas não sei ao certo sobre as gráficas da Epson (com as matriciais eu só uso Epson e sei que isso funciona perfeitamente). Abraços, Graymalkin

Dê uma olhada na função Time(). Abraços, Graymalkin

O quê, exatamente, você não conseguiu fazer? Já experimentou usar o evento OnKeyPress para detectar as teclas citadas no primeiro post? Abraços, Graymalkin

Supondo que você esteja usando um TRichEdit, seria algo assim: richedit1.selattributes.style := [fsBold] Bastando trocar ou combinar o fsBold pelo/com os demais estilos. Abraços, Graymalkin

Bom, o ideal é que você poste a sua tentativa aqui para que possamos ajudar melhor. De qualquer forma, eu faço consultas de datas com SQL assim: SELECT * FROM tabela WHERE datevalue(campo)=datevalue('13/11/2004'); Substituindo, é claro, o "13/11/2004" pela data escolhida. E a função DateValue() é própria do Jet, não sendo a função homônima encontrada no VB. Abraços, Graymalkin

Bom, não vou responder especificamente a sua dúvida, mas uso o tratamento de erros justamente para tratar erros que eu *não* estou esperando ou que *não* imaginei que pudessem ocorrer. Para os demais eu faço as verificações manualmente. No seu caso, por exemplo, eu mesmo procuraria pelo valor que está sendo inserido e caso ele já existisse, informaria ao usuário e não levaria a ação adiante. Caso negativo, aí sim é que eu permitiria a inserção do registro. Abraços, Graymalkin

Usando o evento Resize você pode detectar quando o seu form é minimizado ou restaurado. Abraços, Graymalkin

Dê uma olhada na API FlashWindow (http://www.mentalis.org/). Ela faz exatamente isso. Abraços, Graymalkin

Bom, eu já pensei em fazer isso... mas depois percebi que não precisava. Clipper é legal! Abraços, Graymalkin

Bom, acredito que com o split() deveria funcionar. De qualquer forma, já tentou assim... >>> import os >>> os.path.splitext('c:/autoexec.bat') ('c:/autoexec', '.bat') ? E o que, exatamente, ocorre? Não funciona? Envia qualquer tipo de arquivo? Não envia nenhum? Abraços, Graymalkin

Bom, aqui no XP, com o seu código, a janela do prompt minimiza sim. Veja o teste que fiz: Shell "cmd" MinimizeAll Qual sistema você usa aí? Abraços, Graymalkin