locorj

Descobri.... era o Data Source... ele tem que ser separado... tava colocando junto assim DataSource

O jet esta instalado pois em todas as máquinas ele abre, mas tenho que apontar o path.... ambas as máquinas estou usando o mdac 2.8 sp1.... Aproveito pra deixar aqui uma dica... no link abaixo quem quiser pode baixar esse programinha que a microsoft tem pra verificar a versão do mdac instalada... além de fazer outras coisainhas... muito ultil.... http://www.microsoft.com/downloads/details...en&Hash=85K8NP8

Fala galera beleza ???? Estou com o seguinte problema... tenho um projeto e sempre trabalho com ele em vários computadores... toda vez que eu abro ele tenho que acertar o caminho do DB estou usando ADO, pois bem pensei em criar um ini com os parametros... faço assim pra carregar os parametros da conexao... conexaoDB.ConnectionString:= linha1+linha2+linha3+linha4+linha5+linha6+linha7+linha8+linha9+linha10+linha12+linha13+linha14+linha15+linha16+linha17+linha18+linha19; até ai ele vai na boa... mas quando dou um conexaoDB.Connected:=true; dá esse erro 'could not installabe ISAM' , oque está acontecendo ? tentei fazer de uma forma + simples tb não deu... conexaoDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\projetos\Trabalho\Cirus\cirusBD.mdb;Persist Security Info=False';

você quer fazer uma implementação web ??? ou uma aplicação pra acessar a base de dados remotamente ?

Valeu galera funcionou redondinho aqui... Ai Progr'amador tinha somente uma errinho na sua sintaxe... você esqueceu de colocar um + depois do #39... valeu pela ajuda ficando assim... SQL.Add('WHERE Nome like '+#39+Edit1.Text+'%'+#39); Só que fiquei com uma dúvida... do que se trata o #39 ???

eu queria fazer uma consulta que ela desse o resultado conforme fosse digitanto... Ex. tenho um campo chamado nome quando eu digitar A ela selecionasse todos os nomes que começam com a letra a.... e assim por adiante... como eu faço isso ?

Como dizem por ai alegria de pobre dura pouco !!!!!! Ele funcionou corretemente durante um tempo... mas agora voltou o erro... que é esse: EOleException with message 'Key column information is insufficient or incorrect. Too many rows were affected by update'. Toda vez que eu removo ou edito na grid dá esse erro e amudança feita afeta todos os registro... ex. seu eu deletar um dá o erro acima e deleta todos os registro que estão sendo exibidos... se eu editar um campo dá o erro acima e todos os campos ficam com o valor que eu coloquei.... o que será isso

Resolvi o problema... mudei a opção IsolationLevel do TADOConnection para IlUnspecified ai parou de dar erro.... valeu....

Esse é o erro... EOleExeption with message 'Key column information is insufficient or incorrect.' Too many rows were affectd by update Comando pra editar sqltrocadas.edit..... comando pra salvar sqltrocadas.post comando excluir sqltrocadas.delete Eu faço assim com a TADOQuery ligo ela no TADOConnection e só... a propriedade active está comno true... abaixo a sql que eu sua é select * from os_pecas where pectroc_oscadastro=:codos A sql está fucnionando perfeitamente só dá pau quando eu deleto ou edito... mas quando eu adiciona vai perfeitamente...

Não seria + fácil colocar isso em uma grid ???? e cruzar as informações ?? De qualquer forma você pode fazer em sua tabela um compo lookup... e colocar ele em seu segundo combo...clique como botão direito em sua table filds editor... depois em new field coloque o nome do novo campo, o tipo selecione lookup e assim vai.... qualquer dúvida posta ai..

Pra pegar a data atual do sistema é assim função now... var today : TDateTime; begin today := Now; ShowMessage('today has date = '+DateToStr(today)); ShowMessage('today has time = '+TimeToStr(today)); end; Acho que você sabe como faz pra colocar isso no teu BD... mas se não souber... tabelacampo1.value:= today;

O que será que está acontecendo ??? toda vez que vou remover ou alterar um registro que através TADOQuery ele não vai ??? existe alguma propriedade pra setar ?

Alguém já viu esse erro em uma grid ?? O que pode ser ? Project cirus.exe raised exception call EOleExeption with message 'Key column information is insufficient or incorrect.' Too many rows were affectd by update Esse erro sempre ocorre quando vou atualizar + os registros na grid.... No meu projeto tenho uma TADOQuery, que está ligada em um TADOConnection. E tenho um TDataSource que está lidago a TADOQuery...

Preciso colocar esse código em meu data module no evento Onmovecomplete if addgrid= true then begin controlegrid(); end Sendo que addgrid é uma variável que está em uma form...projetocirus.pas e controlegrid(); é uma procedure publica que está no form projetocirus.pas, como eu faço pra acessar o procedure e a variável de dentro do data module ?

O Massuda do Imasters respondeu... valeu Massuda!!! somaos:= somaos + acessodados.frmdados.sqltrocadaspectroc_valor.AsCurrency;

tenho se pegar um valor do banco de dados que está em string e converter em currency... como eu faço ??? ai vai o código que estou usando... somaos:= somaos + StrToCurr(trim(acessodados.frmdados.sqltrocadaspectroc_valor.Value)); O que estou fazendo de errado ?

Ai valeu mesmo...funcionou perfeitamente... Assim se colocar o clear tb funciona.... !!

Como eu faço pra apagar o conteudo de um dbedit ? eu testei dbedit.clear edbedit.text := ''; mas isso não apaga....!!

Resolvido o problema ai vai o código com ela funcionando perfeitamente if Trim(camosentrada.Text) = '' then begin end else begin if StrToInt (copy(camosentrada.text,1,2)) > 31 then begin messagebox (Handle,'Data Inválida, digite no formato DD/MM/YYYY','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end else begin if StrToInt (copy(camosentrada.text,3,2)) > 12 then begin messagebox (Handle,'Data Inválida, digite no formato DD/MM/YYYY','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end else begin if StrToInt (copy(camosentrada.text,3,2))= 2 then begin if StrToInt (copy(camosentrada.text,5,4))mod 4 <> 0 then begin if StrToInt (copy(camosentrada.text,1,2)) = 28 then begin messagebox (Handle,'Data Inválida','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end; end else begin if StrToInt (copy(camosentrada.text,3,2)) < 7 then begin if StrToInt (copy(camosentrada.text,3,2))mod 2 = 0 then begin if StrToInt(copy(camosentrada.text,2)) = 31 then begin messagebox (Handle,'Data Inválida','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end; end else begin if StrToInt (copy(camosentrada.text,3,2)) > 7 then begin if StrToInt (copy(camosentrada.text,3,2))mod 2 <> 0 then begin if StrToInt (copy(camosentrada.text,2)) = 31 then begin messagebox (Handle,'Data Inválida','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end; end; end; end; end; end; end; end; end;

Galera finalmente consegui resolver o problema !!!! Só adicionar um TADOQuery... não pode ter TADOTable.... e ligar data source na TADOQuery

Fala galera percebi que o erro está no and do if então resolvi fazer de forma diferente... mas ainda tá dando erro parece que sobra ou falta end mas já analizei várias vezes e não consigo ver o erro... ai vai o código. if Trim(camosentrada.Text) = '' then begin end else begin if StrToInt (copy(camosentrada.text,1,2)) > 31 then begin messagebox (Handle,'Data Inválida, digite no formato DD/MM/YYYY','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end else begin if StrToInt (copy(camosentrada.text,3,2)) > 12 then begin messagebox (Handle,'Data Inválida, digite no formato DD/MM/YYYY','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end else begin if StrToInt (copy(camosentrada.text,3,2))= 2 then begin if StrToInt (copy(camosentrada.text,5,4))mod 4 <> 0 then begin if StrToInt (copy(camosentrada.text,1,2)) = 28 then begin messagebox (Handle,'Data Inválida','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end; end; else begin if StrToInt (copy(camosentrada.text,3,2)) < 7 then begin if StrToInt (copy(camosentrada.text,3,2))mod 2 = 0 then begin if StrToInt(copy(camosentrada.text,2)) = 31 then begin messagebox (Handle,'Data Inválida','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end; end; else begin if StrToInt (copy(camosentrada.text,3,2)) > 7 then begin if StrToInt (copy(camosentrada.text,3,2))mod 2 <> 0 then begin if StrToInt (copy(camosentrada.text,2)) = 31 then begin messagebox (Handle,'Data Inválida','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end; end; end; end; end; end; end; end;

Adicione ao seu projeto um TADOConnection, TADOTable que ficam na guia ADO Clique em TADOConnection procure a propriedade connectionstring clique no botão ... na tela a seguir use a opção "Use Connection String" clique no botão Build... na guia provider escolha Microsoft Jet 4.0 OLE DB Provider e clique em next na tela seguinte indique o caminho onde se encontra o bando de dados mdb, depois de selecionado clique em Test Connection deve aparece uma menssagem de sucesso na conexão, clique em ok. ainda nas propriedades do TADOConnection procure a opção Connected mudel ela de false pra true, verifique tb a propriedade KeepConnecton ela deve estar como true. Agora vamos pro TADOTable procure a propriedade Connection selecione o TADOConnection, procura a propriedade TableName seleciona a tela do seu banco de dados, procure a opção active e mude ela pra true. Clique com o botão direito em cima do TADOTable seleciona a opção fields editor... na tela que irá abrir clique novamente com o botão direito selecione e opção Add All fields Agora adicone um TDataSource que fica na guia Data Access. Procure a proriedade DataSet e selecione o TADOTable, repare que existem 2 propriedades Dataset ambas devem ser selecionadas... e com o nome do mesmo do TADOTable Agora o passo final... na guia Data controls adicione 3 TDBEdits. Procure a propiedade Dadasouce do TDBEdit selecione o TDataSource depois selecione o campo que você desejar. Em data Controls existe um componente chamado TDBNavegator... com ele você pode adiconar, remover, editar os registros.... mas caso você queira fazer o controle manualmente é assim. TADOTable.Append; para adiconar um registro TADOTable.Edit; para editar um registro TADOTable.Delete; para deletar um registro TADOTable.Cancel; para cancelar um evento (adicionar, editar) TADOTable.Post; para salvar as operações (adicionar, editar)

é numérico...

Tem um erro na hora de pegar o mês.... começa apartir do 3 caracter e pega 2, só substituir o primeiro 2 que que vem anstes do AnsiMidStr... Não to entendendo.... ainda assim para no segundo if !!!

Eu tirei esse quotedstr(camoscadastro.Text) o programa foi sem erro... primeiro tentei a sql direta(foi na boa) colocando um valor, depois tirei o quotedstr e coloquei direto o camoscadastro.Text (tb foi na boa). O problema agora é ela não ela não está filtrando.... tá mostrando todos os registros... testei a sql no data explorer ela funcionar perfeitinha.... ai tentei de outra forma comentei o código e coloquei diretamente a sql no TADOquery... nada!! parece que não está filtrando o que será ?