Ir para conteúdo
Fórum Script Brasil

raphael_suporte

Moderadores
 Perfil  Explorar Conteúdo

  • Total de itens

    1.378

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por raphael_suporte

  1. Bate Papo

    em Esportes

    Postado

    Pois bem... vamos por parte...

    1 º Somos sim 6x campeões Brasileiro, e vou explicar o porque.

    2º Não estou surpreso com a decisão da CBF uma vez que o Flamengo ganhou 6 Títulos do que seria o campeonato Brasileiro, sendo que só 5 foram organizados por essa entidade.

    Falando sobre a decisão, de entregar a taça para o São Paulo, tem muito mais haver com política, uma vez que o Flamengo não apoiou o Candidato CBF para Presidência do C13(Clube dos 13). Porem não é uma decisão definitiva.

    link

    para entenderem melhor o campeonato de 1987 olhem esse Link

    Resumindo

    - Flamengo foi Campeão do Modulo Verde ( 1ª Divisão Criada pelo C13)

    - Sport Não terminou sua decisão do Título contra o Guarani ( Com isso não há campeão do Modulo Amarelo)

    - Após ter começado a Copa União e com Medo da FIFA a CBF diz que irá apoiar o campeonato, porem pede que haja um cruzamento entre vencedores do Modulo verde contra o Modulo Amarelo, o que foi negado pelo C13.

    - E assim foi o que de fato aconteceu

    - Considero o Flamengo 6 vezes campeão Brasileiro da seguinte Maneira (5x CBF e 1 Copa União) assim como o Vasco é tetra (3 CBF e 1 João Havelange, que por sua vez teve sua formula parecida com a Copa União, porem o cruzamento entre Chaves foi previsto antes do inicio da competição.

    por último, vejam esse post feito por um São-paulino

    http://www.ricaperrone.com.br/2010/04/aguardando-a-etica/

  2. tela de loguin , problemas!

    em .NET

    Postado

    1- Bem Vindo ao fórum

    2- Seu post será movido para a área correta, que é .Net

    3 - Isso ocorre porque a tela principal do sistema é o form Login... faça o seguinte, é o que eu costumo fazer...

    Quando iniciar seu sistema abra já o Form2, mas coloque-o como hide, e no form_load dele coloque uma chamada para o frmLogin. Caso o Login e senha sejam validados você pode fechar a tela de Login e executar um Show no Form2.

    para chamar a tela, crie uma nova instância dela e use o método "ShowDialog()"

    para sair do aplicativo pela tela do Login use

    Application.Exit()

  5. Saída

    em Novidades e Anúncios Script Brasil

    Postado

    Chefe... digo agora ex-chefe... não sempre será a chefe aqui da galera, não digo mãezona, pois não tenho total liberdade para isso.

    Fiquei triste e não acreditei quando li, porem sei como é difícil administrar o tempo com o dever do mundo real e o dever do mundo Virtual, se para mim Moderador já é muito complicado para vocês da administração, imagino...

    Andréia, espero te ver muito por aqui, apesar do pouco contato aqui mesmo últimamente e fora daqui nenhum... sempre respeitem sua opinião e consegui ver aquilo que era proposto como sendo o melhor do fórum. Isso mostra o seu valor e quem sabe um dia quando as coisas ficarem mais tranquilas você consiga voltar ao cargo de administradora do SB. Saiba que tem meu apoio para isso

  10. Duvida de consulta e tabela

    em Access

    Postado

    não conheço o procedimento de uma tabela fantasma, o que pode ter ocorrido é que o lugar da onde você baixou o exemplo, esteja solicitando que você crie a tabela ou que há algum processo dentro do próprio programa que faça isso

    poderia colocar a URL de onde foi tirado o exemplo?

  16. Inserir dados do arquivo TXT no Excel

    em Visual Basic

    Postado

    hum, creio que sua dificuldade tá em "quebras" as informações

    Para ler, e ficar mais fácil de manipular os arquivos depois vamos colocar tudo em um vetor usando o seguinte comando

    arq = "c:\arquivo.txt"
        
        n = FreeFile()
        Open arq For Input As #n
        conteúdo = Input(LOF(n), n)
        Close #n
        
        linhas = Split(conteúdo, vbCrLf)
        
        msgbox linhas 'só para exibir como ficou seu vetor

    e para inserir no execel de acordo com sua necessidade, aconselho dar uma lida nesse tutorial

  17. Procurar ficheiro numa pasta e abri-lo

    em Visual Basic

    Postado

    Bom Dia

    Eu queria fazer um programa que é o seguinte:

    Numa determinada pasta (fixa) vou colocar la videos, centenas deles.

    O programa tem um campo de pesquisa.

    Quando uma pessoa digita uma letra no campo pesquisa, ele automaticamente começa logo a pesquisar por ficheiros com aquelas letras.

    Depois é só clicar-mos no video que queremos, e ele abre ao lado o video.

    É um programa parecido com este site: www.spreadthesign.com, mas só mesmo com uma pesquisa normal e sem traduções para outras linguas.

    Basicamente é isto.

    Eu já andei a ver coisas sobre pesquisa em pastas com o comando DIR, mas não sei por onde começar o programa.

    Será que me poderiam dar uma pequena ajuda?

    Obrigado

    achei um tutorial no site do macoratti que pode te ajudar muito com isso, a única diferença e que você vai usar o código de localizar no evento de "keypress"

    segue o URL

  19. Tem Como uma sub do access para o VB6

    em Visual Basic

    Postado

    Olá Raphael,

    Cadê o Kuroi?

    Quanto a sua proposta coloquei assim como sub

    Private Function ver_dupli()
'Verifica se o Registro existe no Morto caso exista não executa o Arquivo, pois dará Duplicidade
Dim IDsEncontrados As Recordset
Dim strsql As String
   If Not IsNull(Me.txtRg) Then
      strsql = " SELECT custid FROM tabela2 WHERE txtid = " & Me.TxtID & ""
      Set IDsEncontrados = mobjConn.OpenRecordset(strsql)
   End If
      
   If IDsEncontrados.RecordCount <> 0 Then ' Encontrou RG no Morto
         MsgBox "Esse Registro já existe no morto, vou abrir a ficha do Morto!!" & Chr(13) & "E nela você deverá excluir o registro desse RG" & Chr(13) & " e depois repetir a operação de Arquivar no Morto, OK ?", vbInformation, "Aviso já existe no Morto"
          Morto.Show ' DoCmd.OpenForm "morto", acNormal, , "rg = " & IDsEncontrados("rg")
          Exit Function
      Else
      MsgBox "Pode arquivar no morto que não tem duplicidade", vbInformation, " Aviso"
   
   End If
End Function
    Está retornando erro na linha abaixo (eu troquei por morto.show só para testar a função,) preciso trocar a linha abaixo DoCmd.OpenForm "morto", acNormal, , "rg = " & IDsEncontrados("rg") como passo ela para vb6 a linha acima?
    você não precisa do DoCmd, para chamar outro form. basta usar o comando Form.Show o que você pode fazer e cirar uma função do form morto, para que ele exiba os dados
    Tem que fazer isso: tem que abrir (show)o form "morto" com os dados da tabela2 onde o custID (atual) é igual ao custID da tabela2 localizada (duplicidade) Esta dando erro 3001 Os argumentos são incorretos, estão fora do intervalo aceitavel ou estão em conflito. nessa linha ----> Set IDsEncontrados = mobjConn.OpenRecordset(strsql) Como saio dessa? Flecha
    pode ser o jeito que você está abrindo conexão. tente usar esse código para abrir, vou usar como se fosse a function no form Morto, onde você iria chamar assim 
    form.show
form.MostraDadosCliente
    Public Sub MostraDadosCliente(ValID as int)

  Dim rs As New ADODB.Recordset
  Dim SQL As String

  On Error Resume Next
  
  SQL = "SELECT * From Tabela2 Where ID2=" & ValID
  
  rs.Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly

'cnSQL é sua string de conexão com o banco
  
  txtNome = rs(0)
  txtEndereco = rs(1)
  txtBairro = rs(2)
  txtCidade = rs(3)
  cboEstado = rs(4)
'Assim conforme sua necessidade, lembrando que o retorno do recordser começa do 0, para o primeiro campo da tabela e por ai vai

rsPaciente.Close

End Sub

×
×
  • Criar Novo...