Progr'amador

pode sim, mas só com o mone da máquina mesmo, sem usar todo aquele endereço: \\server\wiimob\dados\base.... no caso você usaria somente server

Utilize o MySQLFront: http://www.4shared.com/file/XW-yeNdT/MysqlFront.htm utilizando o Zeus, se for rodar local você vai usar o HostName: LocalHost e se for em rede é só usar o IP da maquina. Abs. Progr'amador

Olá MagoDanger, Realmente o Access não é uma base confiavel. Eu mesmo já tive problema com um banco access que corrompeu do nada, e deu muito trabalho pra recuperar os dados O processo de migração requer alguns cuidados, e você pode encontrar algumas incompatibilidades na estrutura do SQL, mas, nada que num possa ser reslvido facilmente, até porque no MySQL temos mais opções. Abs. Progr'amador

Oi Jhonas, eu viajei na maionese, esse é um algoritimo próprio do CNJ (Conselho Nacional de Justiça), e me disserão que eu posso solicitar junto ao CNJ. Abs. Progr'amador

Olá pessoal, já fucei já NET mas não encontrei nada que pudesse suprir minhas necessidades. Tenho uma sequência numerica de 30 caracteres, e preciso gerar o DV (Dígito Verificador) dessa numeração com 2 digitos, que fique dessa forma: 000000000000000000000000000000-XX Abs. Progr'amador.

Olá, qual banco você ta usando?

É realmente, mas ae só você ir adicionando conforme a necessidade. Tem gente que simplesmente copia tudo quem tem no uses de um Form comum. Eu particalamente já fiz esse tipo de programação, adiciono o código necessário, ae vou debugando conforme o programa vai pedindo eu vou adicionando as units. É o mal costume de ex-moderador :D Na verdade, quem entra num fórum desse só pra ajudar outras pessoas, tenho certeza que é porque realmente gosta do que faz, e Você é uma dessas pessoas, tenho visto que tens muito conhecimento no assunto. Assim como o Paulo eu tambem passei muito tempo sem programar, e agora voltei a trabalhar na área. Muita coisa tenho apredido aqui... na verdade nunca fiz curso de Delphi, meu primeiro professor em Delphi foi a SB. Abs. Progr'amador

Olá, pode fazer assim: SELECT id as idjogo, (SELECT nome FROM time WHERE id=timeA) as Time1, (SELECT nome FROM time WHERE id=timeB) as Time2, (SELECT nome FROM campeonato WHERE id=idcamp) as Campeonato FROM jogo ORDER BY id Abs. Progr'amador

Muito modesto esse "menino".... B) Ae Paulo, você é um grande programador, tenho acompanhado seus tópicos desde que entrei na SB em 2004. na verdade são cuidados simples, como: - não apagar nenhuma linha que seja necessária pra inicialização do sistema; - implemetar seu código no local certo; - inicializar os forms no momento certo; - etc.... Abs. Progr'amador

Olá, tenta assim: CREATE PROCEDURE testarVendedor (IN idvendedor INT) AS BEGIN SELECT nome_vendedor FROM vendedor WHERE id_vendedor=idvendedor; END; Abs. Progr'amador

Olá, qual geranciador de banco você ta usando acessar o Firebird? geralmente esses gerenciadores tem opção de importar dados externos. Abs. Progr'amador

Olá Marcelo, Tem varias formas, ai vai uma bem simples: select distinct t.cidade, (select count(sexo) from Tabela1 where sexo='M' and cidade = t.cidade) as M, (select count(sexo) from Tabela1 where sexo='F' and cidade = t.cidade) as F from Tabela1 t Abs. Progr'amador

Olá Paulo, Estranho não funcionar, se ele entra no IF deveria funcionar, tenta fazer o segunte: Adicione uma variavel tipo BOOLEAN, exemplo: procedure TfrmPrincipalDD.FormCreate(Sender: TObject); var encerra : boolean; NumeroDeVezes:Integer; DataInstall:String; //As variáveis abaixo são para os arquivos embutidos dentro //do arquivo de recursos. RS1,RS2,RS3,RS4,RS5: TResourceStream; RS6,RS7:TResourceStream;//Para as setas ampliar e retrair. RS8:TResourceStream;//Para a dll do BDE Caminho1, Caminho2, Caminho3, Caminho4, Caminho5: String; Caminho6,Caminho7:String;//Para as setas ampliar e retrair. Caminho8:String;//Para a dll do BDE. //Temp, Platform , Version : String;//Variáveis para descobrir a versão do windows //osInfo : TOSVersionInfo;//Variável para descobrir a versão do windows //MensagemVersao: String; begin encerra := False; ///// coloque já no inicio do Create ... bla ... bla ... bla If platform = 'WINDOWS 7' then begin MensagemVersao:= 'O programa Delphi Dicas verificou que você está com o '+Platform+' instalado. '+#13+ 'Neste caso será necessário na primeira vez que usar o programa, que você o faça como administrador. '+ #13+ 'Para isso, clique no ícone do programa com o botão direito do mouse e escolha abrir como admnistrador. '; Messagebox(0,PChar(MensagemVersao),'VERSÃO DO WINDOWS',MB_IconInformation); encerra := True; end; If platform = 'WINDOWS VISTA' then begin MensagemVersao:= 'O programa Delphi Dicas verificou que você está com o '+Platform+' instalado. '+#13+ 'Neste caso será necessário na primeira vez que usar o programa, que você o faça como administrador. '+ #13+ 'Para isso, clique no ícone do programa com o botão direito do mouse e escolha abrir como admnistrador. '; Messagebox(0,PChar(MensagemVersao),'VERSÃO DO WINDOWS',MB_IconInformation); encerra := True; end; // e antes de execultar o restante do código coque: if encerra then Application.Terminate else begin //execulta o restante do código .... bla .... bla .... bla end; end; algo desse tipo...

sua tabela possue indices? talvez seria apenas o caso de você criar indices pros campos que você faz a consulta. Abs. Progr'amador

Olá Paulo, não deveria executar mais nada após o aplication.terminate; se possível, posta ae eu código. ---- Eu já fiz algo parecido e simplesmente usei um If no MessageBox... Abs. Progr'amador

Olá Pedrohms Posta seu código pra que possamos entender melhor. mas, tenta fazer algo tipo: StrToInt(ComboBox1.text) abs. Progr'amador

você já tentou usar uma TQuery em vez do TTable? tipo: Query1.Prepare; Query1.SQL.Clear; Query1.SQL.Add('Insert Into NomeTabela (saldoqtd) values ('+''''+saldoqtd+''''+')'); Query1.ExecSql; Query1.Unprepare; ou passando parametro: Query1.Prepare; Query1.SQL.Clear; Query1.SQL.Add('Insert Into NomeTabela (saldoqtd) values (:saldoqtd)'); Query1.ParamByName('saldoqtd').Value := saldoqtd; Query1.ExecSql; Query1.Unprepare; e claro, verificando os outros campos da tabela. Abs. Progr'amador

Olá mauror, realmente esse seu código ta estranho. primeiro que, se você já tem um registro, e ta execultando o insert, por mais que não dê erro, esse valor não será alterado e sim será criado um novo registro. Pra que você altere esse valor já existente, você deve usar o comando UPDATE atraves de uma TQuery Abs. Progr'amador

Olá MICHELI_MARTINS ao invés de duas utilize quatro aspas simples entre essa / sql.Clear; sql.Add(' select distinct substring(convert(char,year(data)),1,4)+''/''+substring(convert(char,month(data)),1,2) as mesano, '); Abs. Progr'amador

Olá Paulo Nobre, num seria melhor você chamar o execultavel (setup do BDE) dentro do seu programa usando o WinExec? Abs. Progr'amador

Olá, Vê se isso pode te ajudar: http://pt.wikibooks.org/wiki/PostgreSQL_Pr...iggers/Triggers Abs. Progr'amador

Olá LucAlucard na verdade não é da SysUtils e sim da StrUtils exemplo: uses StrUtils; case AnsiIndexStr(Edit1.Text, ['texto1', 'texto2', 'texto3']) of 0 : ShowMessage('texto1'); 1 : ShowMessage('texto2'); 2 : ShowMessage('texto3'); -1 : ShowMessage('nehuma das opções'); end; Abs. Progr'amador. ;)

Caro colega, valeu.... depois que eu postei pensei e usei esse método. só que pensei que teria uma outra forma mais adequada. fiquei muito tempo sem programar.... to voltando a ativa. ;) valeu abs Progr'amador

Olá eu to usando a função abaixo pra limpar todos os edits do form for i := 0 to ComponentCount -1 do if Components[i] is TEdit then TEdit(Components[i]).Clear; só que agora to precisando de algo mais. Nesse form tenho um PageControl com 3 TabSheets (TabSheet1, TabSheet2, TabSheet3) e eu queria que essa função limpasse apenas os edits do um determinado TabSheet. Abs Progr'amador

Olá pessoal, eu já fiz uma pequena pesquisa na Net e ainda não encontrei nada que supra minha necessidade. é assim, preciso de uma função que retorne uma data assim: exemplo: 13/05/2011 retorne mais ou menos assim: AOS TREZE DIAS DO MÊS DE MAIO DO ANO DE DOIS MIL E ONZE Grato Progr'amador