-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
Oi .. desculpe a demora em responder Não precisa ser necessariamente um componente Memo ( Delphi ) No delphi voce consegue ler o HTML e fazer outras coisas Se voce consegue ler o HTML, veja se consegue tambem recuperar o texto da tag Veja se esses links ajudam .... https://www.google.com.br/search?q=comandos+html+texto&ei=c2_cYLWXAuDD5OUP9pGq4AQ&o que=comandos++html&gs_lcp=Cgdnd3Mtd2l6EAEYCDICCAAyAggAMgYIABAHEB4yAggAMgYIABAHEB4yBggAEAcQHjICCAAyBggAEAcQHjICCAAyBggAEAcQHjoHCAAQRxCwAzoECAAQDUoECEEYAFDndVi-gQFg-qwBaAJwAngAgAG4AYgBsguSAQQwLjEwmAEAoAEBqgEHZ3dzLXdpesgBCMABAQ&sclient=gws-wiz abraço
-
Pago por ajuda em código de C
pergunta respondeu ao O programador perdido de Jhonas em Grupo de Estudos
Nesse link vai encontrar a lógica de como programar um sistema de cadastro de clientes ( vai ser o mesmo para a loja ) http://www.facom.ufu.br/~albertini/prossiga/index.php/Sistema_de_cadastro_de_clientes outros links com exemplos https://www.google.com.br/search?q=programa+cadastro+de+loja+gratis+em+c%2B%2B&ei=sZrMYNvwH4ur1sQP1rS8qAQ&o que=programa+cadastro+de+loja+gratis+em+c%2B%2B&gs_lcp=Cgdnd3Mtd2l6EAM6BwgAEEcQsAM6CAghEBYQHRAeOgUIIRCgAToHCCEQChCgAVCP7gFY6Y4CYMGVAmgBcAJ4AIABmwKIAaYLkgEFMC43LjGYAQCgAQGqAQdnd3Mtd2l6yAEIwAEB&sclient=gws-wiz&ved=0ahUKEwibjb2boKHxAhWLlZUCHVYaD0UQ4dUDCA0&uact=5 https://www.google.com.br/search?q=programa+de+cadastro+de+loja+c%2B%2B&source=hp&ei=oZnMYJSXDrrL1sQPueGH8Ac&iflsig=AINFCbYAAAAAYMynsUyFPuhpAlP4gPLrLaFLBp2ylJtd&o que=programa+de+cadastro+de+loja+c%2B%2B&gs_lcp=Cgdnd3Mtd2l6EAM6CAguELEDEJMCOggIABCxAxCDAToCCC46BQgAELEDOggILhCxAxCDAToCCAA6CwgAELEDEIMBEMkDOgUIABCSAzoFCC4QsQM6BQgAEMkDOgYIABAWEB46CAghEBYQHRAeOgUIIRCgAVCrGljkxQFgic4BaAJwAHgAgAGVAogBuiaSAQYwLjMyLjGYAQCgAQGqAQdnd3Mtd2l6sAEA&sclient=gws-wiz&ved=0ahUKEwjU69GZn6HxAhW6pZUCHbnwAX4Q4dUDCAY&uact=5 abraço -
Use o MYSQL Front para verificar o seu banco de dados https://www.google.com.br/search?q=mysql+front&source=hp&ei=TlPKYISpEt7U1sQP4bWk8Ao&iflsig=AINFCbYAAAAAYMphXgn48PZxOhuJ0xaWyZW7gem_KAlA&o que=mysql+front&gs_lcp=Cgdnd3Mtd2l6EAMyAggAMgIIADICCAAyAggAMgIIADICCAAyAggAMgIIADoICAAQsQMQgwE6CwguELEDEMcBEKMCOgUIABCxAzoFCC4QsQM6AgguUIcZWM0zYNQ8aAFwAHgAgAGZAYgBwwySAQQwLjExmAEAoAEBqgEHZ3dzLXdperABAA&sclient=gws-wiz&ved=0ahUKEwiEiJbt85zxAhVeqpUCHeEaCa4Q4dUDCAY&uact=5 abraço
-
Amigo, caso não tenha percebido, as instruções tambem se aplicam ao MYSQL Tem outros links que voce pode ver https://www.google.com.br/search?q=bloqueio+de+transações+mysql&source=hp&ei=qkvHYKfSE7vT1sQPip-nMA&iflsig=AINFCbYAAAAAYMdZunUbOrNRi8XBKf7PlAwP-ZIIb59C&o que=bloqueio+de+transações+mysql&gs_lcp=Cgdnd3Mtd2l6EAM6CwguELEDEIMBEJMCOggILhCxAxCDAToCCC46BQgAELEDOgsIABCxAxDHARCjAjoICAAQsQMQgwE6CwgAELEDEMcBEK8BOgIIADoFCC4QsQM6BQgAEMkDOgQIABAKUL8PWMFiYJxpaABwAHgAgAGeAYgB0RySAQQwLjI4mAEAoAEBqgEHZ3dzLXdpeg&sclient=gws-wiz&ved=0ahUKEwinz76SkJfxAhW7qZUCHYrPCQYQ4dUDCAY&uact=5 abraço
-
Criar uma consulta em que seja retornado zero se o registro não existir.
pergunta respondeu ao Jorge Sampaio de Jhonas em MySQL
Use o MysqlFront ... vai te ajudar muito nessa tarefa https://www.google.com.br/search?q=mysqlfront&ei=JYTGYNTUDozY1sQPob-22Aw&o que=mysqlf&gs_lcp=Cgdnd3Mtd2l6EAEYADICCAAyAggAMgQIABAKMgIIADICCAAyBggAEAoQHjIGCAAQChAeMgQIABAeMgYIABAKEB4yBAgAEB46BwgAEEcQsAM6BAgAEEM6BQgAELEDOggIABCxAxCDAToLCAAQsQMQxwEQowI6BQguELEDOg4IABCxAxCDARDHARCvAToCCC46BwgAELEDEENQurcTWOXWE2CWiBRoAXACeACAAdoCiAGzCpIBBzAuNS4xLjGYAQCgAQGqAQdnd3Mtd2l6yAEIwAEB&sclient=gws-wiz abraço -
alterar permissão ou previlégio de um usuario no mysql só complica. o certo é através do código do seu programa, fazer isso para cada usuário abraço
-
Veja nesses links https://www.google.com.br/search?q=relação+entre+tabelas+mysql++phpmyadmin&source=hp&ei=eIPGYM6UJ6bX1sQPoPiS-A4&iflsig=AINFCbYAAAAAYMaRiKlPXD0Nyfl-aGOKyHCiiDqvQE_9&o que=relação+entre+tabelas+mysql++phpmyadmin&gs_lcp=Cgdnd3Mtd2l6EAM6CwguELEDEIMBEJMCOggIABCxAxCDAToLCAAQsQMQxwEQowI6BQgAELEDOggILhCxAxCDAToCCC46BQguELEDOgIIADoJCAAQChBGEPkBOgQIABAKOgYIABAKEB46CAgAEAUQChAeOgYIABAFEB46CggAELEDEEYQ-QE6BggAEBYQHlC_C1iZWGDNYWgDcAB4AYABqwOIAfIjkgEIMC4zMC40LTGYAQCgAQGgAQKqAQdnd3Mtd2l6sAEA&sclient=gws-wiz&ved=0ahUKEwjOsN6c0ZXxAhWmq5UCHSC8BO8Q4dUDCAY&uact=5 abraço
-
Verifique quais são os valores passados WHERE cpf=@cpf
-
Veja se isso te ajuda https://docs.microsoft.com/pt-br/sql/relational-databases/sql-server-transaction-locking-and-row-versioning-guide?view=sql-server-ver15 abraço
-
Veja nesse Link https://www.ti-enxame.com/pt/mysql/como-alterar-porta-padrão-do-mysql-de-3306-para-3360/1051945424/ abraço
-
(Resolvido) SQLite com Zeus problemas com acentuação
pergunta respondeu ao Progr'amador de Jhonas em Delphi, Kylix
tente ZConnection1.Properties.Add('Codepage=WIN1252'); ou veja nesses links https://www.google.com.br/search?q=ZConnection1.Porperties.Add('Codepage%3DWIN1252')%3B&source=hp&ei=OuO3YPkW6LLk5Q-r66WgBg&iflsig=AINFCbYAAAAAYLfxSm9BNQI1zJ2KHKerEUWXvFa754dT&o que=ZConnection1.Porperties.Add('Codepage%3DWIN1252')%3B&gs_lcp=Cgdnd3Mtd2l6EANQzgpYzgpg4w5oAXAAeACAAagCiAGoApIBAzItMZgBAKABAqABAaoBB2d3cy13aXqwAQA&sclient=gws-wiz&ved=0ahUKEwj5m8-33vnwAhVoGbkGHat1CWQQ4dUDCAY&uact=5 abraço- 1 resposta
-
ok... nesse caso voce deve trocar o software da balança Veja nesses links https://www.google.com.br/search?q=balança+prix+9094+plus+software+download&source=hp&ei=bZCxYOaMNdPX5OUPg8S7yAg&iflsig=AINFCbYAAAAAYLGefcTtrSfy3TDqVQ-GIV-gUfZKqsFe&o que=balança+prix+9094+plus+sof&gs_lcp=Cgdnd3Mtd2l6EAEYAjIHCCEQChCgATIHCCEQChCgATIHCCEQChCgAToCCAA6BggAEBYQHjoFCCEQoAFQsRlYvUVg3ltoAXAAeACAAdABiAHMBpIBBTAuNC4xmAEAoAECoAEBqgEHZ3dzLXdperABAA&sclient=gws-wiz
-
veja os links https://www.google.com.br/search?q=erro+uuuu+balança+prix+9094+plus&source=hp&ei=uaWrYKnACpW-5OUP35ulgA0&iflsig=AINFCbYAAAAAYKuzyR1X9AMJFqfTcqnPNHHiDKpQUGKI&o que=erro+uuuu+balança+prix+9094+plus&gs_lcp=Cgdnd3Mtd2l6EAM6AggAOgsIABCxAxDHARCjAjoICAAQsQMQgwE6BQgAELEDOggILhCxAxCTAjoICC4QsQMQgwE6BQguELEDOgIILjoGCAAQFhAeOgUIIRCgAToHCCEQChCgAVDZFVj9iQFg3ZkBaARwAHgAgAGtAogBqw6SAQgwLjExLjAuMZgBAKABAaABAqoBB2d3cy13aXqwAQA&sclient=gws-wiz&ved=0ahUKEwjpgPOLsuLwAhUVH7kGHd9NCdAQ4dUDCAY&uact=5 OBS: Referente ao erro uuuu DISPLAY DE PESO5 dígitos. Peso em quilograma. Indica peso bruto ou líquido. Se houver tara memorizada (indicador de líquido aceso), o display indicará o peso líquido. Se não houver tara memo-rizada (indicador de líquido apagado), o display indicará o peso bruto. UUUU no display indica peso inferior a 1 incremento abaixo do zero. Apagamento do display indica peso superior a 5 incrementos acima da capacidade Veja pagina 10 do Manual da balança
-
(Resolvido) Como importar dados do excel para o delphi/firebird
pergunta respondeu ao petim214 de Jhonas em Delphi, Kylix
Voce quer gravar os dados do excel em uma tabela Firebird ? quantas colunas voce tem na planilha do excel ? Obs: Nesses links tem a resposta para importar a planilha para um ClientDataSet diretamente .... não precisa usar StringGrid https://www.google.com/search?q=importar+excel+para+clientdataset+delphi&client=firefox-b-e&ei=QA2pYN3vDrLN5OUP5cGauAM&o que=excel+para+delphi&gs_lcp=Cgdnd3Mtd2l6EAEYBzIGCAAQFhAeMgYIABAWEB4yBggAEBYQHjIGCAAQFhAeMgYIABAWEB4yBggAEBYQHjIGCAAQFhAeMgYIABAWEB4yBggAEBYQHjIGCAAQFhAeOgcIABBHELADOgIIADoLCAAQsQMQxwEQowI6CAgAELEDEIMBOggILhCxAxCDAToFCAAQsQM6BAgAEEM6AgguOgcIABCxAxBDOgQIABAKOgQIABATOggIABAWEB4QE1D98xhYz7gZYMGdGmgCcAJ4AIABlwSIAfUWkgEKMC4xNi4xLjUtMZgBAKABAaoBB2d3cy13aXrIAQXAAQE&sclient=gws-wiz -
(Resolvido) Como importar dados do excel para o delphi/firebird
pergunta respondeu ao petim214 de Jhonas em Delphi, Kylix
Vai encontrar a solução em um dos links https://www.google.com.br/search?q=importar+dados+excel+para+firebird+delphi&ei=jgepYOj1DcSq1sQP1Na2oAQ&o que=importar+tabela+excel+para+firebird&gs_lcp=Cgdnd3Mtd2l6EAEYAjIHCAAQRxCwAzIHCAAQRxCwAzIHCAAQRxCwAzIHCAAQRxCwAzIHCAAQRxCwAzIHCAAQRxCwAzIHCAAQRxCwAzIHCAAQRxCwA1AAWABgxeIBaAFwAngAgAHLAYgBywGSAQMyLTGYAQCqAQdnd3Mtd2l6yAEIwAEB&sclient=gws-wiz -
Veja nesses links https://www.google.com.br/search?q=auditoria+de+banco+de+dados+mysql+download&source=hp&ei=jrOmYOzML9jb1sQP-7OA2AI&iflsig=AINFCbYAAAAAYKbBnuqbJauL6qOcjNXlXLXdBqNavqZ9&o que=auditoria+de+banco+de+dados+mysql&gs_lcp=Cgdnd3Mtd2l6EAEYAzIICCEQFhAdEB4yCAghEBYQHRAeMggIIRAWEB0QHjIICCEQFhAdEB4yCAghEBYQHRAeMggIIRAWEB0QHjIICCEQFhAdEB46CwgAELEDEMcBEKMCOgUIABCxAzoCCAA6CAguELEDEIMBOggIABCxAxCDAToCCC46BQguELEDOggIABDHARCvAToGCAAQFhAeOgUIIRCgAToHCCEQChCgAVCwF1ikVGCnZ2gBcAB4AIAB7AGIAZEhkgEGMC4zMi4xmAEAoAEBqgEHZ3dzLXdperABAA&sclient=gws-wiz https://www.google.com.br/search?q=auditoria+de+banco+de+dados+mysql+gratuito&ei=2rOmYJSrLOje1sQPiNiysA0&o que=auditoria+de+banco+de+dados+mysql&gs_lcp=Cgdnd3Mtd2l6EAEYADIICCEQFhAdEB4yCAghEBYQHRAeMggIIRAWEB0QHjIICCEQFhAdEB4yCAghEBYQHRAeMggIIRAWEB0QHjIICCEQFhAdEB46BwgAEEcQsANQiI8DWIiPA2ChqgNoAnACeACAAf8BiAGcA5IBBTAuMS4xmAEAoAEBqgEHZ3dzLXdpesgBCMABAQ&sclient=gws-wiz https://www.google.com.br/search?q=auditoria+de+banco+de+dados+mysql+pronto&ei=ErSmYLytL5LY1sQPm6KGsAk&o que=auditoria+de+banco+de+dados+mysql+&gs_lcp=Cgdnd3Mtd2l6EAEYBDIICCEQFhAdEB4yCAghEBYQHRAeMggIIRAWEB0QHjIICCEQFhAdEB4yCAghEBYQHRAeMggIIRAWEB0QHjIICCEQFhAdEB46BwgAEEcQsANQ1OUBWNTlAWCOgwJoAXACeACAAcwBiAHbApIBBTAuMS4xmAEAoAEBqgEHZ3dzLXdpesgBCMABAQ&sclient=gws-wiz Voce vai encontrar o que procura em um deles abraço
-
(Resolvido)(Delphi) Percorrer o ClientDataSet até o Pointer do BookMark que foi salvo
pergunta respondeu ao LockSpy de Jhonas em Delphi, Kylix
ok.. se entendi direito, voce quer copiar os dados da tabela clientes para a tabela pessoas. voce não precisa deletar os registros da tabela pessoas ... bastara apenas que, durante a leitura da tabela clientes, faça uma comparação de registros entre essa tabela e a tabela pessoas. se o registro da tabela clientes, já existir na tabela pessoas, não faz nada e vai para a leitura do proximo registro. se o registro da tabela clientes não existir na tabela pessoas, então voce copia ( insere ) o registro na tabela pessoas Exemplo baseado no seu relato: Nesse caso voce deve fazer uso do comando Select no componente de acesso a tabela exemplo: Select * from Pessoas where Codigo = :NCod procedure TForm1.Button1Click(Sender: TObject); var X : integer; begin if MessageDlg('DESEJA ATUALIZAR A LISTA DE PESSOAS ?' ,mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Clientes.Active := false; /// componente QUERY / IBQUery CDS_Clientes.Active := false; /// componente ClientDataSet Clientes.Active := true; CDS_Clientes.Active := true; CDS_Clientes.Refresh; for x := 1 to CDS_Clientes.RecordCount do BEGIN // FAZER A PESQUISA NA TABELA PELO CODIGO Pessoas.Active := false; CDS_Pessoas.Active := false; CDS_Pessoas.Params[0].AsString := trim(CDS_ClientesCODIGO.Value); Pessoas.Active := true; CDS_Pessoas.Active := true; CDS_Pessoas.Refresh; if CDS_Pessoas.RecordCount <> 0 then begin // SE EXISTIR A PESSOA NA TABELA PESSOAS // NÃO FAZ NADA end ELSE BEGIN //// SE NÃO EXISTIR A PESSOA NA TABELA PESSOAS //// COPIAR O REGISTRO CDS_Pessoas.Last; CDS_Pessoas.Append; CDS_Pessoas.Edit; CDS_PessoasCODIGO.Value := CDS_ClientesCODIGO.Value; CDS_PessoasNOME.Value := CDS_ClientesNOME.Value; CDS_Pessoas.Post; CDS_Pessoas.ApplyUpdates(-1); CDS_Pessoas.Refresh; END; CDS_Clientes.Next; END; end; Isso é bem nais simples do que voce esta querendo fazer. abraço -
(Resolvido)(Delphi) Percorrer o ClientDataSet até o Pointer do BookMark que foi salvo
pergunta respondeu ao LockSpy de Jhonas em Delphi, Kylix
Imagine uma tabela com os registros Me mostra com um exemplo simples, como voce quer fazer com os registros Se eu entender a sua ideia posso te dar uma sugestão melhor -
(Resolvido)(Delphi) Percorrer o ClientDataSet até o Pointer do BookMark que foi salvo
pergunta respondeu ao LockSpy de Jhonas em Delphi, Kylix
Acho que o que voce esta querendo é isso VAR CONT : INTEGER; begin cont := 0; With Dbgrid1 do Begin if SelectedRows.Count = 0 then begin MessageDlg('OPERAÇÃO ANULADA! '+ #13 + #13 + 'SELECIONE OS REGISTROS.' , mtInformation, [mbOK], 0); DBGrid1.SetFocus; Exit; end; end; for cont:= 0 to Pred(DBGrid1.SelectedRows.Count) do DBGrid1.Datasource.Dataset.Bookmark:= DBGrid1.SelectedRows[cont]; end; OBS: Voce pode armazenar o ultimo RecNo do registro, quando o bookmark chegar ao fim da seleção abraço -
(Resolvido)(Delphi) Percorrer o ClientDataSet até o Pointer do BookMark que foi salvo
pergunta respondeu ao LockSpy de Jhonas em Delphi, Kylix
Voce vai encontrar a resposta em um desses links https://www.google.com.br/search?q=como+usar+bookmarks+delphi&ei=932eYNSqKeXK1sQPs5WeqAQ&o que=como+usar+bookmarks+delphi&gs_lcp=Cgdnd3Mtd2l6EANQAFgAYJETaABwAngAgAEAiAEAkgEAmAEAqgEHZ3dzLXdpesABAQ&sclient=gws-wiz&ved=0ahUKEwiUgvKspsnwAhVlpZUCHbOKB0UQ4dUDCA0&uact=5 ou https://forum.scriptbrasil.com.br/topic/188744-recuperar-bookmark/ abraço -
(Resolvido)(Delphi) Erro de 'Insufficient memory for this operation.'
pergunta respondeu ao LockSpy de Jhonas em Delphi, Kylix
É um ClientDataSet virtual O limite é seu espaço em disco ou o máximo de memoria do computador ClientDataSet da erro de 'Insufficient memory for this operation Quando no CDS é atingido o limite esse erro ocorre OBS: voce pode usar o componente ZipMaster para o delphi e compactar os arquivos abraço -
O acesso a tabela foi negado ... verifique as configurações de acesso, previlégios ou ainda o seu firewall
-
Syntax MySQL + Delphi dando erro UPDATE, WHERE
pergunta respondeu ao Sergio Feitoza de Jhonas em MySQL
' WHERE LOGIN= : NUSERX AND DATEREGISTER= : NDATE'; -
Possivel resposta para o problema https://www.diegomacedo.com.br/administracao-de-usuarios-e-privilegios-no-banco-de-dados/