LOCALIZAR REGISTRO NO BANCO

OMAR2011 22/01/2013 10:21:45
#417857

E ai,o que vai fzer com esta cópia.

Correto.

[ô] [txt-color=#e80000]rsDados.Clone[/txt-color] não sei pra que
[txt-color=#007100]rsDados.Close[/txt-color] [ô]Fechando a tabela.
Set rsDados = Nothing

Testei seu código apesar do seu vb ser diferente do meu.
Resultado. Não satisfaz.

Este tipo de consulta OR n13 = [ô][Ô] & Dezenas(F) & [Ô][ô] é amplo demais.
São muitos registros nestas condições.

Quando tentei fazer isto alguns anos atrás fiquei decepcionado da gama de registros.

KELVINCD 22/01/2013 11:16:17
#417866

mãs não ta funcionando o código ele esta me trazendo o resultado pelo numero de consultas e n pelos números acertados.
seu pesquisar com 15 números vai me dar 15 pontos e não quantos eu acertei.

OMAR2011 22/01/2013 12:12:58
#417874

Não sei se já ouviu falar,quem não tem cão caça com gato.
Como não tive idéia e nem codigo feito ou arranjado,tive um
pensamento e testei e foi satisfatório.

Desenhei 15 caixa de texto sem array.
Para cada caixa de texto um consulta dinâmica.

Private Sub txt1_Change()
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = Db1
rs.CursorLocation = adUseClient
rs.Open [Ô]Select * from lotofacil1 where n1= [Ô] & CLng(txt1.Text) & [Ô][Ô], Db1
CarregarLFacil LvFacil, rs [ô] Aqui preenco o listview
rs.Close
Set rs = Nothing
End Sub
Private Sub txt2_Change()
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = Db1
rs.CursorLocation = adUseClient
rs.Open [Ô]Select * from lotofacil1 where n1= [Ô] & CLng(txt1.Text) & [Ô] And n2= [Ô] & CLng(txt2.Text) & [Ô] [Ô], Db1
CarregarLFacil LvFacil, rs [ô] Aqui preenco o listview
rs.Close
Set rs = Nothing
End Sub

Faça um teste e verifica.

A minha tabela que tem mais de oitocentos registros,pego do site
da caixa.Mudei e coloquei tudo em ordem crescente a caixa não
dispõe o sorteio em ordem crescente como a mega-sena.

Se a sua tabela não está em ordem crescente faça mesmo assim
um teste.Mas posso garantir que mudando a tabela de forma crescente
é bem melhor.
Quando dgitar na primeira caixa de texto vai aparecer todos os registro
do primeiro campo que é N1 e assim vai refinando mais a consulta.

Quem sabe aparece alguém que coloque um código para substituir
tudo isso.Vou ficar agradecido e aproveitar o referido código.
Valeu.

KELVINCD 22/01/2013 18:27:27
#417910

Private Sub CALCULAR_PONTOS()
Dim Consulta As String
Dim Dezenas() As String
Dim Cont As Integer
Dim DezCerta As String
Consulta = Text2.Text
Dezenas = Split(Consulta, [Ô]-[Ô])
Dim item As ListItem
Dim aSQL As String
p11 = 0
p12 = 0
p13 = 0
p14 = 0
p15 = 0
aSQL = [Ô]SELECT * FROM TEMP_POSSIBILIDADE[Ô]
Set rsDados = New ADODB.Recordset
rsDados.CursorLocation = vCursorLocation
rsDados.CursorType = vCursorType
rsDados.LockType = vLockTypeLeitura
rsDados.Source = aSQL
rsDados.ActiveConnection = dados
rsDados.Open
ListPontos.ListItems.Clear
Do While Not rsDados.EOF
Cont = 0
DezCerta = [Ô][Ô]
For F = 0 To UBound(Dezenas)
If rsDados([Ô]n1[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n2[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n3[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n4[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n5[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n6[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n7[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n8[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n9[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n10[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n11[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n12[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n13[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n14[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
If rsDados([Ô]n15[Ô]) = Dezenas(F) Then DezCerta = DezCerta & Dezenas(F) & [Ô]-[Ô]: Cont = Cont + 1
Next F
Set item = ListPontos.ListItems.Add(, , Cont)
item.SubItems(1) = rsDados([Ô]n1[Ô]) & [Ô]-[Ô] & rsDados([Ô]n2[Ô]) & [Ô]-[Ô] & rsDados([Ô]n3[Ô]) & [Ô]-[Ô] & rsDados([Ô]n4[Ô]) & [Ô]-[Ô] & rsDados([Ô]n5[Ô]) & [Ô]-[Ô] & rsDados([Ô]n6[Ô]) & [Ô]-[Ô] & rsDados([Ô]n7[Ô]) & [Ô]-[Ô] & rsDados([Ô]n8[Ô]) & [Ô]-[Ô] & rsDados([Ô]n9[Ô]) & [Ô]-[Ô] & rsDados([Ô]n10[Ô]) & [Ô]-[Ô] & rsDados([Ô]n11[Ô]) & [Ô]-[Ô] & rsDados([Ô]n12[Ô]) & [Ô]-[Ô] & rsDados([Ô]n13[Ô]) & [Ô]-[Ô] & rsDados([Ô]n14[Ô]) & [Ô]-[Ô] & rsDados([Ô]n15[Ô])
If Cont = 11 Then
p11 = p11 + 1
End If
If Cont = 12 Then
p12 = p12 + 1
End If
If Cont = 13 Then
p13 = p13 + 1
End If
If Cont = 14 Then
p14 = p14 + 1
End If
If Cont = 15 Then
p15 = p15 + 1
End If
rsDados.MoveNext
Loop
txtp11 = p11
txtp12 = p12
txtp13 = p13
txtp14 = p14
txtp15 = p15
[ô] rsDados.Clone
Set rsDados = Nothing
t11 = p11 * 2.5
t12 = p12 * 5#
t13 = p13 * 12.5
tota = t11 + (t12 + t13)
total = Format(tota, [Ô]###,###0.00[Ô])
Label8.Caption = [Ô] Você ganharia com os pontos fixo [Ô] & total & [Ô] reais.[Ô]
End Sub

Pro fim terminei fico assim meu código graças ao MARCELO-TREZE com isso fecho o tópico.

OMAR2011 22/01/2013 18:55:22
#417912

Não fechou ou encerrou.
Encerra e pontua ele.
Valeu.