Alberto Mota

Romero, obrigado pela atenção. Vou seguir o que disse. Depois posto o resultado.

Tente esse script DBCC CheckIdent(TblMovimentacao, Reseed, 100)

Prezados colegas, sempre instalei o sql server 2005 express no xp e nunca tive problemas. Agora preciso instalar no windows 7. Entretanto devo dizer que o erro é ao restaurar o banco de dados. Aponta para arquivos de programas. Quando tambem existe a pasta Arquivos de Programa (x86). Acredito que é isso que impede a restauração. Como resolvo esse problema? desde já obrigado.

Douglas, valeu mais uma vez. Funcionou agora. Um abraço.

Não funciona assim: Da erro de stack overflow( estouro de pilha) E onde coloco o código? E qual dos eventos? Desde já obrigado.

Prezados colegas, a fonte de dados do meu dbgrid é uma consulta onde calculo a idade do dependente. Quando informo a data de nascimento a idade não surge automaticamente. é preciso fechar o form e reabri-lo para que a idade correta apareça no dbgrid. Como fazer para que ao alterar a data de nascimento, já aparecer ao lado a idade? O banco de dados é o sql server e o Delphi 7. Desde já, obrigado.

Douglas, realmente não tinha a use jpeg. Coloquei e aceita imagens jpg. E com o código original tudo beleza. Mais uma vez, valeu.

Douglas, consegui resolver. Alterei a extensão para bmp e rodou ok. Obrigado. Segue o código: var foto1 : string; guardafoto : string; Begin with TblEmp do Begin guardafoto := inttostr(TblEmp.FieldByName('codigoEmp').AsInteger); if not(fileexists('C:\folha\fotos\'+guardafoto+'.bmp')) then begin foto1 := 'C:\folha\fotos\2010.bmp'; end else foto1 := 'C:\folha\fotos\'+guardafoto+'.bmp'; DbImage1.Picture.loadfromfile(foto1);

Infelizmente Douglas, o código parece estar ok. Fiz o debug e o mesmo erro: unknown picture file extension (.jpg) A mensagem diz: Arquivo de extensão de imagem desconhecida(.jpg) E como disse antes, usando o mesmo código num sistema em Access, roda perfeito. Um abraço.

Prezado Douglas, obrigado por responder Alterei conforme sugeriu, porem o erro continua o mesmo.

Prezados colegas, o código abaixo roda perfeito quando o banco de dados é access, No sql server da o seguinte erro: unknown picture file extension (.jpg) Segue o código: var foto1,guardafoto : string; Begin with TblEmp do Begin guardafoto := inttostr(TblEmp.FieldByName('codigoEmp').AsInteger); if not(fileexists('C:\folha\fotos\'+guardafoto+'.jpg')) then begin foto1 := ('C:\folha\20.jpg'); end else foto1 := ('C:\folha\'+guardafoto+'.jpg'); DbImage1.Picture.loadfromfile(foto1); Desde já obrigado.

Rodrigo, muito obrigado. Funcionou perfeitamente!

Prezados colegas, criei num form um campo para se digitar o capital social e atraves desse valor ser encontrado uma aliquota Mas da um erro: Erro de compilação do Microsoft VBScript (0x800A0401) Fim da instrução esperado /omega/verificanovo.asp, line 5, column 61 SQL = "SELECT * FROM verifica WHERE ParcelaI < Request.form("txtcapital") And ParcelaFinal > Request.form("txtcapital")" Segue o script. Desde já agradeço <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set conntemp = Server.CreateObject("ADODB.Connection") conntemp.Open Application("Conecta_bd") SQL = "SELECT * FROM verifica WHERE ParcelaI < Request.form("txtcapital") And ParcelaFinal > Request.form("txtcapital")" et rsPedidos = conntemp.Execute(SQL) base = rsPedidos("Parcela") %>

O que voce quer é pesquisa incremental. Coloque no evento onChange do Edit procedure TFrmAssociados.Edit2Change(Sender: TObject); var txt, Items : string; begin txt := Edit2.text; QueryAssociados.close; QueryAssociados.sql.clear; QueryAssociados.sql.Add('Select * from TblAssociados where CNPJ like '+#39+trim(edit2.Text)+'%'+#39+' order by CNPJ'); QueryAssociados.open; label17.Caption := 'Nº Total: ' + IntTostr(QueryAssociados.recordcount); end; Esse exemplo é com ADO mas deve funcionar. Coloque um dbgrid, ao clicar mostrará o registro. Adpate para sua necessidade. Um abraço.

Mude na tabela as propriedades Tipo de dados = numero Tamanho do campo = simples casas decimais = 2 Pode resolver. Um abraço

Bom pessoal esta resolvido! O arquivo bak não estava na pasta por isso a mensagem. Uma vez lá, funcionou. Jhonas, mais uma vez obrigado!

Jhonas criei essa stored procedure no sql server e rodou tranquilo executando no proprio sql server set ANSI_NULLS ON set QUOTED_IDENTIFIER ON GO ALTER Procedure [dbo].[sp_RestauraFenacSP] As RESTORE Database FenacSP FROM disk = 'C:\Fenac\backup\FenacSP.bak' Ao fazer no Delphi dá erro: Cannot open backup device 'C:\Fenac\backup\FenacSP.bak'. O sistema não pode encontrar o arquivo especificado. Abaixo o codigo no Delphi executando a stored procedure criada procedure TFrmRestauraRegionais.BitBtn3Click(Sender: TObject); begin Restaura.close; Restaura.ExecProc; Messagedlg('Restauração em Andamento!',mtError,[mbok],0); end;

Prezados colegas, aqui no forum consegui obter ajuda para fazer o backup do Sql server usando o Delphi. A minha necessidade agora é que os usuários façam a restauração do banco. Li alguns posts sobre o assunto, mas nenhum deles me ajudou. Como consigo fazer a implementação? Desde já obrigado.

Jhonas, muito obrigado. Um abraço

Alguma sugestão dos colegas?

Consegui fazer a configuração. Entretanto a lentidão é a mesma da conexão odbc. Tem a ver com processador ou memória ram? A velocidade da internet também é de igual importância? Desde já agradeço.

Prezados colegas, estou criando um aplicativo em Delphi 7 que conecte o MYSQL Coloquei no site uma base de 5000 clientes e uma conexão odbc. Esta muito lenta e resolvi optar pelo Zeos. Segundo dizem é mais rápido. Instalei o Zeos e na hora de configurar não estou cnseguindo Da uma mensagem de "requested database driver was not found" O driver do banco de dados não foi encontrado. Como resolvo isso? Pelo pesquisar nenhum post me ajudou. Desde já obrigado.

No AdoConnection que voce já possui na sua aplicação. voce vai buscar na rede o mdb. Em ambiente de rede selecione o banco de dados e pronto. E coloque LoginPrompt como false É só isso.

Bom, pessoal consegui resolver. Esperar que a Caixa envie um arquivo mastigado é esperar demais. Isso é bom porque faz com que nós programadores exercitemos a tão falada lógica de programação. Não há uma relação aparente entre os dois Segmentos: T e U. Mas o arquivo é sequencial. E me lembrei que os numeros dos boletos na tabela são sequenciais. E aí então... Eureka! Se o arquivo vem assim: 104100300001T 104100300002U 104100300003T 104100300004U 104100300005T 104100300006U Isso quer dizer que são 3 pagamentos. No segmento T tenho o numero do boleto e a data de venciemnto No Segmento U tenho a data de pagamento e o valor pago do sequencial acima dele. Então a ligação entre ambos foi criar um campo na tabela que guarda o Segmento U menos 1. Refiz o código e voilá(diriam os franceses). Segue o código do Segmento U. procedure TFrmArquivoRetorno.BitBtn8Click(Sender: TObject); var fArq: TextFile; Caminho: string; Linha: string; mTexto: TStringList; i: integer; valor1, valor2 : string; somatotal : Real; somatotal2 : String; dat :string; data :TDate; Valor : real; numero : integer; sequencial: integer; begin detalhesu.open; if Edit1.Text = '' then Begin statusbar1.Panels[0].Text := ' Selecione o arquivo retorno!'; BitBtn4.setfocus; exit; End; Caminho := Edit1.Text; AssignFile(fArq, Caminho); ReSet(fArq); mTexto := TStringList.Create; try mTexto.LoadFromFile(Caminho); pb.Max := mTexto.Count - 1; i := 0; finally mTexto.Free; end; while not Eof(fArq) do begin Readln(farq, linha); //Caption := 'Lendo Linha: ' + IntToStr(i) + ' de: ' + IntToStr(pb.Max); if pos('U',linha) = 14 then Begin dat := copy(linha,138,8); insert('/',dat,3); insert('/',dat,6); data := strtodate(dat); sequencial := strtoint(copy(linha,9,5)); valor := (strtofloat(copy(linha,93,15))/100); numero := strtoint(copy(linha,143,6)); detalhesU.ExecSQL; detalhesU.Append; detalhesU.edit; detalhesU.FieldbyName('sequencialU').Value := sequencial; detalhesU.FieldbyName('sequencialBase').Value := sequencial - 1; detalhesU.FieldbyName('dtpgto').Value := datetostr(data); detalhesU.FieldbyName('vr').Value := valor; //detalhes.FieldbyName('formapgto').Value := valor; detalhesU.Post; detalhesU.ExecSQL; Inc(i); pb.Position := pb.Position + 1; Application.ProcessMessages; Next; pb.Visible := false; //Label1.Caption := 'Total de registros importados: '+ IntToStr(AdoQuery1.Recordcount); soma; end; end; end;

Prezados colegas, finalmente recebi o arquivo retorno da Caixa com vários pagamentos. E não estou conseguindo entender a ligação de segmentos. São dois segmentos principais: O segmento T vem o numero do doc. e a data de vencimento O segmento U vem o valor e a data de pagamento do documento acima. Supondo que venham 10 pagamentos tem que haver algo em comum nessses segmentos. No segmento U não existe um campo que se referencie ao Segmento T, daí não tenho como saber quem é quem. Como o arquivo não caberia aqui, não o coloquei, talvez fosse mais facil entender meu problema esse arquivo vem em sequencia, como abaixo. 1040001300001T 1040001300002U 1040001300003T 1040001300004U No exemplo são 2 pagamentos e 2 detalhes. Uma idéia que me ocorreu e me fez editar o post é que no Segmento U posso colocar no campo de relacionamento que ele será o sequencial U menos 1, fazendo assim a junção de ambos. Abaixo segue o código que o Jhonas me ajudou para o Segmento U. Como posso alterar para obter essa solução? Desde já agradeço procedure TFrmArquivoRetorno.BitBtn8Click(Sender: TObject); var fArq: TextFile; Caminho: string; Linha: string; mTexto: TStringList; i: integer; valor1, valor2 : string; somatotal : Real; somatotal2 : String; dat :string; data :TDate; Valor : real; numero : integer; lote: integer; begin detalhesu.open; if Edit1.Text = '' then Begin statusbar1.Panels[0].Text := ' Selecione o arquivo retorno!'; BitBtn4.setfocus; exit; End; Caminho := Edit1.Text; AssignFile(fArq, Caminho); ReSet(fArq); mTexto := TStringList.Create; try mTexto.LoadFromFile(Caminho); pb.Max := mTexto.Count - 1; i := 0; finally mTexto.Free; end; while not Eof(fArq) do begin Readln(farq, linha); //Caption := 'Lendo Linha: ' + IntToStr(i) + ' de: ' + IntToStr(pb.Max); if pos('U',linha) = 14 then Begin dat := copy(linha,138,8); insert('/',dat,3); insert('/',dat,6); data := strtodate(dat); lote := strtoint(copy(linha,4,4)); valor := (strtofloat(copy(linha,93,15))/100); numero := strtoint(copy(linha,143,6)); detalhesU.ExecSQL; detalhesU.Append; detalhesU.edit; detalhesU.FieldbyName('loteu').Value := lote; detalhesU.FieldbyName('dtpgto').Value := datetostr(data); detalhesU.FieldbyName('vr').Value := valor; //detalhes.FieldbyName('formapgto').Value := valor; detalhesU.Post; detalhesU.ExecSQL; Inc(i); pb.Position := pb.Position + 1; Application.ProcessMessages; Next; pb.Visible := false; //Label1.Caption := 'Total de registros importados: '+ IntToStr(AdoQuery1.Recordcount); soma; end; end; end;