COMO SABER COMO QUANTAS LINHAS SE REPETE

PEGUDO 11/04/2011 07:39:28
#371017
Ok. Faça o seguinte:

1º. Vá no menu Projects e clique em VbMania Linhas na tag Properties
2º. Vai aparecer um janela com várias guias. Na guia References, localize a referência [Ô]Microsoft ActiveX Data Objects 6.0 Library[Ô] e remova-a do projeto.
3º Feche a janela com as guias.
4º. Volte no menu Projects e clique em Add Reference...
5º. Na aba .COM, localize e adicione a referência [Ô]Microsoft ActiveX Data Objects 2.8 Library[Ô].

Pronto agora o programa pode se comunicar com o BD

A questão da data do seu PC, o que acontece é que o Access insere data com caracteres [Ô]/[Ô], então faça o seguinte:

1º. Deixe a alteração que você fez: [txt-color=#0000f0]If[/txt-color] QualDado.Contains([txt-color=#e80000][Ô]-[Ô][/txt-color]) [txt-color=#0000f0]Then[/txt-color]...
2º. Devolva para o BD, a data com o caracter correto: QualDado = Vetor(0) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & Vetor(1) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & Vetor(2)

[txt-color=#0000f0]Public Function[/txt-color] TratarDataHora([txt-color=#0000f0]ByVal[/txt-color] QualDado [txt-color=#0000f0]As String[/txt-color]) [txt-color=#0000f0]As String[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] Vetor() [txt-color=#0000f0]As String[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] Tratamento [txt-color=#0000f0]As Integer[/txt-color]

[txt-color=#0000f0]If[/txt-color] QualDado.Contains([txt-color=#e80000][Ô]-[Ô][/txt-color]) [txt-color=#0000f0]Then[/txt-color]
Vetor = Split(QualDado, [txt-color=#e80000][Ô]-[Ô][/txt-color])
Tratamento = 1
[txt-color=#0000f0]Else[/txt-color]
Vetor = Split(QualDado, [txt-color=#e80000][Ô]:[Ô][/txt-color])
Tratamento = 2
[txt-color=#0000f0]End If

If[/txt-color] Vetor(0).Length = 1 [txt-color=#0000f0]Then[/txt-color] Vetor(0) = [txt-color=#e80000][Ô]0[Ô][/txt-color] & Vetor(0)
[txt-color=#0000f0]If[/txt-color] Vetor(1).Length = 1 [txt-color=#0000f0]Then[/txt-color] Vetor(1) = [txt-color=#e80000][Ô]0[Ô][/txt-color] & Vetor(1)

[txt-color=#0000f0]Select Case[/txt-color] Tratamento
[txt-color=#0000f0]Case[/txt-color] 1
QualDado = Vetor(0) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & Vetor(1) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & Vetor(2)
[txt-color=#0000f0]Case[/txt-color] 2
QualDado = Vetor(0) & [txt-color=#e80000][Ô]:[Ô][/txt-color] & Vetor(1) & [txt-color=#e80000][Ô]:[Ô][/txt-color] & Vetor(2)
[txt-color=#0000f0]End Select[/txt-color]
TratarDataHora = QualDado
[txt-color=#0000f0]Return[/txt-color] TratarDataHora
[txt-color=#0000f0]End Function[/txt-color]


Faça a mesma coisa com a outra função:
[txt-color=#0000f0]Public Function[/txt-color] TratarDataParaBD([txt-color=#0000f0]ByRef[/txt-color] QualData [txt-color=#0000f0]As String[/txt-color]) [txt-color=#0000f0]As String[/txt-color]
[txt-color=#0000f0]Dim [/txt-color]Vetor() [txt-color=#0000f0]As String[/txt-color] = Split(QualData, [txt-color=#e80000][Ô]-[Ô][/txt-color])

QualData = Vetor(1) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & Vetor(0) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & Vetor(2)

TratarDataParaBD = QualData
[txt-color=#0000f0]Return[/txt-color] TratarDataParaBD
[txt-color=#0000f0]End Function[/txt-color]
PEGUDO 11/04/2011 08:06:44
#371018
Outra coisa:
Na classe Verifica_Links, lá no final onde aparece a MsgBox que indica se houve novos tópicos ou assuntos,
a MsgBox só está aparecendo se houver novos tópicos e não aparece se houver assuntos novos.

Então acrescente um [txt-color=#0000f0]ELSEIF[/txt-color] à instrução conforme abaixo:

[txt-color=#0000f0]If[/txt-color] (Contador - 1) > QualLista.Count [txt-color=#0000f0]Then[/txt-color]
MsgBox([txt-color=#e80000][Ô]Informações : [Ô][/txt-color] & vbCrLf & [txt-color=#e80000][Ô]==================[Ô][/txt-color] & vbCrLf & [txt-color=#e80000][Ô]Tópicos Novos : [Ô][/txt-color] & (Contador - 1) - Val(Form1.lblTotalTopicos.Text) & vbCrLf & [txt-color=#e80000][Ô]Assuntos Novos : [Ô][/txt-color] & Verificar_Links - Val(Form1.lblTotalAssuntos.Text))
[txt-color=#0000f0]ElseIf[/txt-color] Verificar_Links > Val(Form1.lblTotalAssuntos.Text) [txt-color=#0000f0]Then[/txt-color]
MsgBox([txt-color=#e80000][Ô]Informações : [Ô][/txt-color] & vbCrLf & [txt-color=#e80000][Ô]==================[Ô][/txt-color] & vbCrLf & [txt-color=#e80000][Ô]Tópicos Novos : [Ô][/txt-color] & (Contador - 1) - Val(Form1.lblTotalTopicos.Text) & vbCrLf & [txt-color=#e80000][Ô]Assuntos Novos : [Ô][/txt-color] & Verificar_Links - Val(Form1.lblTotalAssuntos.Text))
[txt-color=#0000f0]End If[/txt-color]
PROGRAMADORVB6 13/04/2011 17:07:51
#371240
Olá + uma vez.
Quero agradecer-lhe pelo seu formidavel trabalho e apoio que me tem dado.
Não queirando desfazer o seu óptimo trabalho , que tem vindo a fazer a nivel do código, espero que compreenda o propósito deste meu programa que vou postar aqui.
Neste programa, só foi concebido com alguns exertos de código, como poderá constactar, isto porque senti necessidade de testar as várias rotinas implementadas, e testá-las uma a uma para saber o que estava realmente a bloquear o programa.
Conforme o que foi falado anteriormente, deixo aqui o programa ainda para testes.
Novamente enalteço a sua participação e a preciosa ajuda.
Grato desde já por tudo.
Atentamente.
Programadorvb6

Nota : Ainda não consegui tirar o som a este horrivel click quando o programa se encontra a procurar por atualizações.
PROGRAMADORVB6 16/04/2011 14:49:37
#371556
Olá boa tarde.
Como posso tirar este horrível som de Click, quando estou a fazer o varrimento de páginas?
Grato desde já pela sua atenção.
Atentamente.
Programadorvb6
PROGRAMADORVB6 23/05/2011 12:02:29
#374752
Olá boa tarde.
Após esta longa caminhada de código deixo aqui o programa inacabado.
Isto porque quando chegou a hora de encriptar/desencriptar o texto contido nos Tópicos.txt e links.txt já não me consigo lembrar onde estão as variaveis para poder encriptar os dados (Na gravação) e desencriptar(na Leitura de texto) na classe que você me ajudou.
Talvez vc saiba e me possa ajudar.
Nota Está tudo prontinho : é só me indicar onde posso colocar estas funções.

 Seguranca.EncodingType = EncriptarDados.EncodingBaseTypes.Base64
 Seguranca.Encrypt([Ô]Texto[Ô], Chave_Mestra)
Seguranca.Decrypt([Ô]Texto[Ô], Chave_Mestra)


Deixo aqui o código.

Grato desde já pela atenção e paciência.
Atentamente.
Programadorvb6
PROGRAMADORVB6 03/06/2011 15:18:00
#375785
Ninguém me possa ajudar?
Página 4 de 4 [36 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar