Capablanca

Que erro é esse agora??! Valeu Ainda sem o Delphi ... Uma tradução literal deste erro significa que esta faltando a aspa do lado direito. Eu dividi o seu código, fiz o teste aqui (substitui os nomes do Edits por Edit1 para facilitar), e compilou normalmente. ==================================================== Queryteste.sql.add('INSERT INTO Cad_Func (id,nome,identidade,orgao,expedida,cpf,estadocivil,profissao,enderecores,numerores,bairrores,cidaderes,estadores,cepres,enderecoemp,numeroemp,bairroemp, '); Queryteste.sql.add('cidadeemp,estadoemp,cepemp,telres,telemp,celular,firma,problema,documentos,contrato) VALUES ('','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+',' +''''+ edit1.text +''''+','+''''+ edit1.Text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.Text +''''+','+''''+ edit1.text +''''+','+''''+ edit1.text + ''''+','+''''+ edit1.text +''''+')'); ==================================================== Você comentou que dá um erro em tempo de execução. Aí vai ficar difícil de eu testar. Só uma curiosidade: por que você não utiliza objetos 'DBEdit', abre o DataSet e simplesmente insere todos ests dados com um simples INSERT?

Olá, Dê uma "fuçada" no programa" que você vai encontrar praticamente tudo que há num ICQ normal. Para cadastrar um novo UIN, clique com o botão direito sobre a florzinha (estou utilizando o \Exemple\ICQ.dpr), vá em SYSTEM SETTINGS e depois escolha a opção REGISTER NEW UIN... Daí em diante é com você. O programa tem um HELP completo, com descrição de como instalar o componente e muitos outros detalhes.

Que erro é esse agora??! Valeu Ainda sem o Delphi ... Uma tradução literal deste erro significa que esta faltando a aspa do lado direito.

Visite o link abaixo e veja qual deles (componentes) você acha interessante. http://www.torry.net/quicksearchd.php?SID=...g=pdf&Title=Yes

Ai deu aquele erro string literals may have at most 255 elements Como se concerta isso? Valeu Estou sem o Delphi no momento para fazer o teste (eu sempre faço o teste antes de responder), mas tente fazer como foi recomendado acima pelo colega. Divida esta sentença gigante em outras menores, utilizando "query1.sql.add()".

Olá, Recomendo que você faça o upgrade para o Delphi 7 e utilize o DBExpress. Em todo caso, caso você queira implementar através do Delphi 5, utilize o componente ZEOS. http://sourceforge.net/projects/zeoslib

Visite o site oficial do Delphi: http://www.borland.com/delphi_net/

Tem um componente chamado TICQClient, que parece atender o que você precisa. Alguns recursos: - Logging to server & status changing - Managing contact, visible, invisible, ignore lists - Retrieving/uploading(without authorization) server side contact lists - Receiving files - Searching users by UIN, Email, Nick or Random Group 'White Pages' - Getting user's short & full info - Setting info about yourself - Setting webaware/authorization required flags - Registering a new UIN/Unregistering the existing UIN - Changing the current password - Sending/receiving various types of messages and URLs - Sending/receiving SMS messages - Sending/receiving contacts & contact requests - Auto-away messages support - Supporting direct connections(messages, urls, auto-away, contacts, filetransfers) - Importing messages, urls, contacts & owner's info (including password) from ICQ (2000x, 2001x, 2002a) and Miranda-icq 1.2.1 - Dumping all incoming/outgoing network packets - There are not required any external files (dll, ocx, etc) - Help in English and Russian languages. É free, open source e pode ser encontrado em http://www.cobans.net/. Já vem com exemplos também.

Olá, Você não vê nada no BDE devido ao fato de que provavelmente você não tem o driver ODBC instalado em sua máquina. Faça o download do MyODBC através da seguinte página: http://dev.mysql.com/downloads/connector/odbc/3.51.html Após a instalação do mesmo, no menu do BDE, selecione OBJECT > NEW, e o driver (provavelmente o último) poderá ser visto (é o "MySQL ODBC 3.51 Driver"). Tipo Longo no MYSQL é o LONGTEXT ...

Se seu objetivo é enviar uma mensagem pelo Outlook, utilize o seguinte procedimento: 1) Na cláusula USES de sua unit, adicione ShellAPI. Logo, ela ficaria assim: ======================================================= uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI; ======================================================= 2) Posteriormente acrescente o seguinte código no evento Onclick do seu botao:: ======================================================= procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(0, 'open', 'mailto:email@dominio.com.br', nil, nil, SW_SHOWNORMAL); end; ======================================================= Sobre a URL: Na cláusula USES de sua unit, adicione ShellAPI (como mencionado anteriormente) e posteriormente acrescente o seguinte código no evento Onclick do seu botao: ======================================================= procedure TForm1.Button2Click(Sender: TObject); begin ShellExecute(GetDesktopWindow(),'open',PChar('https://www.scriptbrasil.com.br'),nil,nil,SW_SHOWNORMAL); end; ======================================================= Sobre o EXCEL: Existem diversos componentes feitos para manipular arquivos do Excel (você poderá encontrá-los em http://www.torry.net - digite EXCEL na pesquisa). Contudo, uma maneira direta seria criar uma procedure: ======================================================= procedure OpenLink(const s: string); begin ShellExecute(0, 'open', PChar(s), nil, nil, SW_SHOWNORMAL); end; ======================================================= E depois chamá-la através de um botão, especificando a localização e o nome do arquivo (na cláusula USES de sua unit, adicione ShellAPI (como mencionado anteriormente) e posteriormente acrescente o seguinte código no evento Onclick do seu botao): ======================================================= procedure TForm1.Button3Click(Sender: TObject); begin OpenLink('c:\teste.xls'); end; =======================================================

Olá Eros, tudo bem? Eu adaptei um código que eu tinha aqui com o que você precisa. Dê uma "olhada": ==================================================== procedure TmenuPrin.Button1Click(Sender: TObject); var strSqlLog: string; // armazena a sentença SQL mensagem: string; // armazena o texto a ser exibido num MessageBox confirmaSaida: integer; // armazena a resposta que o usuário optou após aparecer uma MessageBox pedindo a confirmação de algo begin strSqlLog:= 'SELECT * FROM usuario,perfil WHERE usuario.nivel = perfil.id '; strSqlLog:= strSqlLog + 'AND fantasia = ' + #39 + (Login.valorNome.text) + #39 ; strSqlLog:= strSqlLog + 'AND senha = ' + #39 + (Login.valorSenha.text) + #39 ; QueryLogin.Close; QueryLogin.SQL.Clear; QueryLogin.SQL.Add(strSqlLog); QueryLogin.Open; mensagem:= 'Deseja sair, caro(a) Sr(a) ' + QueryLogin.FieldByName('fantasia').AsString; confirmaSaida:= Application.MessageBox(PChar(mensagem), 'Atenção', Mb_YesNo+Mb_DefButton2+Mb_IconQuestion); if confirmaSaida = IDYes then begin mensagem:= 'Você clicou no botão SIM. '; Application.MessageBox(PChar(mensagem), 'Informação', Mb_Ok+Mb_IconInformation); end; if confirmaSaida = IDNo then begin mensagem:= 'Você clicou no botão NÃO. '; Application.MessageBox(PChar(mensagem), 'Informação', Mb_Ok+Mb_IconInformation); end; end; ==================================================== A variável "strSqlLog" só foi utilizada para armazenar a minha sentença SQL para fazer a busca do USUÁRIO logado (logo, vc. pode desconsiderá-la, fazendo a adaptação, pois vc. disse que com o comando 'FrmBancos.QrLocFunNOMEFUNC.AsString' você tem o nome do usuário que está usando o sistema). Ao invés de digitar o texto diretamente no MessageBox, eu sempre prefiro armazena-lo numa variável chamada "mensagem", pois o código fica mais limpo e mais fácil de ser visualizado o que está acontecendo. A variável "confirmaSaida" armazena a resposta que o usuário vai dar. No caso, SIM ou NÃO. Qualquer problema é só dar um toque. Abs.

É isso aí Harry... A melhor coisa que agente faz é comprar livros, pesquisar na internet e participar de foruns.

Beleza... Valeu pelo complemento.

Parece que o seu problema está na conexão do seu aplicativo com o seu banco de dados MySQL, pois o código que eu postei está correto para os fins de sua pergunta. Parece que o problema está relacionado ao fato de que você não consegui visualizar os registros. Como você conectou o seu aplicativo ao seu banco de dados MySQL?

O melhor acesso usando o DBExpress parece ser de uma das seguintes formas: Primeira Forma: 1) no DataModule, colocar os componentes SQLConnection, DataSetProvider e ClientDataSet; 2) no formulário, colocar os componentes SQLQuery (ou ainda SQLTable) e DataSource. Segunda Forma: 1) no DataModule, colocar os componentes SQLConnection, DataSetProvider, ClientDataSet e SQLDataSet; 2) no formulário, colocar o componente DataSource (posso também, se quiser, colocá-lo no DataModule pra ficar junto com os outros componentes). Dizem que não deve-se usar o SQLClientDataSet (ou SQLSimpleDataSet, este a partir do Delphi 7). Falam que é extremamente aconselhável substituí-lo por SQLDataSet (ou SQLQuery ou SQLTable) mais DataSetProvider e mais ClientDataSet. Talvez ainda assim vc. tenha dificuldades. Se tiver tempo e paciência, anote meu ICQ e me dê um toque que eu te ajudo - ICQ: 4826639 Abs.

Oi July, estou querendo entender seu problema... Até onde eu pude compreender, porque você não cria um Form2 (Unit2) e caso a opção selecionada seja "X", é aberto o Form1 (Unit1)?

Sim, é uma outra opção. Elaborei a sentença daquele modo para ficar mais fácil para o Lázaro entender.

Olá, Acho que está resolvido (aqui deu certo). Tente usar a seguinte sentença SQL no evento OnKeyUp do Edit1: ======================================================================================= ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT * FROM NomeDaTabela WHERE NomeDoCampo LIKE ' + #39 + Edit1.Text + '%' + #39); ADOQuery1.Open; ======================================================================================= Caso você ainda não consiga, me fala que eu te mando o arquivo fonte do exemplo. Abs.

Acho que não existem muitas pessoas de Santa Cruz do Rio Pardo, por aqui. Você não precisa, necessariamente, montar um grupo com pessoas de uma determinada localidade. Através da Internet você poderá criar um grupo de estudos até com pessoas de outro país. A sua iniciativa é muito boa, mas acho que poderia ser mais abrangente.

É um livro muito bom também. No entanto, os livros que eu lhe indiquei são mais PRÁTICOS do que TEÓRICOS. Este o DELPHI - A BÍBLIA, do Cantú, é mais TEÓRICO do que PRÁTICO.

Você consegue através do seguinte código: ========================================== Edit1.Text:= ADOTable1.FieldByName('NomeDoCampo').AsString; ========================================== Se der qualquer erro dá um toque. Como você disse que é iniciante, gostaria de lembrá-lo que na maioria dos casos não utilizamos o objeto EDIT para visualizar os dados de um tabela. Em seu lugar, utilizamos o DBEDIT, encontrado na paleta DATA CONTROLS. Abs.

Olá, Eu fiz o teste aqui e funcionou corretamente (tanto com o componente DataSet ativo ou inativo). Veja, o texto que está dentro do Edit1 vai para o DBComboBox, mas não significa que ele foi adicionado ao seu Banco de Dados. Obs.: uma tabela está no modo de inserção quando é chamado o método INSERT. Por exemplo, ADOTable1.Insert .

Tente utilizar o código que eu postei no outro tópico que você inseriu.

Ricardo, tente utilizar o código abaixo (a única diferença é que eu estou pegando os valores de DATA_INICIAL do EDIT1 e do DATA_FINAL do EDIT2. -------------------------------------------------------------------------------------------- Query_Pesquisa.Close; Query_Pesquisa.SQL.Clear; Query_Pesquisa.SQL.Add('SELECT * FROM Classificacao.db '); Query_Pesquisa.SQL.Add('WHERE DataColeta >= :data_inicial AND DataColeta <= :data_final'); Query_Pesquisa.ParamByName('data_inicial').AsDate := StrToDate(Edit1.Text); Query_Pesquisa.ParamByName('data_final').AsDate := StrToDate(Edit2.Text); Query_Pesquisa.Open; -------------------------------------------------------------------------------------------- Digite todas estas linhas pois, de acordo com o código que você digitou, o QUERY não é LIMPADO antes de executar a própria senteça SQL, o que pode gerar erros. Outrossim, também pelo seu código o QUERY não foi reaberto. Se não der certo fala.

Como assim Ricardo? Se você quiser digitar uma sentença SQL no QUERY, basta dar duplo-clique na propriedade SQL do QUERY, e digitar sua sentença. Por exemplo: SELECT * FROM NomeDaTabela Se esta resposta não te ajudar (pois não entendi direito sua pergunta), detalhe melhor sua dúvida. Abs.