Aldinei

Desconectei da rede da internet com o reteador funcionou. Agora me tire só mais uma duvida eu tenho sempre que criar outro nome do BD, não pode ser mesmo ? ou tenho que renomear. ? JHonas mais uma vez muito obrigado e boa tarde.

OI Jhonas tudo bem, estou trabalhando em notbook sem rede, só eu usando. agora é o seguinte estou executando esse função dentro do aplicativo mas estou fechando o banco antes desse jeite. FDM_query.ado_conexao.Connected:=false; mesmo assim ele mantem aberto o BD.

Boa tarde pessoal, Estou com problema para compactar meu BD access, estou usando essa função; if CompactAndRepair('c:\acc2000\bd\tbaccsis.mdb','c:\acc2000\bd\tbaccsisnovo.mdb') Then ok; else o erro é "voce esta tentando abrir um banco de dados que já foi aberto" Agradeço desde já a todos. Abraço //-------------------------------------------------------------------------------------- Function TFrm_LimpezaTabela.CompactAndRepair(watualMDB : String; WnovoMDB : String) : Boolean; const sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;'; var oJetEng : JetEngine; begin WatualMDB:= sProvider + 'Data Source=' + watualMDB; wnovoMDB := sProvider + 'Data Source=' + wnovoMDB; try oJetEng := CoJetEngine.Create; oJetEng.CompactDatabase(watualMDB, WnovoMDB); oJetEng := Nil; Result := True; except oJetEng := Nil; Result := False; end; end;

Boa tarde, Colegas estou com problema, tenho uma função para pesquisa meu banco, usava o BDE funcionava bem mudei para ADO, ele da erro erro params[], Alguém pode me ajudar informado qual o o motivo ou se o ADO não suporta essa função. O meu código está assim function Funcoes.LocalizaIndice(WPtabela: TADOQuery; WPselecao,WPCondicao: String; WPchave: Array Of Variant): booleam; Var : interger; begin with WPtabela do close; Sql.clear; Sql.Add(WPselecao); Sql.Add(WPcondicao); for wi := 0 to ParamCount - 1 do Params[wi].value:=WPchave[wi]; open; if not eof then Result:=true else Result:=false; end; O erro é esse: [Error] U_Funcoes.pas(654): Undeclared identifier: 'Params' Desde já agradeço.

Valeu Jhonas Serviu para mim também. Sempre ajudando. Grande abraço.

Ok Jhonas, Muito obrigado, mais uma vez. Tudo de bom e boa noite. Abraço.

Boa tarde, Colegas estou com problema, tenho uma função para pesquisa meu banco, usava o BDE funcionava bem mudei para ADO, ele da erro erro params[], Alguém pode me ajudar informado qual o o motivo ou se o ADO não suporta essa função. O meu código está assim function Funcoes.LocalizaIndice(WPtabela: TADOQuery; WPselecao,WPCondicao: String; WPchave: Array Of Variant): booleam; Var : interger; begin with WPtabela do close; Sql.clear; Sql.Add(WPselecao); Sql.Add(WPcondicao); for wi := 0 to ParamCount - 1 do Params[wi].value:=WPchave[wi]; open; if not eof then Result:=true else Result:=false; end; O erro é esse: [Error] U_Funcoes.pas(654): Undeclared identifier: 'Params' Desde já agradeço.

Jhonas bom dia, O problema foi resolvido conforme sua instruções, já esta rodando e compilando, agora vou ajustar os errros de execução. Não sei como te agradecer muito obrigado mesmo. Qualquer coisa estou a disposição. Grande Abraço.

Oi Jhonas, Desculpe a demora. com muito trabalho conseguir uma versão anterior Jhonas este projeto meu é antigo, tem muito tempo que desenvolvi ele, estava parada eu estava trabalhando e agora vou voltar movimentar ele, funcionava muito bem até em algumas empresa. ficaria muito grato se você me dé uma atenção especial.

nessa primeira linha do formshow, quando fecho a tabela. Parece ser alguma coisa com Datamodule. você quer entrar na minha maquina com TeamViewer para ver melhor e ficaria muito grato.

um mom /------------------------------------------------------------------------------ procedure TFrm_Principal.FormShow(Sender: TObject); //------------------------------------------------------------------------------ begin F_DataModule.Qry_Configuracao.close; F_DataModule.Qry_Configuracao.open; Wvisualiza_Rel_tela := F_DataModule.Qry_Configuracao.Fieldbyname('rel_visualiza_tela').AsBoolean; // WtempoPermitido := (F_DataModule.Qry_Configuracao.Fieldbyname('tempoespera').AsInteger * 6.95); // WUltimaHoraUsada := (time * 10000); LongDateFormat:= 'dd/mm/yyyy'; DateSeparator := '/'; É sempre que movimento uma tabela,

Oi Jhonas Obrigado pela atenção. É quando abre qualquer tabela.

Boa tarde, Colegas estou com problema sério e não consigo resolver, tem um projeto no delphi 7 estava usando DBE com o BD Access, sempre que acesso um uma Query trava e da erro de violação de memória, troquei para ADO achando que era o BDE e continua veja o erro. Agradeço desde já a todos que possa me ajudar. grande abraço