Pirambu!

Sim, é isso mesmo

Abra o Explorer->Ferramentas->Mapear unidade de rede, depois click em procurar e identifique a pasta onde estar o banco de dados na rede, depois vá no arquivo *.udl que você colocou no C:\ e identifique o local do banco pelo mapeamento que você fez

Sim, é feito apenas do banco de dados, e é feito em cada máquina.

ZueRa, eu acredito que "nCol" seja o nome do campo onde vai ser feita a consulta. Livio Neiva, tenta colocar o comando para inicializar a consulta no local onde estão listados. se você estiver usando um combobox, em items você deve colocar o nome dos campos que contém na tabela a qual será feita a consulta exp : local, idade... ainda no combobox em eventos "OnChanger" de dois click e procedure TF_Produtos.ComboBox1Change(Sender: TObject); var NomCol:String; begin editProcura.Text:= ''; //limpando o campo onde será feita a consulta. NomCol:= Combobox1.text; //colocamos o valor selecionado na variavel. if NomCol= '' then Application.MessageBox('Primeiro Selecione uma Coluna para Realizar a Consulta','Clique em um Título',MB_OK + MB_IconError) else Begin with F_Dados.Q_produto do Begin Close; SQL.Clear; SQL.Add('SELECT * FROM PRODUTO WHERE '+ NomCol + ); SQL.Add('order by '+ NomCol); open; end; End; end e para o o editProcura.Text de dois click procedure TF_Produtos.Edit1Change(Sender: TObject); var NomCol:String; begin editProcura.Text:= ''; //limpando o campo onde será feita a consulta. if combobox1.text = '' then Begin Showmessage('Escolha o loca"); exit; end; NomCol:= Combobox1.text; //colocamos o valor selecionado na variavel. with F_Dados.Q_produto do Begin Close; SQL.Clear; SQL.Add('SELECT * FROM PRODUTO WHERE '+ NomCol + ' like :A'); SQL.Add('order by '+ NomCol); parameters[0].value:= '%' + editProcura.Text + '%'; open; end; end; Ver ai se é o que você precisa, e posta o resultado.

Geomar Canjundo, eu consigo sem problema usando um arquivo "udl", você deve fazer o mapeamento da rede para a máquina de onde fica o Banco de dados, dentro do seu sistema, em TADOACONNECTION você quando for indicar o local do banco de dados você marca "User data link file" e manda procurar o arquivo que você vai criar ex.: "C:\Sistema.udl." agora você salvar este codigo abaixo em um bloco de nota e salvar como "Sistema.udl" e salva dentro do "C:\", depois de salvo você dá dois no arquivo click e indica o banco de dados que já estar mapeado. em Database Password se o banco tiver senha, o acesso pelo sistema é feito normalmente, apenas não permite outra pessoa abrir o banco e alterar as informações. [oledb] ; Everything after this line is an OLE DB initstring Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sistemas.mdb;Persist Security Info=False;Jet OLEDB:Database Password=xxx;Jet OLEDB:Engine Type=0 ver se isso é o que você precisa, depois posta o resultado.

Basta colocar um "DataSource1" na paleta Data Access, depois você vai DataSet e coloca a Query e no Dbgrid você vai no DataSet e coloca o DataSource. Pronto agora é só abrir a query.

silvanirms, assim resolve seu problema, testa ai Proc.... var arq:textfile; linha:string; begin assignfile(arq,'c:\nomedoarquivo.txt'); reset(arq); while not eof(arq) do begin readln(arq,linha); if pos('cadeira',linha)>0 then begin Showmessage('Encontrado'); end;

Jhonas vou esperar por um resposta, e vou pesquisar sobre o assunto, se eu descobrir algo eu post a resposta, Valeu.

Jhonas, desta forma é aberto o PDF, da forma que eu fiz ele abre o arquivo dentro do proprio Form do Delphi mas aparece as opções de Salvar e Imprimir. veja abaixo: Ex.: C:\Arquivos de programas\Adobe\Acrobat 6.0\Reader\ActiveX\pdf.ocx - Clique em Abrir. - Procure na lista por 'Acrobat Control for ActiveX' - Clique em 'Install'. Após instalar, será criado na paleta 'ActiveX' (caso você não altere no momento da Instalação) um novo componente chamado 'Pdf'. Insira esse componente no formulário e utilize seus recursos para trabalhar com arquivos PDF. Ex.: Pdf1.LoadFile('C:\temp\arquivo.pdf'); //Abre um arquivo

usando este componente como eu faço para carregar o arquivo?

Jhonas, componente OLE ? não entendir, para visualizar o PDF eu usei o ActiveX do Acrobat.

Eu conseguir Visualizar um arquivo PDF dentro de um Form do Delphi, mas aparece as opções de "Imprimir" e "Salvar" alguém sabe como eu posso evitar isso?

junix, quando eu vir o delphi pela primeira vez, essa apostila me ajudou bastante, talvez possa ajudar você também, link

Vamos supor que os dois valores estejam em dois "edit", proc... var media,NotaExame:double; begin media:= strtoint(edit1.text) + strToInt(edit2.text); if media >= 7 then begin ShowMessage("Aluno Aprovado"); end else begin ShowMessage("Aluno Reprovado"); inputquery("Informe a nota do exame","Aviso!",NotaExame); media:= strtoint(edit1.text) + strToInt(edit2.text) + NotaExame; if media >= 5 then begin ShowMessage("Aluno foi Aprovado em exame"); end else begin ShowMessage("Aluno teve a media = " + Media + "seguir a condição"); end; end; Juliana ver se é isso que você esta precisando.

Daniel Henrique M. Doro, já que você colocou a senha, agora fica simples, na string que direciona ao banco de dados use este código: Provider=Microsoft.Jet.OLEDB.4.0;Data Source=local do banco de dados.mdb;Persist Security Info=False;Jet OLEDB:Database Password=sua senho;Jet OLEDB:Engine Type=0 copie este codigo e altere o Source e Password, no meu funcionou sem problema. eu teste no ACCESS 2000 e 2003 posta o resultado, valeu.

flavioavilela, você pode dentro do banco SQLserver formatar o campo que vai receber o valor ficaria assim: Valor decimal(10,2) default(0), e no Delphi quando você abrir a tabela ou query selecione o Campo dentro da tabela ou query e var na propriedade: Corrency coloca como True. ver se isso ajuda. outra forma seria essa direto no Delphi floatTostrF(CampoString,ffcurrency,10,2);

olha se não tem esse campo carregado na propria query? isso também causa este tipo de erro. manda limpar os campos da Query.

Para pegar os Valores é bem mais simples você faz assim Var Valor01,Valor02,Valor03:String; Begin Valor01 := Query1Campo1.AsString; Valor02 := Query1Campo2.AsString; Valor02 := Query1Campo3.AsString; end; ve se isso ajuda, e para Salvar em Txt da uma olhada neste link abaixo: Link TXT

Amigo, acredito que a melhor forma seria utilizando uma AdoQuery para lista os itens da tabela e colocar na forma desejado.

Junior, pelo que entendir você tem uma tabela e quer soma os valores do registro da mesma, dependendo do Codigo "PlanConcPlano.AsString" a primeira condição é que o codigo inicie com "1" e a segunda opção não entendir "1. " if (trim(copy(qyRelPlanConcdPlano.AsString,1,5)) <> cdFormato1[i]) and (trim(copy(qyRelPlanConcdPlano.AsString,1,5)) <> '1. ') then Da forma em que estar sendo feito você estar pegando os valores e atualizando a cada While deve ser jogada no "QRlabel10.caption" depois do While, e você estar usando duas query, post mais informações sobre as querys,

Micheus, deu certo, obrigado pela força. --José Luiz -- obrigado pela ajuda, Abraços

Estou tentando mudar apenas a cor de uma determinada coluna if Querystatus.AsString = 'Sim' then Begin DbGrid1.Canvas.Font.Color := ClNavy; DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State); End Else Begin DbGrid1.Canvas.Font.Color := Clmaroon; DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State); end; Quero mudar apenas na coluna "Status", mas fica a linha do DbGrid inteiro, como eu posso resolver isso?

Estou com um problema, instalei o Windows Vista na minha maquina, e sempre uso o arquivo *.udl para conectar ao banco de dados Access, mas o arquivo não estar mostrando a opção de provedor "Microsoft Jet 4.0 OLE DB provider". Alguém sabe como eu posso resolver.

Conseguir resolver simples, exitem o arquivo "...\delphi7\bin\delphi32.exe " eu apenas alterei o nome de "Delphi32.exe" para "Delphi32.dro.exe". pronto resolveu meu problema abriu normalmente. Valeu pessoal pela força.

Frega, o Meu é delphi é win32 o que devo fazer procurar outro delphi ou tem outra opição?