Bom dia a Todos, Estou com uma coisa meio chata que me importuna. Toda vez que preciso fazer um acesso a base via sql preciso fazer o seguinte, por exemplo: Try qry:=TIBQuery.Create(self); qry.DataBase:=FPrincipal.DBase; qry.sql.add('select gen_id(GEN'+copy(Self.Name,2,length (Self.Name))+', 0) from RDB$Generators where UPPER (RDB$GENERATOR_NAME) = ''GEN'+AnsiUpperCase(copy(Self.Name,2,length (Self.Name)))+''''); qry.open; if (TForm(self).FindComponent('SisCod') <> nil) and (SBase.State in [dsInsert, dsEdit]) then SisCod.Text := IntToStr(qry.Fields[0].AsInteger+1) else MessageDlg('Houve problemas ao criar o código do Sistema.',mterror,[mbok],0); Finally Qry.Free; end;
Eu gostaria de fazer algo que apenas chamasse uma função de minha biblioteca tools. Exemplo Na biblioteca está : function CriaQuery(qry:TIBQuery;AOwner:TComponent):TIBQuery; begin Qry:=TIBQuery.Create(AOwner); Qry.Database:=Menu.FPrincipal.DBase; end; Eu quero chamá-la: tools.CriaQuery(qry,self) e ela faz todo o trabalho que estou fazendo no braço a cada acesso. Se isso funcionasse bastaria eu fazer o seguinte: tools.CriaQuery(qry,self); qry.sql.add('instrução'); qry.open; if not fields[0].IsNull then patati patata... qry.free; Não estou conseguindo. Alguém pode me ajudar neste "pobrema" Desde já fico grato por qq ajuda. Alexandre Macedo -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html