Ir para conteúdo
Fórum Script Brasil

Andre_Luiz_S

Membros
  • Total de itens

    17
  • Registro em

  • Última visita

Tudo que Andre_Luiz_S postou

  1. Alyson, boa noite. não tem a função xcopy no visual basic 6. Obrigado pela atenção, André Luiz
  2. Olá, estou tentando copiar um banco de dados access de uma pasta para outra, uma computador para outro em rede, só que o banco origem está aberto por outro programa no computador origem e não pode ser fechado. Alguém saberia me dizer como posso fazer isto sem receber o aviso de permissão negada. estou usando a instrução FILECOPY. Obrigado.
  3. Olá, estou encontrando um problema ao tentar criar uma nova conexão ao banco de dados mysql para o Crystal report. Já criei a fonte de dados ODBC, mas quanto tento criar a conexão no Crystal Report o banco retorna sem as tabelas. Alguém poderia me auxiliar, já reinstalei o mysql server, o driver odbc para mysql e nada. Obrigado,
  4. Ricardo Carvalho, a configuração da máquina é outra e quando tento abrir o projeto pelo VB ele fala que o componente mscomctl não foi encontrado em uma determinada pasta. Já coloquei este componente na referida pasta e o registrei mas mesmo assim continua dando erro. Obrigado, André
  5. Olá, Estou enfrentando o seguinte problema, desenvolvi um sistema em um computador e preciso transferi-lo para outro só que quando abro o projeto em outra máquina ele perde a referência do mscomctl.ocx (listview) e também de alguns comandos como o mid$ e date. Alguém sabe como posso fazer esta transferência sem problemas? Pois o programa compilado está apresentando um erro na nova máquina e na inicial ele funciona perfeitamente, desta forma preciso trabalhar direto no projeto neste computador só que enfrente os problemas acima. Obrigado, André Luis
  6. Olá, como faço para salvar uma imagem em um banco de dados e depois quando precisar recupero a mesma para uma pasta do meu computador. No visual basic 6 uso o fileget e o fileput, mas como faço para fazer isto no vs 2012. com o código que utilizo ele retorna imagem ilegíveis (corrompidas) pelo sistema. Obrigado, André
  7. <script type='text/javascript'>window.mod_pagespeed_start = Number(new Date());</script> Jhonas, Obrigado, agora funcionou normalmente. andré
  8. <script type='text/javascript'>window.mod_pagespeed_start = Number(new Date());</script> Jhonas, O código passou sem dar erro, entretanto o visualizador não abre.
  9. Ola, estou tentando abrir uma imagem usando o visualizador de imagens do windows através do visual basic 6 usando o seguinte código Shell ("C:\Windows\System32\shimgvw.dll & " " & "D:\clinica\fotosin\preview\foto.jpg"), vbMaximizedFocus só que dá erro 5 (invalide procedure call or argument). alguém poderia me ajudar a resolver este problema Obrigado, André
  10. Ola. Uso o seguinte código para criar controles textbox em tempo de execução. onde x é o index do controle pois poderá ser criado até 20 controles textbox, de 1 a 5. Load Text1(x) Text1(x).Top = Text1(x - 1).Top + 285 Text1(x).Left = 60 Text1(x).BackColor = xcolarx Text1(x).Text = tbcadastro!idcod Text1(x).Visible = True If tbcadastro!suspenso = True Then Text1(x).Enabled = False Text1(x).BackColor = vbRed Text1(x).ForeColor = vbWhite Else Text1(x).Enabled = True Text1(x).BackColor = xcolarx Text1(x).ForeColor = vbBlack End If depois uso o codigo abaixo para excluir os controles For x = 1 To (numerojogadores1 - 1) Unload Text1(x) Unload Text2(x) Unload Text3(x) Unload Text4(x) Unload Text5(x) Next x o problema é que quando tento limpar através de um click de um combobox ele dá erro 365 "unable to unlioad with this context". porém se eu criar um botão com a rotina acima ele a executa sem erro, entretanto se eu chamo a rotina "command3_click" através do click no combo, ela volta a dar erro. alquem poderia me auxiliar neste problema. Obrigado.
  11. Olá, Tenho um relatório com 2 subrelatórios, os quais apresentam dados distintos. Questão. Como faço o relacionamento do relatório com os subrelatórios para que o nome do relatório só aparece quando houver dados a ser informados em um dos dois subrelatórios. são três tabelas. relatório principal Nome do Aluno. subrelatório 1 - Data, Hora, subrelatório 2 - Data, Hora, as tabelas são relacionadas pelo campo idaluno dos subrelatorios e ambos as tabelas dos subrelatórios tem campos bolean os quais devem estar ativos para que o dados aparecem no subrelatório. Espero ter sido claro. atenciosamente.
  12. Ola, tenho o seguinte problema. Preciso criar no excel várias planilhas e cada uma delas deve conter um nome diferente e de acordo com a pessoa que "proprietaria da planilha", exemplo, planilha com dados do Roberto Carlos de Oliveira, o nome da planilha deverá ser Roberto. Os dados serã todos preenchidos via Visual Basic. o problema é que não estou conseguindo renomear a planilha. todos os outros dados estão ok. uso o seguintes códigos. de referência Public xlapp As Excel.Application Public xlbook As Excel.Workbook Public xlsheet As Excel.Worksheet de entrada Set xlapp = CreateObject("Excel.application") Set xlbook = xlapp.Workbooks.Open(INI_Parametro3 & "\" & arquivo) para copiar a planilha. tenho uma planilha modelo já pronta e todas as cópias são apartir dela. Set xlsheet = xlbook.Worksheets("mod") xlbook.Sheets(1).Copy After:=xlbook.Sheets(xlbook.Sheets.Count) aqui entra o problema, não consigo renomear a planilha recem criada. Algum poderia me ajudar, porém não gostaria de mudar as referêcias e a entrada, pois o programa já está pronto e só falta poder renomear a planilha para terminar. Obrigado.
  13. Ola, estou tentando criar uma tabela segundo o modelo da imagem em anexo. e gostaria de mais sugestões de como montar a sua estrutura. até o momento tenho duas opções uma e criar seis tabela uma para cada dia da semana e outra criar oito tabelas. Alquem teria uma solução mais prática pois tenho que preencher 96 campos de uma documento, sendo que para cada dia da semana/ordem eu tenho 16 conjuntos de dados por exemplo: segunda, ordem 1, valor 5, referencia 3t terça, ordem 8, valor 3, refeência 2t. desde já agredeço.
  14. Ola, estou tentando declarar uma biblioteca da seguinte forma 'Declare Function addZIP Lib "' & INI_Parametro3 & '" () As Integer onde INI_Parametro3 é o endereço completo do arquivo AZIP32.dll, porém o parametro não é lido como o endereço. Pergunto. Tem alguma forma de fazer ele funcionar corretamente?
  15. NO site da graule tem, ou pelo menos tinha uma projeto pronto. de uma olhada em http://www.griaulebiometrics.com/page/pt-br/downloads
  16. ola, deste jeito da certo. 'digite no modulo Public xlapp As excel.Application Public xlbook As excel.Workbook Public xlsheet As excel.Worksheet 'para abrir ou cria o arquvo Set xlapp = CreateObject("Excel.application") 'esta linha abre um arquivo existente Set xlbook = xlapp.Workbooks.Open(caminho & "nome do arquivo.xls") 'utiliza o plan1 Set xlsheet = xlbook.Worksheets(1) 'xlsheet.Cells("linha","coluna") xlsheet.Cells(8, 1).Value = 'valor a ser inserido na celula xlsheet.Cells(8, 5).Value = 'valor a ser inserido na celula xlsheet.Cells(8, 16).Value = 'valor a ser inserido na celula 'para que abra sozinho, depois de carregar os dados e liberar a memoria use. xlbook.Application.Visible = True xlbook.Windows(1).Visible = True Set xlbook = Nothing Set xlapp = Nothing espero ter ajudado, qualquer duvida me manda um e-mail
×
×
  • Criar Novo...