Graymalkin

Você tem algum exemplo de um programa que faça isso? Abraços, Graymalkin

Você quer chamar novamente a procedure FormCreate? Se for, você pode fazer assim: Se for no próprio form: Self.FormCreate(Sender); Se for a partir de outro form: Form1.FormCreate(Sender); Nesse último caso basta trocar o Form1 pelo nome do form cuja procedure FormCreate você deseja executar. Abraços, Graymalkin

A tabela está corretamente definida e aberta no ADODC1? Que eu me lembre esse pode ser um motivo para esse erro. Abraços, Graymalkin

Eu faria ela assim: def pega_ip(sites="no"): if sites == "no": defaults = ["http://checkip.dyndns.org", "http://www.whatismyip.com/", "http://www.whatismyipaddress.com/", "http://www.lawrencegoetz.com/programs/ipinfo/", "http://www.showmyip.com/pt/"] else: defaults = sites retorno = ["invalid urls"] for site in defaults: try: fd = urllib.urlopen(site).read() lista = re.findall('[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*',fd) if len(lista)>0: retorno = lista[0] break except Exception, e: pass return retorno Abraços, Graymalkin

Acredito que você pode obter isso através da API EnumWindows(). Dê uma olhada no exemplo disponível para ela no API-Guide: http://www.mentalis.org/ Abraços, Graymalkin

Existem vários posts tratando disso. Experimente dar uma pesquisada no fórum. Abraços, Graymalkin

Você pode mudar isso de forma permanente criando um atalho para o programa e alterando em suas propriedades (botão direito nele -> Propriedades -> Tela). Abraços, Graymalkin

O problema é justamente que você não possui um servidor (no sentido estrito da palavra). Apenas você tem um computador que compartilha arquivos e que outros usam. Dessa maneira todo o processo é feito localmente, ou seja, é como se o banco de dados estivesse ali na máquina local, portanto a hora gravada será a dele. Todavia, é claro que sempre pode-se fazer uma gambiarra... hehehe. Imaginei três possibilidades: 1) Sempre acertar a hora da estação de acordo com a do "servidor", antes de qualquer operação de gravação. 2) Sempre obter a hora do "servidor" através de uma função qualquer e usá-la nas SQLs (ao invés da função Now() do próprio Jet). 3) Essa é a mais trabalhosa: fazer com o "servidor" execute as instruções SQL ao invés da máquina local. A idéia seria transmitir a SQL via sockets para um programinha simples no "servidor" e quando a informação chegasse lá ele executaria a mesma. Comecei a fazer um projeto assim, mas não em Delphi (porém seria utilizável nele também), mas acho que ainda não está desenvolvido e testado o suficiente para ser usado de forma profissional. Abraços, Graymalkin

Não entendi qual é exatamente a sua dúvida... o que você não conseguiu fazer? Aproveite e dê uma lida neste tutorial (acho que pode ajudar no caso, se for o que estou pensando): http://desenvolvedores.net/modules.php?nam...order=0&thold=0 Abraços, Graymalkin

Não, se me lembro bem, a COMCTL32 é específica para cada sistema operacional (e não deve ser copiada entre eles), por isso o visual só vai mesmo aparecer no XP. Talvez você encontre componentes artificiais que simulem esse visual para sistemas como o Win9x, mas não conheço algum que possa indicar. Abraços, Graymalkin

Dê uma pesquisada sobre a função Dir() (aqui no fórum mesmo deve ter um exemplo). Abraços, Graymalkin

Exatamente, os diretórios listados na variável de ambiente PATH são varridos quando o arquivo não é encontrado no diretório corrente. Caso você queria um arquivo de outro local (sem estar na PATH e no diretório corrente) deverá especificar o caminho completo dele (assim como se faz em qualquer outro lugar). Abraços, Graymalkin

Bom, o código que você passou tem tudo que você precisa (porém faltava uma linha nele). A partir dele fiz o seguinte exemplo: #include <stdio.h> #include <string.h> void main() { int n; char frase[]="isto é um teste"; char * palavra; char * palavras[10]; int i = 0; palavra = strtok(frase, " "); while (palavra!=NULL) { palavras[i] = palavra; i++; palavra = strtok(NULL, " "); } printf("%s\n", palavras[0]); printf("%s\n", palavras[1]); printf("%s\n", palavras[2]); printf("%s\n", palavras[3]); } Se quiser tornar isso mais prático é só criar uma rotina que receba uma string e um vetor (daí fica muito mais semelhante ao que vemos nas linguagens modernas). Abraços, Graymalkin

Como, exatamente, você realiza esse processo? É algo do tipo "programa.exe arquivo" ou aparece uma janela para você escolher ou arquivo? Você tem acesso ao código-fonte do programa ou nem? Acredito que bastaria pegar todos os arquivos de um diretório (o que pode ser feito com a função Dir()) e depois executar a rotina que faz a conversão para cada um dos arquivos. Abraços, Graymalkin

Dê uma olhada aqui: http://www.macoratti.net/dica48.htm Abraços, Graymalkin

Tente dar uma olhada e pesquisada sobre o componente Inet (aqui no fórum mesmo você encontra algo sobre ele). Abraços, Graymalkin

Sempre faça uma busca no fórum... esse problema já passou por aqui. A questão é que você tem que especificar caminhos completos em ambos os argumentos, ainda que o segundo arquivo tenha o mesmo nome do primeiro e só seja copiado para outra pasta. Abraços, Graymalkin

Mesmo marcando o DAO 3.6 não é possível abrir com o controle Data (a não ser que algum Service Pack do VB permita isso, o que desconheço). Com DAO realmente você consegue, porém via código: Dim db As Database Dim rs As Recordset Set db = DBEngine.OpenDatabase("arquivo.mdb") Set rs = db.OpenRecordset("Tabela") Mas com o Data ele dá o clássico Unrecognized database. Abraços, Graymalkin

Como exatamente você inicializa o Excel? E qual a linha em que esse erro ocorre? Abraços, Graymalkin

Acho que a documentação que acompanha o Visual Studio é bem satisfatória. Já deu uma olhada nela? Abraços, Graymalkin

Experimente reinstalar o VB. Ou só o DAO (se você achar ele separado no site da Microsoft). Abraços, Graymalkin

Você precisa ordenar a lista ou só os desempenhos (que poderiam estar separados em um vetor)? Abraços, Graymalkin

http://www.graymalkin.globalhosts.com.br/stuff/bd.zip Seria esse? Abraços, Graymalkin

Você pode usar Split() nesse caso: frase = "Bruno Cerquiare" vetor = Split(frase, " ") msgbox vetor(0) msgbox vetor(1) Para carregar um programa com o Windows você tem basicamente três opções: * Registro -> chaves HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Run e HKEY_CURRENT_USER\Software\Microsoft\Windows\Run * Win.ini -> no campo Run= * Grupo Iniciar do menu Programas do botão Iniciar É só escolher e descobrir como se faz para colocar o programa lá (para o caso da primeira opção, procure por algo sobre gravar/ler no Registro aqui no fórum e você deverá achar algo). Para a segunda opção, basta saber escrever em arquivos. Para a terceira opção você só precisa criar uma cópia do seu programa naquela pasta (ou deixar o setup dele fazendo isso). Meio vago isso, não? Mas aquela entidade onipresente, onipotente e onisciente deve ter algo para você sobre isso: GOOGLE! Abraços, Graymalkin

Se você faz isso no Access por meio das consultas (Queries), basta pegar o código SQL gerado por elas (clicando com o botão direito na tela das tabelas e escolhendo modo SQL). Para o caso de totalizar as vendas, por exemplo, você poderia fazer algo assim: SELECT Month(data) AS Mes, Sum(valor) AS Total FROM vendas GROUP BY Month(data); Criando uma consulta assim no Access e pedindo o código SQL gerado, você terá algo parecido com isso (e que funcionará tal qual funciona lá). Abraços, Graymalkin