Graymalkin

Para a primeira pergunta: if text1.text = rs.fields("campo").value then msgbox "igual" else msgbox "diferente" endif Levando em consideração que seja um campo texto (para valores numéricos talvez seja necessário convertê-los) e que "rs" é um objeto Recordset ou ADODB.Recordset. Para a segunda pergunta, basta colocar ;pwd=senha na propriedade Connect do Data. Abraços, Graymalkin

Bom, consegui fazer isso aqui no evento MouseMove: Static atualX, atualY As Integer If e.Button = MouseButtons.Left Then If atualX = 0 Then atualX = e.X If atualY = 0 Then atualY = e.Y Dim posição As New System.Drawing.Point() posição.X = Cursor.Position.X - atualX posição.Y = Cursor.Position.Y - atualY Me.DesktopLocation = posição Else atualX = atualY = 0 End If Mas ainda não ficou perfeito, porém não consigo ver o que está errado ali. Faça alguns testes aí e veja se você consegue. Abraços, Graymalkin

Bom, então leia como string e garanta que a vírgula (é com "u"...) ou o ponto sejam trocados pelo separador decimal padrão do sistema. Já existe uma variável com esse caracter, veja: showmessage(DecimalSeparator); E para fazer a mudança, você pode usar a função StringReplace(). Daí, bastará converter para float e usar a função que você já usa (FormatFloat()). Abraços, Graymalkin

Sim, respondendo as duas perguntas (isso chama o segundo form e faz um clone do menu nele, além de ocultar a janela atual): Dim f2 As New Form2() f2.Show() f2.Menu = Me.MainMenu1.CloneMenu() Me.Visible = False Abraços, Graymalkin

Sim, ele mostraria. É que já estou pensando na implementação, e guardar a hora inicial e a hora final, e subtraí-las para obter a quantidade de tempo total é muito mais simples (e seguro). Abraços, Graymalkin

Você pode criar um arquivo de lote (.bat) com essas duas linhas e fazer com que o seu programa chame-o (se for em um único computador), ou colocá-lo para ser executado no Iniciar (Botão Iniciar->Programas->Iniciar) ou no Registro (HKEY_LOCAL_MACHINE->Software->Microsoft->Windows->CurrentVersion->Run). Abraços, Graymalkin

Existem tópicos tratando disso aqui. Experimente dar uma procurada. Abraços, Graymalkin

O que você quer pode ser feito através do operador LIKE. Exemplo: SELECT * FROM tabela WHERE nome LIKE 'a%'; A linha acima selecionará apenas os registros que começam com "a". Trocando o "a" por "ana" você teria: SELECT * FROM tabela WHERE nome LIKE 'ana%'; O que retornaria todos os registros que começam com "ana". Caso a palavra não seja encontrada, o recordset fica vazio e ao jogá-lo para a grade, a mesma também fica. Todavia, vale lembrar que um FlexGrid não fica ligado ao recordset como o DataGrid fica, portanto ele não representa o estado atual do mesmo. Dessa forma, seria necessário que a cada letra digitada o recordset fosse reaberto, e o seu conteúdo deveria ser jogado novamente para a grade. Se você quiser fazer isso sem ser dessa maneira, deverá usar a propriedade TextMatrix da FlexGrid para procurar manualmente o texto digitado. Abraços, Graymalkin

Bom, na verdade basta responder uma para que você possa fazer tudo isso que você quer. Exemplo: palavra := 'teste'; showmessage(palavra[3]); Abraços, Graymalkin

Usei isso aqui no Activate e deu certo: DoEvents: DoEvents: DoEvents i = mciSendString("play video1 from 0 wait", 0&, 0, 0) MsgBox "Acabou!" Abraços, Graymalkin

Bom, pelo fato de você ter chamado a caixa de texto de "edit", ter mencionado o nome do evento como "OnKeyPress" e ter usado o símbolo "#" para representar códigos ASCII, creio que isso seja Delphi e não VB. De qualquer forma, a barra de espaços é #32 e você pode usar a função Ord("caracter"), se não me engano, para saber o código ASCII de um caracter. Abraços, Graymalkin

Eu não disse que seja "melhor". Apenas que não uso o ADODC ou qualquer tipo de Data Control, e por isso faço dessa maneira. Foi pra você que eu enviei um exemplo de ADO via código? Se não, dê uma olhada aqui: http://www.graymalkin.globalhosts.com.br/stuff/bd.zip. Não tem a parte da formatação da grade, mas os dados são mostrados na grade através de código. Abraços, Graymalkin

Mas, respondendo a pergunta, dê uma procurada sobre a API CreateWindow (ou CreateWindowEx) a fim de poder criar uma label ou uma caixa de texto (ou qualquer outro controle que se pode criar com elas) dentro da janela. Abraços, Graymalkin

O que é "nm nd"??? Por favor, escreva as palavras com todas as letras, se não fica difícil entender. Graymalkin Com a minha experiência preguiçosa em escrever tudo abreviado(e diga-se de passagem, errado), eu creio que "nm nd" seja igual a "nem nada". Ah, valeu. Nunca imaginaria isso... hehehe. Abraços, Graymalkin

O que é "nm nd"??? Por favor, escreva as palavras com todas as letras, se não fica difícil entender. Graymalkin

Comparar dois chars dá no mesmo de comparar dois inteiros com os respectivos códigos ASCII (só repare na observação feita pelo Wicker, em relação a maiúsculas e minúsculas). Dessa forma, não há diferença entre o primeiro caso (dos valores) e este segundo. Abraços, Graymalkin

Minha rotina é apenas uma sucessão de... datagrid1.Columns(índice_da_coluna).Width = tamanho datagrid1.Columns(índice_da_coluna).Caption = "título" ... para tantos quantos forem os campos. Não há nada de diferente nesse caso. Porém, como eu disse, não uso o grid ligado a um ADODC, ou seja, abro um recordset e jogo-o na propriedade DataSource do grid. É assim que você faz? Abraços, Graymalkin

Existe um driver OLEDB, mas ainda não experimentei com Delphi: http://solutions.mysql.com/other/related-sites/?item=142 Abraços, Graymalkin

Então, experimente retirar essa linha do Load e colocá-la no evento Activate. Abraços, Graymalkin

Exatamente como está ali. Bastaria no lugar de "myServerName" você colocar o nome ou IP do computador que tem o MySQL instalado. Sim, aqui você encontra ele: http://dev.mysql.com/downloads/connector/odbc/3.51.html. Alternativamente você pode usar o driver OLEDB, se quiser: http://solutions.mysql.com/other/related-sites/?item=142. Nops... estou lá agora. Abraços, Graymalkin

Sim, podem, quando declarados em um módulo. Abraços, Graymalkin

Você pode dar uma olhada na API WNetOpenEnum (no API-Guide [http://www.mentalis.org] tem um exemplo dela). E para o caso dos programas instalados você pode pegar essa informação do Registro (aqui no fórum deve ter algum exemplo de como ler um chave do registro). Bom, isso não parece em nada com ASP, por isso talvez você se assuste um pouco a princípio (afinal de contas, você estará usando mais recursos externos do que a própria linguagem de programação). Abraços, Graymalkin

Então, experimente mudar a linha... i = mciSendString("play video1 from 0", 0&, 0, 0) ... para: i = mciSendString("play video1 from 0 wait", 0&, 0, 0) Se não me engano, isso fará com que a próxima linha de código só seja executada após o vídeo ter passado todo. Abraços, Graymalkin

Então, o que você quer exatamente? O Delphi já trabalha com ponto ao invés de vírgula. Sendo que ao ler do arquivo você pode ler como string e gravar, mantendo inalterado o ponto ou vírgula que esteja no arquivo original. Abraços, Graymalkin

Como eu sempre abro um recordset com o resultado de uma busca e jogo o mesmo para a grade, sempre tenho que configurar os tamanhos dos campos. Portanto, eu crio uma rotina (chamada FormataGrid) e sempre chamo ela após definir a propriedade DataSource da grade (inclusive no Load). Abraços, Graymalkin