Graymalkin

Você mudou a propriedade CommandType do Adodc1 para adCmdTable. Nesse caso ele só aceita o nome da tabela e não uma instrução SQL. Para tal, volte a propriedade para adCmdUnknown ou escolha adCmdText. Abraços, Graymalkin

Aí eu não sei. Mas onde está esse componente? Ele é padrão do Delphi e esse é realmente o nome dele? Não achei aqui (uso o Delphi 7). Abraços, Graymalkin

Então, defina a máscara como "##.###.###-&" já que "&" é usado para representar qualquer caracter. Abraços, Graymalkin

Você pode fazer isso por SQL, pelo objeto Query (DBTables). Bastaria preencher a propriedade SQL com o seguinte: SELECT * FROM tabela ORDER BY campo; Abraços, Graymalkin

Eu tenho um exemplo disso aqui, mas acho extremamente complexo e aparentemente não funciona corretamente. Se quiser te passo. Abraços, Graymalkin

A mesma coisa acima. O método Add tem mais parâmetros do que utilizei no exemplo. Existe um parâmetro que define se é separador e outro que define a figura (podendo ser oriunda de uma imagelist). Abraços, Graymalkin

Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=36412 Abraços, Graymalkin

For i = 0 To List1.ListCount - 1 soma = soma + Val(List1.List(i)) Next i MsgBox soma Seria isso que você quer? Abraços, Graymalkin

Quais são os campos da tabela? Além dos três acima descritos deve haver mais um (provavelmente a chave primária) e que, por não estar na instrução, está ficando em branco. Abraços, Graymalkin

Seu código está realmente certo? Veja: Check1©.Value = GetSetting(App.EXEName, "opt" & Trim(Str(i)), c, 0) SaveSetting App.EXEName, "opt" & Trim(Str(j)), "c", Check1©.Value Aliás, ainda não entendi bem qual o propósito de tantos checkboxes e optionbuttons. Sem falar que 20*30=600, pois então você tem 600 iterações sendo que não existe isso tudo de checkboxes e nem de optionbuttons (e nem mesmo somando a quantidade de ambos). Abraços, Graymalkin

Para uma determinada data você pode fazer exatamente do jeito que você está fazendo. Porém, no seu caso a data está em branco ('#__/__/____#'). Para datas em branco você deve usar NULL. Abraços, Graymalkin

Você não precisa usar uma textbox para exibir a formatação. Fica mais fácil se você usar o controle WebBrowser (menu Project->Components->Microsoft Internet Controls). Com ele bastará que você grave o texto digitado (o código HTML; que está em uma textbox) em um arquivo e mande o WebBrowser abrir esse arquivo (com o método Navigate). Outra alternativa é usar a RichTextBox, porém acho que fica melhor usando o WebBrowser (afinal de contas, você terá o "Internet Explorer" exibindo a página). Abraços, Graymalkin

Bom, meio vaga essa sua dúvida... mas a idéia seria verificar o que foi digitado e realizar a ação de acordo. Exemplo (bem vago também, dadas as circunstâncias): if txtTexto = "/nick" then rotina_alteranick elseif txtTexto.text = "/coresfundo" rotina_alteracoresfundo ... endif É claro que se deve ter todo um tratamento especial dos comandos, já que após "/nick" será passado o nick novo que deverá ser extraído da frase (a fim de ser usado para trocar o nick em algum lugar no programa). Para isso você pode usar as funções que lidam com strings (pressione F2 e em "Classes" escolha "Strings" para ter uma lista destas funções). Quanto a colocar em um "arquivo .ini", não entendi qual seria o propósito disso. Abraços, Graymalkin

Não, note que esta rotina se refere ao ato de gravar as configurações atuais. Para o carregamento você pode usar uma rotina semelhante, porém se você quer que uma determinada ação seja executada de acordo com o estado da checkbox (*no ato do carregamento*) você deverá explicitá-la. Em geral eu não faço isso, baseando-me apenas no estado de uma configuração na hora em uma determinada ação *vai* ser executada. Ou seja, eu chamo uma rotina e essa rotina verifica o estado de uma configuração e faz a ação de acordo (e não o contrário, como você quer fazer). Abraços, Graymalkin

Explicitamente não. Você pode fazer algo assim (para percorrer todas as textboxes do form): Dim vazio As Boolean vazio = False For Each controle In Me.Controls If TypeOf controle Is TextBox Then vazio = vazio Or Trim(controle.Text) = "" End If Next controle If vazio Then MsgBox "Existe alguma caixa de texto não preenchida!" Else MsgBox "Ok, você preencheu todas!" End If Abraços, Graymalkin

Bom, independente do banco de dados, se você souber percorrer todos os registros basta se basear no exemplo abaixo (que cria um arquivo texto e grava duas linhas no mesmo): n=freefile() open "arquivo.txt" for output as #n ? #n, "linha1", "texto1" ? #n, "linha2", "texto2" close #n Ou seja, bastaria que ao invés de gravar as duas linhas acima, você fizesse um loop até o final da tabela, trocando o "linha1" e "texto1" pelos campos da tabela. Suponho que você esteja usando ADO, não? Se for, posso dar um exemplo mais completo. Abraços, Graymalkin

Você não deveria reabrir o banco de dados. Isso porque ao fazê-lo você estará voltando para o primeiro registro e depois seguindo para o próximo (o que fará que você sempre veja o 2º registro). Nesse botão só deveria ficar o: Rs.MoveNext txtnome.Text = Rs!titulo lblcodigo.Caption = Rs!ID E a rotina para abertura do BD e da tabela deve ficar em outro local. Abraços, Graymalkin

Relendo seu primeiro post vi que você fala sobre relacionar os optionbuttons com o checkboxes. Você poderia simplesmente criar um vetor de optionbuttons também (assim como você já fez com os checkboxes). Daí, bastaria fazer: For i = Check1.LBound To Check1.UBound if Option1(i).Value = True then SaveSetting App.EXEName, "opt" & trim(str(i)), "c", Check1(i).Value endif Next i Como a quantidade de optionbuttons será a mesma de checkboxes, você pode fazer o código acima (apenas mude os nomes respectivos de cada controle). Abraços, Graymalkin

Sim, elas têm (5 é para cima, 24 é para baixo, 19 é esquerda e 4 é direita), mas não adianta tentar detectá-las pelo evento KeyPress. Você deve detectá-las pelos eventos KeyDown ou KeyUp e basta usar as constantes vbkeyXXXX (onde "XXXX" é o nome da tecla). Exemplo select case keycode case vbkeyup msgbox "Cima" case vbkeydown msgbox "Baixo" end select Abraços, Graymalkin

Baixe esse exemplo aqui: http://www.graymalkin.globalhosts.com.br/stuff/bd.zip Abraços, Graymalkin

O que você não conseguiu fazer, especificamente? Abraços, Graymalkin

Já mexi com portas seriais e paralelas no Turbo Pascal e era algo assim: program t; uses dos; begin writeln(Port[$3F8]); readln; end. Porém, não sei como isso seria feito no Delphi. Abraços, Graymalkin

Do mesmo jeito que qualquer outro operador (com exceção do Not), exemplo: resto := 10 mod 3; Abraços, Graymalkin

Qual a sua dúvida, especificamente? Abraços, Graymalkin

Pelo menos as estruturas de controle (If e Select Case), de iteração (For e While), além da parte de declaração de variáveis, gravação e leitura de arquivos, entre outros, são extremamente parecidos com o BASIC original. Assim como o Delphi é uma implementação de Object Pascal, o VB contém uma implementação da linguagem BASIC. Abraços, Graymalkin