Pirambu!

Qual o ACCESS que você estar usando?

Geomar, eu sempre uso AdoQuery + Datasource, o que você esta usando para acessar as tabelas do ACCESS?

é usando uma placa de Fax-modem

Geomar Canjundo, vamos tentar 1º - Coloque o Banco de dados no servidor em uma pasta compartilhada (para o código abaixo o banco de dados deve ter senha, abra o banco de dados em modo exclusivo e coloque a senha para outras pessoas não fiquem olhando as informações). 2º Criei o Arquivo "Dados.udl" e salve dentro do "C:\Dados.udl" em cada máquina. crie um bloco de nota copie este código para o arquivo [oledb] ; Everything after this line is an OLE DB initstring Provider=Microsoft.Jet.OLEDB.4.0;Data Source=W:\bancoDados.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123;Jet OLEDB:Engine Type=0 Data Source: indica o banco de dados pelo mapeamento Password: senha do Banco de dados. mude a extensão para "Udl 3º no delphi no "ADOConnection" marque "Use Data Lnk File" e indique o "C:\dados.udl" assim o executável vai procurar sempre este aquivo em cada maquina onde estiver rodando. não pode ser diferente. dessa forma é para funcionar sem problema tentanovamente e post o resultado.

Jhonas, estou tentanto este que você indicou, mas você já tentou usar?

dmvendas.SimpleDataSetitens.FieldByName('valor_pro').Asfloat:= dmvendas.SimpleDataSetitens.FieldByName('valorproduto').Asfloat * dmvendas.SimpleDataSetitens.FieldByName('qtda_itens').Asfloat; Tenta colocar este calculo em uma variavel antes.

Churc, eu baixei o componente e criei o "exe",mas não esta funcionando, pode ser qualquer placa de modem ou tem alguma restrição?

Beleza, vou tentar.

Churc, pelo que entendir eu preciso apenas da placa de modem no PC, e não preciso de um aparelho de identificador de chamada, é isso mesmo ou entendir errado?

Estou tentanto desenvolver um identificador de telefone, com bina mas não sei se existem restrinções entre bina, e como eu faço para ler a porta do bina ligado a placa de molder do PC? e depois com o numero do telefone eu sei como fazer a consulta dentro do banco de dados para apresentar as informações do Cliente.

flavioavilela, você já tentou deixar a query Ativada direto na propriedade, ou você pode ativar as query quando abrir o projeto.

se você estiver usando um Edit ficaria assim: Cargos.text:= Query.FieldByName('Cargos').AsString; se os campos tiverem definidos na query ficaria assim: Cargos.Text:= QueryCargos.AsString;

Gleyson, na verdade estou querendo fazer apenas um consulta pegando dados de duas tabelas sendo que eu tenho uma tabela em cada banco de dados onde eu tenho dois ADOconection. da forma que você mostrou eu faço duas consulta, de toda forma obrigado.

Frega, eu não diria que é uma gambiarra e sim um forma de contornar uma coisa que foi iniciada da forma errada, verifique se tipo campo que foi criada é numérico, pois é a forma correta trabalhar valores numérico onde você pode utilizar como Integer ou Float.

Eder você tinha razão eu tinha digita errado o Host, mas agora esta aparecendo o seguinte erro "ERRO. Não enviado." não estar conseguindo enviar a mensagem IdSMTP1.Send(IdMessage1); você tem ideia do que possa ser agora?

Amigo tenta joga este codigo dentro da procedure se você estiver usando algum "radiogroup" para identificar se os funcionarios ativos ou não, Begin if ragiogroup1.itemindex = 0 then//Funcinários Demitidos Begin with dmdados.SqlConFuncionario do Begin Close; Sql.clear; Sql.add('select * from FUNCIONARIO '); Sql.add('Where Func_NOME like :nome and FUNC_CIDADE like :cidade and FUNC_CARGO like :cargo'); Sql.add('and FUNC_CPF like :cpf and FUNC_DATAADM >= :dataadmini and FUNC_DATAADM <= :dataadmfin'); Sql.add(' and FUNC_DATADEM >= :datademini and FUNC_DATADEM <= :datademfin and FUNC_DATADEM not isnull'); ParamByName('nome').asstring:='%'+editnome.text+'%'; ParamByName('cidade').AsString:='%'+EditCidade.Text+'%'; ParamByName('cargo').AsString:='%'+ComboBox1.Text+'%'; ParamByName('cpf').AsString:='%'+EditCpf.Text+'%'; ParamByName('dataadmini').AsDate:=dataadmIni.Date; ParamByName('dataadmfin').AsDate:=DataadmFin.Date; ParamByName('datademini').AsDate:=DatademIni.Date; ParamByName('datademfin').AsDate:=Datademfin.Date; Open; end else Begin Close; Sql.clear; Sql.add('select * from FUNCIONARIO '); Sql.add('Where Func_NOME like :nome and FUNC_CIDADE like :cidade and FUNC_CARGO like :cargo'); Sql.add('and FUNC_CPF like :cpf and FUNC_DATAADM >= :dataadmini and FUNC_DATAADM <= :dataadmfin'); Sql.add(' and FUNC_DATADEM isnull'); ParamByName('nome').asstring:='%'+editnome.text+'%'; ParamByName('cidade').AsString:='%'+EditCidade.Text+'%'; ParamByName('cargo').AsString:='%'+ComboBox1.Text+'%'; ParamByName('cpf').AsString:='%'+EditCpf.Text+'%'; ParamByName('dataadmini').AsDate:=dataadmIni.Date; ParamByName('dataadmfin').AsDate:=DataadmFin.Date; Open; end; end;

da uma olhada Link

Eu tenho duas conection ADO sendo uma pra cada banco de dados ACCESS, gostaria de saber é possivel criar uma query usando duas tabelas sendo que é uma tabela em cada Conection ADO.

Escreve o código que esta dentro da query.

nicolasbraz, para fazer consulta dos funcionários que estão com a data de demissão sem esta preenchida ficaria assim: Where datademissao is null

Geomar Canjundo, cara eu faço assim e da certo, atensão para os texto en negrito [color="#FF0000"][b]Adiciona a USES: jpeg, clipbrd;[/b][/color] ...................................... procedure TFCad_Clientes.BitBtn13Click(Sender: TObject); var jpg: Tjpegimage; begin dados.Tabela1.Edit; [b][color="#FF0000"]if OpenPictureDialog2.Execute then[/color][/b] begin jpg:= Tjpegimage.Create; jpg.LoadFromFile(openpictureDialog2.FileName); Clipboard.Assign(jpg); Dbimage2.PasteFromClipboard; jpg.Free; end; dados.Tabela1.Post; end;

Frega, esse valor quando for mostrado vai ser feito apenas o arredondamento dos valores o resultado final vai sempre o mesmo mas de toda forma segue alguns formas para mostrar a quantidade de casas decimais dejesadas: Edit1.text:= floatTostrF(CampocomoValor,ffcurrency,10,2); Edit1.Text := CurrToStrF(StrToCurrDef(Trim(Edit1.Text),0),ffNumber,2); para mostrar com 4 casas decimais basta usar 4 no local do 2; ver se é isso que você precisa.

Eder, já criei o e-mail e coloquei no Host do IdSMTP1, mais continuou o Erro:SOCKET ERRO #11004.

Eder, apareceu o mesmo erro:SOCKET ERRO #11004. mais eu estou usando o do yahoo. smtp.mail.yahoo.com.br , o que eu precisaria para usar o do "bol"

Eu criei um form para enviar E-mail e Adicionei os seguintes componentes:IdSMTP,IdMessage no IdSMT: Host= smtp.mail.yahoo.com.br Password:Senha do meu e-mail UserName:nome do meu e-mail Gostaria de saber se esta forma esta correta quando mando enviar apararece o seguinte erro: SOCKET ERRO #11004. alguém sabe como eu possa resolver este problema?