Pirambu!

Pronto Resolvir tinha que ter "" , fica assim with query1 do begin close; sql.Clear; sql.Add('Select T1.codigo, T2.Nome, T3.Descricao'); sql.Add('from (Tabela1 T1 left join Tabela2 T2 On T1.codigo =T2.codigo)'); sql.Add('Left Join Tabela3 T3 On T1.codigo2 = T3.Codigo2'); sql.Add('WHERE year(T1.Dataadmissao) = :Ano and T1.codigo1 < "100000"'); sql.Add('Order by T1.Nome'); parameters[0].Value:=Edit1.Text; open; end; Valeu.

Estou com um problema neste codigo with query1 do begin close; sql.Clear; sql.Add('Select T1.codigo, T2.Nome, T3.Descricao'); sql.Add('from (Tabela1 T1 left join Tabela2 T2 On T1.codigo =T2.codigo)'); sql.Add('Left Join Tabela3 T3 On T1.codigo2 = T3.Codigo2'); sql.Add('WHERE year(T1.Dataadmissao) = :Ano and T1.codigo1 < 100000'); sql.Add('Order by T1.Nome'); parameters[0].Value:=Edit1.Text; open; end; o Erro é neste local "100000" eu também tentei assim Str(100000) mas também deu erro. Estou usando Banco de Dados ACCESS.

Denis Courcy, é isso mesmo que eu queria. Value pela ajuda, Abraços,

Foi mal , o banco de Access

Alguém sabe como eu posso usar o comando Extract usando ADoquery Exemplo with Adoquery do Begin close; sql.clear; Sql.Add('Select nome, datanascimento from Tabela'); Sql.add('Where extract(month from Datanascimento) like :Mes'); parameters[0].values:= combobox1.text; Open; end; no combobox vai consultar o mes 1 ou 2 ...

eu já tentei, talvez esteja fazendo da forma errada assim select top (*) from Tabela só que dá erro.

Estou usando uma tabela do access e faço várias consultas mas queria que cada consulta fosse mostrado apenas 20 registro, Alguém sabe como posso realizar esta consulta usando uma ADOQuery?

pronto conseguir resolver assim Criei essa função: function compacta_ADO (const Banco: WideString) : boolean; var JE : TJetEngine; //Jet Engine Temp : WideString; //TEMP database Conexao : WideString; //Connection string i : integer; const Provider = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='; begin Temp := ExtractFileDir(banco) + 'TEMP' + ExtractFileName(banco); Conexao := Provider + temp; if FileExists(Temp) then DeleteFile(Temp); JE:= TJetEngine.Create(Application); try try JE.CompactDatabase(Provider + Banco, Conexao); DeleteFile(Banco); RenameFile(Temp, Banco); except on E:Exception do ShowMessage(E.Message); end; finally JE.FreeOnRelease; for i:= 15 to 100 do begin sleep(10); end; Result:=True; end; end; Acionei um JetEngine da paleta ACTIVEX para Chamar a Função: Compacta_ado('c:\banco.mdb'); O Banco de dados deve estar fechado Valeu, até a próxima.

Preciso criar uma rotina para compactar um banco de Dados do Access. Tenho um banco de dados Access que tenho que atualizar 4 tabelas toda semana(pega informações de outro tipo de banco para o banco do Access), só que quando faço a primeira atualização o banco fica com x MB quando vou fazer a segunda atualização o banco fica 2x MB (Mesmo que tenha a mesma quantidade de registros), detalhe a cada atualização é é limpa as tabelas então era pra ficar sempre com o mesmo pesso x MB Alguém sabe como posso criar uma rotina no delphi para ficar compactando o banco de dados antes de cada atualização?

Micheus Estou usando o mesmo programa em Delphi, apenas estou mudando o banco de dados de Paradox para Access para evitar alguns erros que as tabelas do paradox apresenta quando trabalha em rede com muitos acessos. só que tinha visualizado as informações apenas no banco de dados Access, não tinha visualizado no Delphi pois tinha que fazer as configurações dos Forms, mas quando você perguntou onde eu estava visualizando, fui verificar pelo Delphi e estar normal, as duas formas estão corretas tabelaAccessCampo.Assign(tabelaParadoxCampo) TabelaAccessCampo.Value:=TabelaParadoxCampo.value; Micheus obrigado, Até a próxima.

isso mesmo estou usando Memorando. TabelaAcessCampo.Assign(tabelaParadoxCampo);Micheus eu tentei mas não mudou, ficou da mesma forma.

Estou tentando fazer uma transferencia de dados de uma tabela do Paradox para uma tabela do Acess o problema é que um dos campo da tabela do Paradox estar como "F" e quando passa para a tabela do Acess aparece desta forma " {\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\lang1046\f0\fs16 trabalha com muita aten\'e7\'e3o \par }" A forma da transferencia é assim TabelaAcess.append; TabelaAcessCampo.value:= tabelaParadoxCampo.value; TabelaParadox.next; Obs.: Apenas os campos no formato "F" apresentaram este problema. Eu poderia fazer assim Paradox --> TXT --> Acess - mas tem alguns campos de Fotos, por isso não fiz assim. alguém sabe como eu posso resolver este problema?

Pessoal, desculpa a demora para responder. Resolvir como o Micheus comentou, Micheus e JHonas Obrigado Pela Ajuda.

Jhonas, onde eu posso usar este comando SQL direto para a tabela? Micheus,eu não sei como criar este índice no campo da tabela, você pode me explicar como eu poderia fazer?

Alguém pode me ajudar a colocar dados mostrado em um Dbgrid ficarem em ordem crescente, estão ligado ao banco de dados Acess e não queria usar uma Query

Micheus, deu certo, mas tive que mudar apenas isso. if not (gdSelected in State) then if not odd(dados.Qpecas.RecNo) then begin DBGrid1.Canvas.Brush.Color:= clInfoBK; DBGrid1.DefaultDrawDataCell(Rect,Column.Field,state); end; e funcionou certinha. valeu peça força, abraços.

Estou Com um problema ao usar este código abaixo: if not odd(dados.QMateriais.RecNo) then begin DBGrid1.Canvas.Brush.Color:= clintoBK; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawDataCell(Rect,Column.Field,state); end; O Problema é que as linhas que tem cores, a fonte da letra que é Azul Escuro muda, para branco ficando quase invisível Alguém sabe como posso resolver este problema?

Var Texto : String; Begin Texto := 'F*'; Table1.Filter := 'state = '+ QuotedStr(Texto); Table1.Filtered := True; End; Neste exemplo, todos os estados iniciados pela letra 'F' seriam mostrados em seu DataControls/DBGrid. ver se isso ajuda!

- de que forma estão sendo abertas as tabelas?

Dá uma olha neste link

Micheus, eu fiz toda a configuração Primeiro passo: identifico o provedor SQL Server; segundo passo: identifiquei o servidor 222.22.222.222:2222 neste caso estou identificando o servidor e a porta; terceiro passo: uso login informo o usuário e senha; quarto passo: informo o nome do banco que usar. Quando vou testar, informa que existe erro de paramentro. Eu estou usando o SQL Server 2005,pode ser isso? Compretando o post. o erro que apresenta é este : [DBnetlib][connectiomopen(passeconnectparams())].conexão invalida.

Valeu micheus, vou olhar, depois post o resultado

Estou novamente precisando de ajuda. Tenho um servidor com banco de dados SQLServer, com o qual consigo fazer conexão remota, criei um programa e coloquei o banco de dados no servidor, e de outro local preciso acessar o banco de dados usando apenas o execultável, mas não sei como fazer a configuração do "connection ADO".

tem como eu criar uma conexão de entre delphi e meu banco de dados através de um IP fixo em que eu possa deixar meu computador ligado e acessar o banco de dados usando a delphi/internet de qualquer outro local. Eu posso trabalhar com paradox ou apenas SQL?

Micheus você tem razão já vimos este assunto, mas o que nós conseguimos foi utilizando uma treeview o que eu estou querendo é criar o organograma eu pense que talvez possa dá certo trabalhando o programa TSimpleGraph mesmo que tenha que criar o retangulo + links via codigo. Eu vi em site um organograma bem legal onde eu digitava as informação e ao clicar em um botão o Organograma ia sendo montado.