Graymalkin

Bom, ainda não foi exatamente o que eu queria saber... De qualquer forma, se for um servidor Web que só permita o envio e recepção sem qualquer processamento (ou seja, somente HTML), você pode fazer isso por FTP (supondo que existe esse serviço) para o envio. Para a recepção você tem mais opções: Winsock ou Inet. Para o primeiro (Winsock), veja esse tutorial: http://desenvolvedores.net/modules.php?nam...=article&sid=27 E para o segundo (Inet), procure aqui no fórum e você achará. Já no caso do envio por FTP você vai ter que dar uma pesquisada a respeito. E, como disse anteriormente, se o servidor suportar ASP isso fica muito mais simples. Abraços, Graymalkin

Left = esquerda, Right = direita. E ambas funções tem como segundo parâmetro a quantidade de caracteres a serem retornados a partir de suas respectivas posições. Logo, ... Left(campoRegistro, 2) ... retorna 2 caracteres a partir do lado esquerdo e... Right(campoRegistro, 3) ... retorna 3 caracteres a partir do lado direito. Abraços, Graymalkin

O cn (ADODB.Connection) foi aberto previamente? Abraços, Graymalkin

Para o analítico você não precisará de nada (já que, imagino eu, os dados *já* estarão guardados nesta forma). E, para o sintético, dê uma olhada na função agregada Sum() e na cláusula GROUP BY (ambos da SQL). Abraços, Graymalkin

Dê uma olhada no método AddNew do objeto ADODB.Recordset (se você o estiver usando), ou então no método Execute do objeto ADODB.Connection (e estude SQL). Abraços, Graymalkin

Já deu uma olhada nas cláusulas SELECT INTO e CREATE TABLE disponíveis no mecanismo Jet? Acredito que elas possam resolver o caso. Abraços, Graymalkin

Depende. Qual a sua resolução atual? Abraços, Graymalkin

Pelo código pude notar que você está utilizando ADO. No entanto, a DBGrid só é utilizável com DAO. Para o ADO utiliza-se (geralmente) a DataGrid e atribuindo-se o recordset à propriedade DataSource da mesma: set datagrid1.datasource = rs Para o preenchimento manual, faça como o cassitos falou, ou seja, usando a FlexGrid. Abraços, Graymalkin

Simplesmente porque você está mandando ele sair da rotina antes do MoveNext, com a linha: Exit Sub Tire-a dali e teste. Abraços, Graymalkin

Quando você fala "servidor da web", o quê realmente você tem a sua disposição? Um servidor com ASP/ASP.NET? Um servidor web simples ao qual você tem livre acesso? Especificar isso pode facilitar muito as coisas. Abraços, Graymalkin

Pelo erro está faltando um ponto-e-vírgula por aí (ou algum operador). Fiz o teste aqui e funcionou certinho: procedure loga; begin end; procedure TForm1.FormActivate(Sender: TObject); begin loga; end; Abraços, Graymalkin

Eu faria assim: k := 1; for i:=1 to 3 do for j:=1 to 4 do begin matriz[i, j] := vetor[k]; k := k+1; end; Abraços, Graymalkin

Bom, você provavelmente vai usar Winsock (ou talvez o Inet) para esse caso. Para o primeiro, dê uma olhada neste tutorial: http://desenvolvedores.net/modules.php?nam...=article&sid=27 Ele não trata especifcamente do seu caso, mas envolve o mesmo. Para o Inet, experimente dar uma olhada no próprio componente, pois ele é mais simples de se usar e creio que possa fazer o que você quer. O nome dele é Microsoft Internet Transfer Control na opção Components do menu Project. Abraços, Graymalkin

O texto na caixa de texto não fica na propriedade Text? Então, é só fazer: variável = text1.text Trocando, é claro, o "text1" pelo nome (a propriedade Name) da sua caixa de texto. E, em uma label, o texto não fica na propriedade Caption? Então, é só fazer o inverso do exemplo acima: label1.caption = variável Ok? Abraços, Graymalkin

Olá xará, Se você fizer uma busca aqui no fórum você vai encontrar vários posts sobre isso. Confira também um tutorial sobre o InnoSetup em: http://desenvolvedores.net/ Abraços, Graymalkin

Seriam os métodos Create e Destroy implementados em uma classe? Se for, eles servem para customizar (definir o que deve acontecer) quando o objeto for criado e destruído, respectivamente. Abraços, Graymalkin

Basta, no evento OnKeyPress do objeto colocar: if key=#13 then Button1.Click; Trocando o "Button1" pelo botão cujo código você quer executar. Abraços, Graymalkin

Exatamente, foi isso mesmo que imaginei (que você *não* quer editar pela DBGrid e sim por *caixas de texto*). Se o segundo registro está selecionando na DBGrid, consequentemente o recordset também está, portanto, se você fizer... Data1.Recordset.Edit Data1.Recordset.Fields("ano").Value = txtAno.Text Data1.Recordset.Fields("motor").Value = txtMotor.Text Data1.Recordset.Update ... alterará apenas os campos acima *do registro atualmente selecionado* na grade. O DBGrid é apenas uma maneira de se visualizar os dados, todavia, os mesmos continuam na tabela, que por sua vez é representada pelo recordset. Daí, se você quer procurar, é no recordset, se você quer alterar, é no recordset, se você quer adicionar, é no recordset, e assim por diante. Abraços, Graymalkin

Realmente. Isso ocorre porque a "pasta" Histórico não é uma pasta normal (se você for pelo Prompt do MS-DOS você nem mesmo encontra ela). De qualquer forma existe uma outra maneira de se obter arquivos e diretórios (e que funciona com essa pasta). Vá na opção References do menu Project e marque o Windows Script Host Object Model. Depois, use o código abaixo: Dim fso As New FileSystemObject Dim pasta As Folder Set pasta = fso.GetFolder("c:\Windows\Histórico") For Each subpasta In pasta.SubFolders Debug.Print subpasta Next subpasta For Each arquivo In pasta.Files Debug.Print arquivo Next arquivo Ele listará primeiro as subpastas e depois os arquivos (na janela Imediata). Abraços, Graymalkin

Basta, chamá-la novamente sem parâmetros para que ela retorne, sucessivamente, os nomes dos arquivos e pasta contidos na pasta inicial. Exemplo: arquivo = Dir("c:\temp\", vbDirectory) MsgBox arquivo MsgBox Dir() MsgBox Dir() MsgBox Dir() Quando ela retornar "" (vbnullstring) é porque o conteúdo da pasta acabou. No código acima serão retornados tanto arquivos quanto pastas e para diferenciá-los você pode usar a função GetAttr(). É claro que acima eu só coloquei um exemplo, para que você pegue o espírito da coisa, e que o código deverá ter um loop (já que não se sabe a quantidade de arquivos/pastas contidos na mesma). Abraços, Graymalkin

Então, procure sobre como realizar uma conexão com um servidor SMTP por sockets através de APIs. (E você está ciente de que distribuir só o executável de um programa feito em VB não é garantia de que ele será executado em qualquer máquina, pois existem certos arquivos necessários para sua execução, certo?) Abraços, Graymalkin

Bom, experimente procurar por um código que utilize sockets no PlanetSourceCode: www.planetsourcecode.com Todavia, se os programas forem no mesmo computador você pode usar a API SendMessage(). Fiz um exemplo que você pode baixar aqui: http://www.graymalkin.globalhosts.com.br/s...sage_Delphi.zip. Basta abrir e executar ambos os projetos (1 e 2), escrever algo na caixa de texto do projeto 1, clicar no botão "Enviar" e depois conferir a caixa de texto do projeto 2. Abraços, Graymalkin

Isso está na seção correta? Abraços, Graymalkin

Acho que não entendi bem, mas a edição você vai fazer no Data ou no Recordset ligado à DBGrid, portanto o mesmo estará representando o registro atual (selecionado na DBGrid). Então, qual a dificuldade? Abraços, Graymalkin

Seria algo assim (a SQL): "SELECT Sum(quant) AS total FROM cds;" Como resultado você terá um campo chamado "total" com a quantidade. Abraços, Graymalkin